print "</table>\n\n";
}
+ if (my $table = $info->{table}) {
+ print '<table class="color mapped">'."\n";
+ printf "<caption>%s</caption>\n", $caption;
+ for my $row (@$table) {
+ print '<tr>';
+ print colcell(@$_) for @$row;
+ }
+ print "</table>\n\n";
+ }
+
if (my $palette = $info->{list}) {
my $order = $get{order} && $get{order}.'order';
my $colours = colorder($palette,