Changeset 20000

Show
Ignore:
Timestamp:
17.07.2009 10:14:23 (10 years ago)
Author:
davidb
Message:

CSV filename needs to be make regular-expression 'safe' before it is used to match in metadata tables

Files:
1 modified

Legend:

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

    r19493 r20000  
    169169    delete $csv_line_metadata{"Filename"}; 
    170170 
     171 
    171172    # Associate the metadata now 
     173    $csv_line_filename = &util::filename_to_regex($csv_line_filename); 
     174 
    172175    $extrametadata->{$csv_line_filename} = \%csv_line_metadata; 
    173176    push(@$extrametakeys, $csv_line_filename);