--- test/html-whatpm/table.cgi 2007/05/27 06:37:05 1.1
+++ test/html-whatpm/table.cgi 2008/05/06 07:50:28 1.6
@@ -51,10 +51,11 @@
HTML5 Table Structure Viewer
+
-
+
';
my $i = 0;
@@ -62,8 +63,10 @@
$i++; print STDOUT "Table $i
\n";
my $table = Whatpm::HTMLTable->form_table ($table_el);
+ Whatpm::HTMLTable->assign_header ($table);
- for (@{$table->{column_group}}, @{$table->{column}}) {
+ for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
+ @{$table->{row}}) {
next unless $_;
delete $_->{element};
}
@@ -80,16 +83,18 @@
for (@{$_}) {
next unless $_;
for (@$_) {
+ $_->{id} = ''.$_->{element} if defined $_->{element};
delete $_->{element};
+ $_->{is_header} = $_->{is_header} ? 1 : 0;
}
}
}
- print STDOUT '';
}
@@ -106,11 +111,11 @@
=head1 LICENSE
-Copyright 2007 Wakaba
+Copyright 2007-2008 Wakaba
This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=cut
-## $Date: 2007/05/27 06:37:05 $
+## $Date: 2008/05/06 07:50:28 $