--- Webpacus/lib/Webpacus/Model/WebPAC.pm	2006/01/07 18:18:07	351
+++ Webpacus/lib/Webpacus/Model/WebPAC.pm	2006/01/07 22:45:16	355
@@ -98,9 +98,17 @@
 		include_path => $template_path,
 		filters => {
 			dump_html => sub {
-				my $t = shift || return;
-				#return Data::HTMLDumper->Dumper( $t );
-				return Data::HTMLDumper->Dump([$t],[qw/dump/]);
+				return unless (@_);
+				my $out;
+				my $i = 1;
+				foreach my $v (@_) {
+					$out .= qq{<div id="dump_$i">} .
+						Data::HTMLDumper->Dump([ $v ],[ "v$i" ]) .
+						qq{</div>};
+					$i++;
+				}
+				$out =~ s!<table[^>/]*>!<table class="dump">!gis if ($out);
+				return $out;
 			}
 		},
 	);