Changeset 31475 for main/trunk

Timestamp:

2017-03-09T14:30:41+13:00 (7 years ago)

Author:

kjdon

Message:

block_filename moved to EncodingUtil plugin

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/util.pm

@@ -831 +831 @@
 
     return $filename_full_path;
-}
-
-sub block_filename
-{
-    my ($block_hash,$filename) = @_;
-    
-    if (($ENV{'GSDLOS'} =~ m/^windows$/) && ($^O ne "cygwin")) {
-       # block hash contains long names, lets make sure that we were passed a long name
-       $filename = &util::upgrade_if_dos_filename($filename);
-       # lower case the entire thing, eg for cover.jpg when its actually cover.JPG
-       my $lower_filename = lc($filename);
-       $block_hash->{'file_blocks'}->{$lower_filename} = 1;
-    
-#   my $lower_drive = $filename;
-#   $lower_drive =~ s/^([A-Z]):/\l$1:/i;
-    
-#   my $upper_drive = $filename;
-#   $upper_drive =~ s/^([A-Z]):/\u$1:/i;
-#   
-#   $block_hash->{'file_blocks'}->{$lower_drive} = 1;
-#   $block_hash->{'file_blocks'}->{$upper_drive} = 1;       
-    }
-    else {
-    $block_hash->{'file_blocks'}->{$filename} = 1;
-    }
 }