- Timestamp:
- 2005-01-19T01:14:06+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r8892 r8908 574 574 &gsprintf(STDERR, "{BasPlug.read_must_be_implemented}") && die "\n"; 575 575 } 576 577 my $outhandle = $self->{'outhandle'}; 576 578 my $smart_block = $self->{'smart_block'}; 577 578 my $outhandle = $self->{'outhandle'};579 579 580 580 my $filename = $file; … … 1185 1185 if (-e $filename) { 1186 1186 $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg"); 1187 $doc_obj->add_utf8_metadata($thissection, "hascover", 1); 1187 1188 } else { 1188 1189 $filename =~ s/jpg$/JPG/; 1189 1190 if (-e $filename) { 1190 1191 $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg"); 1192 $doc_obj->add_utf8_metadata($thissection, "hascover", 1); 1191 1193 } 1192 1194 }
Note:
See TracChangeset
for help on using the changeset viewer.