Changeset 9144 for trunk/gsdl/perllib/plugins
- Timestamp:
- 2005-02-23T10:09:51+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PagedImgPlug.pm
r8909 r9144 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)); 539 541 if ($self->{'cover_image'}) { 540 542 $self->associate_cover_image($doc_obj, $filename); … … 592 594 $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", "Hierarchy"); 593 595 } 596 597 $doc_obj->add_metadata ($topsection, "Source", $file); 594 598 595 599 open (ITEMFILE, $filename) || die "couldn't open $filename\n";
Note:
See TracChangeset
for help on using the changeset viewer.