+
+ print "</table>\n";
+}
+
+sub print_legend {
+ my $self = shift;
+ my ($class, $flags) = @_;
+
+ print qq{\t\t<dl class="legend $class">\n};
+ printf("\t\t".'<dt class="%s">%s'."\n\t\t\t".'<dd>%s'."\n",
+ $_, map { $self->escapedesc($_) } @{ $self->{flag}->{$_} || ["($_)", '...'] }
+ ) for @$flags;
+ print "\t\t</dl>";