Changeset 31444


Ignore:
Timestamp:
2017-02-27T14:33:33+13:00 (4 years ago)
Author:
ak19
Message:

block hash filenames should be windows long names

File:
1 edited

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 {
Note: See TracChangeset for help on using the changeset viewer.