--- 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 $