/[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.5 by wakaba, Sun Feb 10 02:30:14 2008 UTC revision 1.7 by wakaba, Tue May 6 08:47:09 2008 UTC
# Line 63  if ($mode eq '/table') { Line 63  if ($mode eq '/table') {
63      $i++; print STDOUT "<h1>Table $i</h1>\n";      $i++; print STDOUT "<h1>Table $i</h1>\n";
64    
65      my $table = Whatpm::HTMLTable->form_table ($table_el);      my $table = Whatpm::HTMLTable->form_table ($table_el);
66        Whatpm::HTMLTable->assign_header ($table);
67    
68      for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption}) {      delete $table->{element};
69    
70        for (@{$table->{column_group}}, @{$table->{column}}, $table->{caption},
71             @{$table->{row}}) {
72        next unless $_;        next unless $_;
73        delete $_->{element};        delete $_->{element};
74      }      }
# Line 81  if ($mode eq '/table') { Line 85  if ($mode eq '/table') {
85        for (@{$_}) {        for (@{$_}) {
86          next unless $_;          next unless $_;
87          for (@$_) {          for (@$_) {
88              $_->{id} = ''.$_->{element} if defined $_->{element};
89            delete $_->{element};            delete $_->{element};
90            $_->{is_header} = $_->{is_header} ? 1 : 0;            $_->{is_header} = $_->{is_header} ? 1 : 0;
91          }          }
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24