Changeset 19516

Show
Ignore:
Timestamp:
19.05.2009 15:07:33 (10 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:
2 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/DirectoryPlugin.pm

    r19493 r19516  
    584584            foreach my $l (keys %$mfref) { 
    585585            my $f = $mfref->{$l}; 
    586             push (@metafile_pair, "$f:$l"); 
     586            push (@metafile_pair, "$f : $l"); 
    587587            } 
    588588 
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r19494 r19516  
    656656 
    657657    foreach my $metafile_pair (@$metafiles) { 
    658     my ($full_metafile,$metafile) = split(/:/,$metafile_pair); 
     658    my ($full_metafile,$metafile) = split(/ : /,$metafile_pair); 
    659659 
    660660    $doc_obj->metadata_file($full_metafile,$metafile); 
     
    690690    } 
    691691    else { 
    692         print STDERR "Warning: archiveinf_gdbm()\n  $real_filename does not appear to be on the file system\n"; 
     692        print STDERR "Warning: archiveinf_files_to_field()\n  $real_filename does not appear to be on the file system\n"; 
    693693    } 
    694694    }