- Timestamp:
- 2011-01-10T15:07:51+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm
r23419 r23544 260 260 ### print STDERR "*** DirectoryPlugin::file_is_blocked $filename_full_path\n"; 261 261 262 if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) { 263 $self->{'num_blocked'} ++; 264 return 1; 262 if ($ENV{'GSDLOS'} =~ m/^windows$/) { 263 # on windows, all block paths are lowercased. 264 my $lower_filename = lc ($filename_full_path); 265 if (defined $block_hash->{'file_blocks'}->{$lower_filename}) { 266 $self->{'num_blocked'} ++; 267 return 1; 268 } 269 } 270 else { 271 if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) { 272 $self->{'num_blocked'} ++; 273 return 1; 274 } 265 275 } 266 276 # check Directory plugin's own block_exp
Note:
See TracChangeset
for help on using the changeset viewer.