--- test/html-whatpm/table.cgi	2007/05/27 10:00:48	1.2
+++ test/html-whatpm/table.cgi	2007/07/16 10:55:11	1.4
@@ -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>';
   }
 
@@ -114,4 +115,4 @@
 
 =cut
 
-## $Date: 2007/05/27 10:00:48 $
+## $Date: 2007/07/16 10:55:11 $