Parsing fix
This commit is contained in:
parent
87dca0e2c1
commit
8be1c614f1
8
II/T.pm
8
II/T.pm
@ -209,10 +209,10 @@ sub pre {
|
|||||||
$pre = 0;
|
$pre = 0;
|
||||||
}
|
}
|
||||||
$txt .= $line;
|
$txt .= $line;
|
||||||
$txt =~ s/<br \/>//g;
|
$txt =~ s/<br \/>//g if $pre == 1;
|
||||||
# $txt =~ s/<li>//g;
|
$txt =~ s/<li>//g if $pre == 1;
|
||||||
# $txt =~ s/<\/li>//g;
|
$txt =~ s/<\/li>//g if $pre == 1;
|
||||||
# $txt =~ s/<font.+>(>.+)<\/font>/$1/g;
|
$txt =~ s/<font.+>(>.+)<\/font>/$1/g if $pre == 1;
|
||||||
}
|
}
|
||||||
close $fh;
|
close $fh;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user