Changeset 20000


Ignore:
Timestamp:
2009-07-17T10:14:23+12:00 (13 years ago)
Author:
davidb
Message:

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

File:
1 edited

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);
Note: See TracChangeset for help on using the changeset viewer.