Changeset 25959

Timestamp:

2012-07-17T15:19:21+12:00 (11 years ago)

Author:

kjdon

Message:

gsdlthistype paged/hierarchy now in lower case, added in support for gs3's pagedhierarchy

File:

• main/trunk/greenstone2/perllib/basebuildproc.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -777 +777 @@
     my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype");
     if (defined $gsdlthistype) {
-    if ($gsdlthistype eq "Paged") {
+    if ($gsdlthistype =~ /^paged$/i) {
         $childtype = "Paged";
         if ($doc_obj->get_text_length ($doc_obj->get_top_section())) {
@@ -786 +786 @@
         
         return ($thistype, $childtype);
-    } elsif ($gsdlthistype eq "Hierarchy") {
+    }
+        # gs3 pagedhierarchy option
+    elsif ($gsdlthistype =~ /^pagedhierarchy$/i) {
+        $childtype = "PagedHierarchy";
+        if ($doc_obj->get_text_length ($doc_obj->get_top_section())) {
+        $thistype = "PagedHierarchy";
+        } else {
+        $thistype = "Invisible";
+        }
+        
+        return ($thistype, $childtype);
+    } elsif ($gsdlthistype =~ /^hierarchy$/i) {
         return ($thistype, $childtype); # use VList, VList
     }