--- test/html-whatpm/table.cgi	2007/07/16 10:55:11	1.4
+++ test/html-whatpm/table.cgi	2008/05/06 07:50:28	1.6
@@ -63,8 +63,10 @@
     $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}) {
+    for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
+         @{$table->{row}}) {
       next unless $_;
       delete $_->{element};
     }
@@ -81,6 +83,7 @@
       for (@{$_}) {
         next unless $_;
         for (@$_) {
+          $_->{id} = ''.$_->{element} if defined $_->{element};
           delete $_->{element};
           $_->{is_header} = $_->{is_header} ? 1 : 0;
         }
@@ -91,7 +94,7 @@
   tableToCanvas (
 ';
     print STDOUT objToJson ($table);
-    print STDOUT ', document.body);
+    print STDOUT ', document.body, "");
 </script>';
   }
 
@@ -108,11 +111,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/07/16 10:55:11 $
+## $Date: 2008/05/06 07:50:28 $