Show
Ignore:
Timestamp:
27.02.2017 14:33:33 (3 years ago)
Author:
ak19
Message:

block hash filenames should be windows long names

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm

    r30600 r31444  
    179179 
    180180    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    } 
    184183    return 0; 
    185184} 
     
    222221 
    223222    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); 
    225225    my $lower_drive = $filename_full_path; 
    226226    $lower_drive =~ s/^([A-Z]):/\l$1:/i; 
     
    230230     
    231231    $block_hash->{'metadata_files'}->{$lower_drive} = 1; 
    232     $block_hash->{'metadata_files'}->{$upper_drive} = 1;         
     232    $block_hash->{'metadata_files'}->{$upper_drive} = 1; 
     233         
    233234    } 
    234235    else {