--- test/html-whatpm/table.cgi 2007/05/27 06:37:05 1.1
+++ test/html-whatpm/table.cgi 2007/07/16 10:55:11 1.4
@@ -51,10 +51,11 @@
HTML5 Table Structure Viewer
+
-
+
';
my $i = 0;
@@ -63,7 +64,7 @@
my $table = Whatpm::HTMLTable->form_table ($table_el);
- for (@{$table->{column_group}}, @{$table->{column}}) {
+ for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {
next unless $_;
delete $_->{element};
}
@@ -81,15 +82,16 @@
next unless $_;
for (@$_) {
delete $_->{element};
+ $_->{is_header} = $_->{is_header} ? 1 : 0;
}
}
}
- print STDOUT '';
}
@@ -113,4 +115,4 @@
=cut
-## $Date: 2007/05/27 06:37:05 $
+## $Date: 2007/07/16 10:55:11 $