Changeset 8678
- Timestamp:
- 2004-11-26T09:30:59+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r8510 r8678 123 123 'type' => "flag", 124 124 'reqd' => "no"}, 125 { 'name' => " cover_image",126 'desc' => "{BasPlug. cover_image}",125 { 'name' => "no_cover_image", 126 'desc' => "{BasPlug.no_cover_image}", 127 127 'type' => "flag", 128 128 'reqd' => "no" } ]; … … 295 295 $self->{'num_blocked'} = 0; 296 296 $self->{'num_archives'} = 0; 297 297 $self->{'cover_image'} = 1; # cover image is on by default 298 298 299 # 14-05-02 To allow for proper inheritance of arguments - John Thompson 299 300 $self->{'option_list'} = [ $options ]; 300 301 302 my $no_cover_image = 0; 301 303 # general options available to all plugins 302 304 if (!parsargv::parse(\@_, … … 317 319 q^no_bibliography^, \$self->{'no_biblio'}, 318 320 qq^maximum_century/-?\\d{1,2}( ?B\\.C\\.E\\.)?/-1^, \$self->{'max_century'}, 319 q^ cover_image^, \$self->{'cover_image'},321 q^no_cover_image^, \$no_cover_image, 320 322 q^separate_cjk^, \$self->{'separate_cjk'}, 321 323 q^smart_block^, \$self->{'smart_block'}, … … 328 330 $self->{'file_blocks'} = {}; 329 331 332 $self->{'cover_image'} = 0 if ($no_cover_image); 333 330 334 return bless $self, $class; 331 335 }
Note:
See TracChangeset
for help on using the changeset viewer.