--- test/html-whatpm/table.cgi	2007/05/27 10:00:48	1.2
+++ test/html-whatpm/table.cgi	2008/02/10 02:30:14	1.5
@@ -82,6 +82,7 @@
         next unless $_;
         for (@$_) {
           delete $_->{element};
+          $_->{is_header} = $_->{is_header} ? 1 : 0;
         }
       }
     }
@@ -90,7 +91,7 @@
   tableToCanvas (
 ';
     print STDOUT objToJson ($table);
-    print STDOUT ');
+    print STDOUT ', document.body, "");
 </script>';
   }
 
@@ -107,11 +108,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/05/27 10:00:48 $
+## $Date: 2008/02/10 02:30:14 $