Changeset 6767 for trunk/gsdl/perllib/mgppbuildproc.pm

Timestamp:

2004-02-10T17:01:26+13:00 (20 years ago)

Author:

kjdon

Message:

small change in the use of gsdlthistype to determine document type (paged vs Vlist)

File:

• trunk/gsdl/perllib/mgppbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -251 +251 @@
     
     my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype");
-    if (defined $gsdlthistype && $gsdlthistype eq "Paged") {
-    $thistype = "Paged";
-    $childtype = "Paged";
-    return ($thistype, $childtype);
+    if (defined $gsdlthistype) {
+    if ($gsdlthistype eq "Paged") {
+        $thistype = "Paged";
+        $childtype = "Paged";
+        return ($thistype, $childtype);
+    } elsif ($gsdlthistype eq "Hierarchy") {
+        return ($thistype, $childtype); # use VList, VList
+    }
     }
     my $first = 1;