Changeset 17088

Show
Ignore:
Timestamp:
29.08.2008 13:11:43 (11 years ago)
Author:
davidb
Message:

Plugin modified to only print out URL encoded filename if different to original filename.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/HTMLPlugin.pm

    r16935 r17088  
    623623#   print STDERR "**** utf8_encoded_link to original src filename:\n\t$utf8_link\n\t".$self->{'utf8_to_original_filename'}->{$utf8_link}."\n"; 
    624624 
     625    if ($url_original_filename ne $utf8_link) { 
     626        my $outhandle = $self->{'outhandle'}; 
     627 
     628        print $outhandle "URL Encoding $url_original_filename\n"; 
     629        print $outhandle " ->$utf8_link\n"; 
     630    } 
     631 
    625632    $block_hash->{'file_blocks'}->{$url_original_filename} = 1; 
    626633    }