--- test/html-webhacc/cc.cgi 2008/05/06 07:50:28 1.49
+++ test/html-webhacc/cc.cgi 2008/05/06 08:47:09 1.50
@@ -956,15 +956,13 @@
require JSON;
my $i = 0;
- for my $table_el (@$tables) {
+ for my $table (@$tables) {
$i++;
print STDOUT qq[
] .
- get_node_link ($input, $table_el) . q[
];
+ get_node_link ($input, $table->{element}) . q[];
+
+ delete $table->{element};
- ## TODO: Make |ContentChecker| return |form_table| result
- ## so that this script don't have to run the algorithm twice.
- my $table = Whatpm::HTMLTable->form_table ($table_el);
-
for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
@{$table->{row}}) {
next unless $_;
@@ -1625,4 +1623,4 @@
=cut
-## $Date: 2008/05/06 07:50:28 $
+## $Date: 2008/05/06 08:47:09 $