Changeset 23561 for main/trunk/greenstone2/perllib/util.pm
- Timestamp:
- 2011-01-13T11:49:38+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r23484 r23561 1140 1140 } 1141 1141 1142 sub block_filename 1143 { 1144 my ($block_hash,$filename) = @_; 1145 1146 if ($ENV{'GSDLOS'} =~ m/^windows$/) { 1147 1148 # lower case the entire thing, eg for cover.jpg when its actually cover.JPG 1149 my $lower_filename = lc($filename); 1150 $block_hash->{'file_blocks'}->{$lower_filename} = 1; 1151 # my $lower_drive = $filename; 1152 # $lower_drive =~ s/^([A-Z]):/\l$1:/i; 1153 1154 # my $upper_drive = $filename; 1155 # $upper_drive =~ s/^([A-Z]):/\u$1:/i; 1156 # 1157 # $block_hash->{'file_blocks'}->{$lower_drive} = 1; 1158 # $block_hash->{'file_blocks'}->{$upper_drive} = 1; 1159 } 1160 else { 1161 $block_hash->{'file_blocks'}->{$filename} = 1; 1162 } 1163 } 1164 1142 1165 1143 1166 sub filename_is_absolute
Note:
See TracChangeset
for help on using the changeset viewer.