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

Timestamp:

2005-03-23T15:46:13+12:00 (19 years ago)

Author:

mdewsnip

Message:

Fixed some problems with SplitPlug and MARCPlug caused by the metadata_read code (only one file would be processed because the data wasn't stored by filename and would therefore be overwritten by following files).

File:

• trunk/gsdl/perllib/plugins/MARCPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -191 +191 @@
     $self->{'readfile_encoding'} = $encoding;
 
-    @marc_entries = ();
+    my @marc_entries = ();
 
     if (!-r $filename)
@@ -208 +208 @@
     }
 
-    $self->{'marc_entries'} = \@marc_entries;
+    $self->{'marc_entries'}->{$filename} = \@marc_entries;
 }
 
@@ -235 +235 @@
     $doc_obj->add_metadata($cursection, "FileFormat", "MARC");
     
-    my $marc_entries = $self->{'marc_entries'};
+    my $filename = &util::filename_cat($base_dir, $file);
+    my $marc_entries = $self->{'marc_entries'}->{$filename};
     my $marc = shift(@$marc_entries);