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

when we check a filename in the block hash we are converting to windows long filenames, so lets make sure things going into hash are long filenames

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r31187 r31443  
    838838     
    839839    if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) { 
    840      
    841     # lower case the entire thing, eg for cover.jpg when its actually cover.JPG 
    842     my $lower_filename = lc($filename); 
    843     $block_hash->{'file_blocks'}->{$lower_filename} = 1; 
     840       # block hash contains long names, lets make sure that we were passed a long name 
     841       $filename = &util::upgrade_if_dos_filename($filename); 
     842       # lower case the entire thing, eg for cover.jpg when its actually cover.JPG 
     843       my $lower_filename = lc($filename); 
     844       $block_hash->{'file_blocks'}->{$lower_filename} = 1; 
     845     
    844846#   my $lower_drive = $filename; 
    845847#   $lower_drive =~ s/^([A-Z]):/\l$1:/i;