/[suikacvs]/test/html-whatpm/table.cgi
Suika

Diff of /test/html-whatpm/table.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Sun May 27 06:37:05 2007 UTC revision 1.4 by wakaba, Mon Jul 16 10:55:11 2007 UTC
# Line 51  if ($mode eq '/table') { Line 51  if ($mode eq '/table') {
51  <html lang="en">  <html lang="en">
52  <head>  <head>
53  <title>HTML5 Table Structure Viewer</title>  <title>HTML5 Table Structure Viewer</title>
54    <!--[if IE]><script type="text/javascript" src="../excanvas.js"></script><![endif]-->
55  <script src="../table-script.js" type="text/javascript"></script>  <script src="../table-script.js" type="text/javascript"></script>
56  </head>  </head>
57  <body>  <body>
58  <noscript><p>How great the world without any script were!</p></noscript>  <noscript><p>How great if there were no script at all!</p></noscript>
59  ';  ';
60    
61    my $i = 0;    my $i = 0;
# Line 63  if ($mode eq '/table') { Line 64  if ($mode eq '/table') {
64    
65      my $table = Whatpm::HTMLTable->form_table ($table_el);      my $table = Whatpm::HTMLTable->form_table ($table_el);
66    
67      for (@{$table->{column_group}}, @{$table->{column}}) {      for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {
68        next unless $_;        next unless $_;
69        delete $_->{element};        delete $_->{element};
70      }      }
# Line 81  if ($mode eq '/table') { Line 82  if ($mode eq '/table') {
82          next unless $_;          next unless $_;
83          for (@$_) {          for (@$_) {
84            delete $_->{element};            delete $_->{element};
85              $_->{is_header} = $_->{is_header} ? 1 : 0;
86          }          }
87        }        }
88      }      }
89    
90      print STDOUT '<script type="text/javascript">      print STDOUT '<script type="text/javascript">
91    tableToCanvas (    tableToCanvas (
92  ';  ';
93      print STDOUT objToJson ($table);      print STDOUT objToJson ($table);
94      print STDOUT ');      print STDOUT ', document.body);
95  </script>';  </script>';
96    }    }
97    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24