<pre> tag fix

This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-11 12:11:55 +04:00
parent cc29ef4bb2
commit cbfcef3813

View File

@ -201,7 +201,6 @@ sub pre {
my $line = $_;
if ( ( $line =~ /^====/ ) and ( $pre == 0 ) ) {
# $txt .= $_;
$line =~ s/====/<pre class="pre">/g;
$pre = 1;
}
@ -210,6 +209,10 @@ sub pre {
$pre = 0;
}
$txt .= $line;
$txt =~ s/<br \/>//g;
$txt =~ s/<li>//g;
$txt =~ s/<\/li>//g;
$txt =~ s/<font.+>(>.+)<\/font>/$1/g;
}
close $fh;