Changeset 20000

Timestamp:

2009-07-17T10:14:23+12:00 (15 years ago)

Author:

davidb

Message:

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

File:

• gsdl/trunk/perllib/plugins/MetadataCSVPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/MetadataCSVPlugin.pm

@@ -169 +169 @@
     delete $csv_line_metadata{"Filename"};
 
+
     # Associate the metadata now
+    $csv_line_filename = &util::filename_to_regex($csv_line_filename);
+
     $extrametadata->{$csv_line_filename} = \%csv_line_metadata;
     push(@$extrametakeys, $csv_line_filename);