Subversion Repositories wimsdev

Rev

Rev 17170 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17170 Rev 17234
Line 26... Line 26...
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></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></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);
36 
 
 36