- Timestamp:
- 2011-11-30T17:48:15+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/explode_metadata_database.pl
r24404 r24829 412 412 my ($field, $value) = (@$pair); 413 413 $field =~ s/^ex\.([^.]+)$/$1/; #remove any ex. iff it's the only metadata set prefix (will leave ex.dc.* intact) 414 $value =~ s/\\\\/\\/g; 414 $value =~ s/\\\\/\\/g; # don't regex brackets () here though! 415 415 my $document_file_full; 416 416 … … 596 596 } 597 597 else { 598 $orig_base_dir =~ s/\\/\\\\/g; # escape windows style slashes for the regex below598 $orig_base_dir = &util::filename_to_regex($orig_base_dir); # escape windows style slashes for the regex below 599 599 if ($document_file_full =~ m/^$orig_base_dir.*/) { 600 600 # file local to metadata record
Note:
See TracChangeset
for help on using the changeset viewer.