- $$page_content .= scalar @results . " results displayed:<br>";
- foreach (@results) {
- $$page_content .= "<tt>$_</tt><br>\n";
+ $$page_content .= "<p>Found ".scalar(@results)." results</p>";
+ $$page_content .= "<div id=\"pcontentsres\"><table><colgroup><col><col></colgroup><tr><th style=\"text-align:center\">File</th><th style=\"text-align:center\">Packages</th></tr>";
+ foreach my $result (sort { $a->[0] cmp $b->[0] } @results) {
+ my $file = shift @$result;
+ $$page_content .= "<tr><td class=\"file\">$file</td><td>";
+ my %pkgs;
+ foreach (@$result) {
+ my ($pkg, $arch) = split /:/, $_;
+ $pkgs{$pkg}{$arch}++;
+ }
+ $$page_content .= join( ", ", map { "<a href=\"$ROOT/$suite/$_\">$_</a>" } sort keys %pkgs);
+ $$page_content .= '</td>';