Changeset 9421 for trunk/gsdl
- Timestamp:
- 2005-03-15T13:35:13+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PagedImgPlug.pm
r9420 r9421 537 537 my $doc_obj = $self->process_item($filename, $dir, $file, $processor); 538 538 539 my ($filemeta) = $file =~ /([^\\\/]+)$/;540 $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));541 539 if ($self->{'cover_image'}) { 542 540 $self->associate_cover_image($doc_obj, $filename); … … 690 688 691 689 1; 692 693 694 695 696 697 698 699 700 701 702
Note:
See TracChangeset
for help on using the changeset viewer.