Changeset 6767

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)

Location:

trunk/gsdl/perllib

Files:

• mgbuildproc.pm (modified) (1 diff)
• mgppbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -214 +214 @@
 
     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;
     while (defined $section) {

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;