- my $stat = $value == 0 ?
- 0 : a {-href => "detail.cgi?type=$_;date=$date"}, $value;
- print
- td {-class => 'smalllabel'}, ucfirst ($_);
- print
- td {-class => 'smallnumber'}, $stat;
- print
- td {-class => 'smallnumber'}, $percent;
+
+ my $report = ucfirst $_;
+
+ if ($value) {
+ $report = a {-href => "detail.cgi?type=$_;date=$date"}, $report;
+ $value = a {-href => "detail.cgi?type=$_;date=$date"}, $value;
+ $percent = a {-href => "detail.cgi?type=$_;date=$date"}, $percent;
+ } # if
+
+ print td {-class => 'smalllabel'}, $report,
+ td {-class => 'smallnumber'}, $value,
+ td {-class => 'smallnumber'}, $percent;
+