/[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.3 by wakaba, Sat Jun 30 08:26:08 2007 UTC revision 1.5 by wakaba, Sun Feb 10 02:30:14 2008 UTC
# Line 82  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      }      }
# Line 90  if ($mode eq '/table') { Line 91  if ($mode eq '/table') {
91    tableToCanvas (    tableToCanvas (
92  ';  ';
93      print STDOUT objToJson ($table);      print STDOUT objToJson ($table);
94      print STDOUT ', document.body);      print STDOUT ', document.body, "");
95  </script>';  </script>';
96    }    }
97    
# Line 107  Wakaba <w@suika.fam.cx>. Line 108  Wakaba <w@suika.fam.cx>.
108    
109  =head1 LICENSE  =head1 LICENSE
110    
111  Copyright 2007 Wakaba <w@suika.fam.cx>  Copyright 2007-2008 Wakaba <w@suika.fam.cx>
112    
113  This library is free software; you can redistribute it  This library is free software; you can redistribute it
114  and/or modify it under the same terms as Perl itself.  and/or modify it under the same terms as Perl itself.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24