Changeset 6769

Timestamp:

2004-02-10T17:05:50+13:00 (20 years ago)

Author:

kjdon

Message:

added two new options: noheaderpage to supress the empty first section, and documenttype (paged or hierachy) - so you can make it hierarchical instead of paged

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -128 +128 @@
     'type' => "int",
     'deft' => "100",
+    'reqd' => "no" },
+      { 'name' => "noheaderpage",
+    'desc' => "{PagedImgPlug.noheaderpage}",
+    'type' => "flag",
+    'reqd' => "no" },
+      { 'name' => "documenttype",
+    'desc' => "{PagedImgPlug.documenttype}",
+    'type' => "enum",
+    'list' => $type_list,
+    'deft' => "paged",
     'reqd' => "no" } ];
+
+my $type_list =
+    [ { 'name' => "paged",
+        'desc' => "{PagedImgPlug.documenttype.paged}" },
+      { 'name' => "hierarchy",
+        'desc' => "{PagedImgPlug.documenttype.hierarchy}" } ];
 
 my $options = { 'name'     => "PagedImgPlug",
@@ -155 +171 @@
              q^thumbnail^, \$self->{'thumbnail'},
              q^screenview^, \$self->{'screenview'},
+             q^noheaderpage^, \$self->{'noheaderpage'},
+             'documenttype/^(paged|hierarchy)$/paged', \$self->{'doctype'},
              "allow_extra_options")) {
     
@@ -514 +532 @@
     my $topsection = $doc_obj->get_top_section();
 
-    # set the gsdlthistype metadata to Paged - this ensures this document will
-    # be treated as a Paged doc, even if Titles are not numeric
-    $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", "Paged");
-
+    if ($self->{'doctype'} eq 'paged') {
+    # set the gsdlthistype metadata to Paged - this ensures this document will
+    # be treated as a Paged doc, even if Titles are not numeric
+    
+    $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", "Paged");
+    } else {
+    $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", "Hierarchy");
+    }
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";
     my $line = "";
@@ -536 +558 @@
         
         # create a new section for each image file
-        my  $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
+        # the first image may go in the top section or in the first child section (if headerpage is true)
+        my $cursection;
+        if ($first) {
+        if ( $self->{'noheaderpage'}) {
+            $cursection = $topsection;
+        } else {
+            $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
+        } 
+        $first=0;
+        } else {
+        $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
+        }
         # the page number becomes the Title
         $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum);