Changeset 19516

Timestamp:

2009-05-19T15:07:33+12:00 (15 years ago)

Author:

ak19

Message:

Dr Bainbridge fixed a bug: metadata file pairs are no longer stored separated by a mere colon, but by a space colon space. This solved the issue of how when it was split, it would previously split around the C-drive part of a Windows filename as well, since this contains a colon as well.

Location:

gsdl/trunk/perllib

Files:

• plugins/DirectoryPlugin.pm (modified) (1 diff)
• plugouts/BasePlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/DirectoryPlugin.pm

@@ -584 +584 @@
             foreach my $l (keys %$mfref) {
             my $f = $mfref->{$l};
-            push (@metafile_pair, "$f:$l");
+            push (@metafile_pair, "$f : $l");
             }
 

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -656 +656 @@
 
     foreach my $metafile_pair (@$metafiles) {
-    my ($full_metafile,$metafile) = split(/:/,$metafile_pair);
+    my ($full_metafile,$metafile) = split(/ : /,$metafile_pair);
 
     $doc_obj->metadata_file($full_metafile,$metafile);
@@ -690 +690 @@
     }
     else {
-        print STDERR "Warning: archiveinf_gdbm()\n  $real_filename does not appear to be on the file system\n";
+        print STDERR "Warning: archiveinf_files_to_field()\n  $real_filename does not appear to be on the file system\n";
     }
     }