Subversion Repositories wimsdev

Rev

Rev 17234 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17234 Rev 17670
Line 24... Line 24...
24 
$text =~ s:(<li>\s*){1,}</(u|o)l>:</$2l>:g;
 24 
$text =~ s:(<li>\s*){1,}</(u|o)l>:</$2l>:g;
25 
## transform some hr
 25 
## transform some hr
26 
$text =~ s|<hr\s+width="(\d+)%"\s*/?/?>|<hr style="width:$1%">|g;
 26 
$text =~ s|<hr\s+width="(\d+)%"\s*/?/?>|<hr style="width:$1%">|g;
27 
## delete <br> before table ?
 27 
## delete <br> before table ?
28 
$text =~ s|(<br\s*/?>\s*){1,}</table>|</table>|g;
 28 
$text =~ s|(<br\s*/?>\s*){1,}</table>|</table>|g;
29 
$text =~ s:</div>\s+</div>:</div></div>:g;
 29 
$text =~ s:</div>\s+</div>:</div>\n</div>:g;
30 
$text =~ s:</div>\s*(<br\s*/?>\s*){1,}</div>:</div></div>:g;
 30 
$text =~ s:</div>\s*(<br\s*/?>\s*){1,}</div>:</div>\n</div>:g;
31 
## delete <br> before div
 31 
## delete <br> before div
32 
$text =~ s:(<br\s*/?>\s*){1,}<div:<div:g;
 32 
$text =~ s:(<br\s*/?>\s*){1,}<div:<div:g;
33 
$text =~ s:<br\s*/?> *!:<br>\n!:g;
 33 
$text =~ s:<br\s*/?> *!:<br>\n!:g;
34 
$text =~ s:\n{3,}:\n\n:g;
 34 
$text =~ s:\n{3,}:\n\n:g;
35 
close(IN);
 35 
close(IN);