#
# reformat html inside xml back to html (basically, support for tables)
#
# filed #-# field ###
# ...

sub back2html {
	my $html = shift;

	my $out;
	foreach $line (split(/###/,$html)) {
		$out .= "<tr><td>";
		my @items = split(/#-#/,$line);
		$out .= join("</td><td>",@items);
		$out .= "</td></tr>\n";
	}
	$out =~ s/&lt;br\/*&gt;/<br\/>/g;
	return $out;
}

1;
