my $tsloth= $xsloth + $g->{Slower};
my $imgurl= "$self?graph=$detail§ion=$section".
"&sloth=$tsloth&elem=$elem";
- print a({href=>"$imgurl&w=780&h=800"}, img({src=>$imgurl}));
+ print a({href=>"$imgurl&w=780&h=800"},
+ img({src=>$imgurl, alt=>''}));
}
}
print end_html();
start_page("$section graphs");
foreach my $group (@{ $section_groups{$section} }) {
- print a({href=>"$self?detail=$group§ion=$section"});
- my $imgurl= "$self?graph=$group§ion=$section";
my $elems= $group_elems{$section,$group};
if (@$elems > 1) { print "<table><tr><td>"; }
+ print a({href=>"$self?detail=$group§ion=$section"});
+ my $imgurl= "$self?graph=$group§ion=$section";
foreach my $elem (@$elems) {
my $g= $graphs{$section,$group,$elem};
- print img({src=>"$imgurl&elem=$elem&sloth=".($sloth + $g->{Slower})});
+ print img({src=>"$imgurl&elem=$elem&sloth=".($sloth + $g->{Slower}),
+ alt=>''});
}
- if (@$elems > 1) { print "</td></tr></table>"; }
print "</a>\n";
+ if (@$elems > 1) { print "</td></tr></table>"; }
}