Changeset 31444
- Timestamp:
- 2017-02-27T14:33:33+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm
r30600 r31444 179 179 180 180 if (-f $filename && $self->SUPER::can_process_this_file($filename) && $self->check_doctype($filename)) { 181 return 1; # its a file for us 182 } 183 181 return 1; # its a file for us 182 } 184 183 return 0; 185 184 } … … 222 221 223 222 if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) { 224 223 # convert to full name - paths stored in block hash are long filenames 224 $filename_full_path = &util::upgrade_if_dos_filename($filename_full_path); 225 225 my $lower_drive = $filename_full_path; 226 226 $lower_drive =~ s/^([A-Z]):/\l$1:/i; … … 230 230 231 231 $block_hash->{'metadata_files'}->{$lower_drive} = 1; 232 $block_hash->{'metadata_files'}->{$upper_drive} = 1; 232 $block_hash->{'metadata_files'}->{$upper_drive} = 1; 233 233 234 } 234 235 else {
Note:
See TracChangeset
for help on using the changeset viewer.