Changeset 8246

Timestamp:

2004-10-08T14:04:25+13:00 (20 years ago)

Author:

kjdon

Message:

changed the default to have noheaderpage, so the option is now -headerpage, which adds one.

File:

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

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -158 +158 @@
     'range' => "1,",
     'reqd' => "no" },
-      { 'name' => "noheaderpage",
-    'desc' => "{PagedImgPlug.noheaderpage}",
+      { 'name' => "headerpage",
+    'desc' => "{PagedImgPlug.headerpage}",
     'type' => "flag",
     'reqd' => "no" },
@@ -195 +195 @@
              q^thumbnail^, \$self->{'thumbnail'},
              q^screenview^, \$self->{'screenview'},
-             q^noheaderpage^, \$self->{'noheaderpage'},
+             q^headerpage^, \$self->{'headerpage'},
              'documenttype/^(paged|hierarchy)$/paged', \$self->{'doctype'},
              "allow_extra_options")) {
@@ -591 +591 @@
         my $cursection;
         if ($first) {
-        if ( $self->{'noheaderpage'}) {
+        if ( $self->{'headerpage'}) {
+            $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
+        } else {
             $cursection = $topsection;
-        } else {
-            $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
         } 
         $first=0;