Changeset 9144

Timestamp:

2005-02-23T10:09:51+13:00 (19 years ago)

Author:

davidb

Message:

"Source" metadata now set to be consistent with other plugins.

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -537 +537 @@
     my $doc_obj = $self->process_item($filename, $dir, $file, $processor);
 
+    my ($filemeta) = $file =~ /([^\\\/]+)$/;
+    $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
     if ($self->{'cover_image'}) {
     $self->associate_cover_image($doc_obj, $filename);
@@ -592 +594 @@
     $doc_obj->set_utf8_metadata_element ($topsection, "gsdlthistype", "Hierarchy");
     }
+
+    $doc_obj->add_metadata ($topsection, "Source", $file);
 
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";