956 |
require JSON; |
require JSON; |
957 |
|
|
958 |
my $i = 0; |
my $i = 0; |
959 |
for my $table_el (@$tables) { |
for my $table (@$tables) { |
960 |
$i++; |
$i++; |
961 |
print STDOUT qq[<div class="section" id="$input->{id_prefix}table-$i"><h3>] . |
print STDOUT qq[<div class="section" id="$input->{id_prefix}table-$i"><h3>] . |
962 |
get_node_link ($input, $table_el) . q[</h3>]; |
get_node_link ($input, $table->{element}) . q[</h3>]; |
963 |
|
|
964 |
## TODO: Make |ContentChecker| return |form_table| result |
delete $table->{element}; |
965 |
## so that this script don't have to run the algorithm twice. |
|
966 |
my $table = Whatpm::HTMLTable->form_table ($table_el); |
for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}, |
967 |
|
@{$table->{row}}) { |
|
for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) { |
|
968 |
next unless $_; |
next unless $_; |
969 |
delete $_->{element}; |
delete $_->{element}; |
970 |
} |
} |