$te->parse($response->content);
}
print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
- print join("</th><th>",@showheaders);
+ print $showheaders[0], '</th><th>';
+ print join('</th><th>',@showheaders[1 .. 5]);
print "</th></tr>\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
map { s/\xa0//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
+ $row->[1] =~ s/&/&/g;
$lastrow=$row;
next if $row->[0] =~ /:/;
print '<tr><td>';
- print join('</td><td>', @$row[0 .. 5]);
+ print $$row[0], '</td><td>', $$row[1], '</td>';
+ print '<td align="center">';
+ #print join('</td><td>', @$row[0 .. 1]);
+ print join('</td><td>', @$row[2 .. 5]);
print "</td></tr>\n";
}
}
print '<tr><td colspan="2">', capitalize($lastrow->[0]);
#shift @$lastrow; shift @$lastrow;
- print "</td><td>";
+ print '</td><td align="center">';
print $$lastrow[6];
- print "</td><td>";
+ print '</td><td>';
print join('</td><td>', @$lastrow[3 .. 5]);
print "</td></tr>\n";
print "</table>\n";