projects
/
webpac
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
last changes; completly broken charsets
[webpac]
/
back2html.pm
1
#
2
# reformat html inside xml back to html (basically, support for tables)
3
#
4
# filed #-# field ###
5
# ...
6
7
sub back2html {
8
my $html = shift;
9
10
my $out;
11
foreach $line (split(/###/,$html)) {
12
$out .= "<tr><td>";
13
my @items = split(/#-#/,$line);
14
$out .= join("</td><td>",@items);
15
$out .= "</td></tr>\n";
16
}
17
$out =~ s/<br\/*>/<br\/>/g;
18
return $out;
19
}
20
21
1;