Difrex/iiplc
Difrex/iiplc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

<pre> tag fix

Browse Source
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-11 12:11:55 +04:00
parent cc29ef4bb2
commit cbfcef3813
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
II/T.pm
View File

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