Changeset 23415
- Timestamp:
- 2010-12-08T11:42:24+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm
r23392 r23415 227 227 next unless ($raw_link =~ /\S+/); 228 228 229 if ($raw_link !~ m@^/@ && $raw_link !~ m/^([A-Z]:?)\\/ ) {229 if ($raw_link !~ m@^/@ && $raw_link !~ m/^([A-Z]:?)\\/i) { 230 230 # Turn relative file path into full path 231 231 my $dirname = &File::Basename::dirname($filename_full_path); … … 285 285 } 286 286 287 $url_original_filename = &util::upgrade_if_dos_filename($url_original_filename); 287 288 $block_hash->{'file_blocks'}->{$url_original_filename} = 1; 288 289 }
Note:
See TracChangeset
for help on using the changeset viewer.