63 |
$i++; print STDOUT "<h1>Table $i</h1>\n"; |
$i++; print STDOUT "<h1>Table $i</h1>\n"; |
64 |
|
|
65 |
my $table = Whatpm::HTMLTable->form_table ($table_el); |
my $table = Whatpm::HTMLTable->form_table ($table_el); |
66 |
|
Whatpm::HTMLTable->assign_header ($table); |
67 |
|
|
68 |
for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) { |
for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}, |
69 |
|
@{$table->{row}}) { |
70 |
next unless $_; |
next unless $_; |
71 |
delete $_->{element}; |
delete $_->{element}; |
72 |
} |
} |
83 |
for (@{$_}) { |
for (@{$_}) { |
84 |
next unless $_; |
next unless $_; |
85 |
for (@$_) { |
for (@$_) { |
86 |
|
$_->{id} = ''.$_->{element} if defined $_->{element}; |
87 |
delete $_->{element}; |
delete $_->{element}; |
88 |
$_->{is_header} = $_->{is_header} ? 1 : 0; |
$_->{is_header} = $_->{is_header} ? 1 : 0; |
89 |
} |
} |