--- test/html-whatpm/table.cgi	2007/06/30 08:26:08	1.3
+++ test/html-whatpm/table.cgi	2008/05/06 08:47:09	1.7
@@ -63,8 +63,12 @@
     $i++; print STDOUT "<h1>Table $i</h1>\n";
 
     my $table = Whatpm::HTMLTable->form_table ($table_el);
+    Whatpm::HTMLTable->assign_header ($table);
 
-    for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {
+    delete $table->{element};
+
+    for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
+         @{$table->{row}}) {
       next unless $_;
       delete $_->{element};
     }
@@ -81,7 +85,9 @@
       for (@{$_}) {
         next unless $_;
         for (@$_) {
+          $_->{id} = ''.$_->{element} if defined $_->{element};
           delete $_->{element};
+          $_->{is_header} = $_->{is_header} ? 1 : 0;
         }
       }
     }
@@ -90,7 +96,7 @@
   tableToCanvas (
 ';
     print STDOUT objToJson ($table);
-    print STDOUT ', document.body);
+    print STDOUT ', document.body, "");
 </script>';
   }
 
@@ -107,11 +113,11 @@
 
 =head1 LICENSE
 
-Copyright 2007 Wakaba <w@suika.fam.cx>
+Copyright 2007-2008 Wakaba <w@suika.fam.cx>
 
 This library is free software; you can redistribute it
 and/or modify it under the same terms as Perl itself.
 
 =cut
 
-## $Date: 2007/06/30 08:26:08 $
+## $Date: 2008/05/06 08:47:09 $