Changeset 8678

Timestamp:

2004-11-26T09:30:59+13:00 (19 years ago)

Author:

kjdon

Message:

cover images are now turned on by default, and the option is changed to -no_cover_image

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -123 +123 @@
     'type' => "flag",
     'reqd' => "no"},
-      { 'name' => "cover_image",
-    'desc' => "{BasPlug.cover_image}",
+      { 'name' => "no_cover_image",
+    'desc' => "{BasPlug.no_cover_image}",
     'type' => "flag",
     'reqd' => "no" } ];
@@ -295 +295 @@
     $self->{'num_blocked'} = 0;
     $self->{'num_archives'} = 0;
-    
+    $self->{'cover_image'} = 1; # cover image is on by default
+
     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
     $self->{'option_list'} = [ $options ];
     
+    my $no_cover_image = 0;
     # general options available to all plugins
     if (!parsargv::parse(\@_,
@@ -317 +319 @@
              q^no_bibliography^, \$self->{'no_biblio'},
              qq^maximum_century/-?\\d{1,2}( ?B\\.C\\.E\\.)?/-1^, \$self->{'max_century'},
-             q^cover_image^, \$self->{'cover_image'},
+             q^no_cover_image^, \$no_cover_image,
              q^separate_cjk^, \$self->{'separate_cjk'},
              q^smart_block^, \$self->{'smart_block'},
@@ -328 +330 @@
     $self->{'file_blocks'} = {};
 
+    $self->{'cover_image'} = 0 if ($no_cover_image);
+    
     return bless $self, $class;
 }