Changeset 8121 for trunk/gsdl/perllib/plugins/MARCPlug.pm

Timestamp:

2004-09-15T16:18:06+12:00 (20 years ago)

Author:

chi

Message:

Add the "FileFormat" metadata to each of the Plugins.

File:

• trunk/gsdl/perllib/plugins/MARCPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -231 +231 @@
     my $cursection = $doc_obj->get_top_section();
 
+    # Add fileFormat as the metadata
+    $doc_obj->add_metadata($cursection, "FileFormat", "MARC");
+    
     my $marc_entries = $self->{'marc_entries'};
     my $marc = shift(@$marc_entries);