Changeset 24971 for main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm
- Timestamp:
- 2012-01-24T16:19:58+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm
r24951 r24971 50 50 use ReadTextFile; 51 51 use plugin; 52 use util; 52 53 use XMLParser; 53 54 use strict; … … 249 250 my @fname_list = map { "(".$_->{'file'}.")" } @$fnamemime_list; 250 251 my $fname_re = join("|",@fname_list); 252 253 # Indexing into the extrameta data structures requires the filename's style of slashes to be in URL format 254 # Then need to convert the filename to a regex, no longer to protect windows directory chars \, but for 255 # protecting special characters like brackets in the filepath such as "C:\Program Files (x86)\Greenstone". 256 $fname_re = &util::filepath_to_url_format($fname_re); # just in case there are slashes in there 257 251 258 $fname_re =~ s/\./\\\./g; 252 259
Note:
See TracChangeset
for help on using the changeset viewer.