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; |
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 |
} |
} |
86 |
} |
} |
87 |
} |
} |
88 |
|
|
89 |
print STDOUT '<script type="text/javascript"> |
print STDOUT '<script type="text/javascript"> |
90 |
tableToCanvas ( |
tableToCanvas ( |
91 |
'; |
'; |
92 |
print STDOUT objToJson ($table); |
print STDOUT objToJson ($table); |