equal
deleted
inserted
replaced
268 print AGGREGATED "$categoryline\n"; |
268 print AGGREGATED "$categoryline\n"; |
269 } |
269 } |
270 print AGGREGATED "</table>\n"; |
270 print AGGREGATED "</table>\n"; |
271 print AGGREGATED "<br/>\n"; |
271 print AGGREGATED "<br/>\n"; |
272 |
272 |
273 print AGGREGATED "<br/>PACKAGE-SPECIFIC FAILURES<br/>\n"; |
273 print AGGREGATED "PACKAGE-SPECIFIC FAILURES<br/>\n"; |
274 print AGGREGATED "<table border='1'>\n"; |
274 print AGGREGATED "<table border='1'>\n"; |
275 $tableheader = "<tr><th>package</th>"; |
275 $tableheader = "<tr><th>package</th>"; |
276 for (@severities) { $tableheader .= "<th>$_</th>"; } |
276 for (@severities) { $tableheader .= "<th>$_</th>"; } |
277 $tableheader .= "<th>missing</th>" if ($missing); |
277 $tableheader .= "<th>missing</th>" if ($missing); |
278 $tableheader .= "</tr>"; |
278 $tableheader .= "</tr>"; |
294 } |
294 } |
295 $packageline .= "<td>".$missing_by_package->{$package}."</td>" if ($missing); |
295 $packageline .= "<td>".$missing_by_package->{$package}."</td>" if ($missing); |
296 $packageline .= "</tr>\n"; |
296 $packageline .= "</tr>\n"; |
297 print AGGREGATED "$packageline\n"; |
297 print AGGREGATED "$packageline\n"; |
298 } |
298 } |
|
299 # don't display the unknown/unknown package unless there are associated failures |
|
300 elsif ($package eq 'unknown/unknown') {} |
299 else |
301 else |
300 { |
302 { |
301 my $packageline = "<tr><td>$package</td>"; |
303 my $packageline = "<tr><td>$package</td>"; |
302 for (@severities) { $packageline .= "<td>0</td>"; } |
304 for (@severities) { $packageline .= "<td>0</td>"; } |
303 $packageline .= "<td>0</td>" if ($missing); |
305 $packageline .= "<td>0</td>" if ($missing); |