remove useless bits from Debbugs::CGI::Pkgreport.pm

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 8fbf90314fbc8409556df1efeff1b0658d506ed0..085b31ea321ee8d7397f78154b55cbcd3fc4e393 100644 (file)
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -254,119 +254,6 @@ sub short_bug_status_html {
                                           '&maybelink'     => \&Debbugs::CGI::maybelink,
                                          },
                            );
-
-     my $result = "";
-
-     my $showseverity;
-     if ($status{severity} eq 'normal') {
-         $showseverity = '';
-     }
-     elsif (isstrongseverity($status{severity})) {
-         $showseverity = "Severity: <em class=\"severity\">$status{severity}</em>;\n";
-     }
-     else {
-         $showseverity = "Severity: <em>$status{severity}</em>;\n";
-     }
-
-     $result .= package_links(package => $status{package},
-                             options  => $param{options},
-                            );
-
-     my $showversions = '';
-     if (@{$status{found_versions}}) {
-         my @found = @{$status{found_versions}};
-         $showversions .= join ', ', map {s{/}{ }; html_escape($_)} @found;
-     }
-     if (@{$status{fixed_versions}}) {
-         $showversions .= '; ' if length $showversions;
-         $showversions .= '<strong>fixed</strong>: ';
-         my @fixed = @{$status{fixed_versions}};
-         $showversions .= join ', ', map {s{/}{ }; html_escape($_)} @fixed;
-     }
-     $result .= ' (<a href="'.
-         version_url(package => $status{package},
-                     found   => $status{found_versions},
-                     fixed   => $status{fixed_versions},
-                    ).qq{">$showversions</a>)} if length $showversions;
-     $result .= ";\n";
-
-     $result .= $showseverity;
-     $result .= "Reported by: ".package_links(submitter=>$status{originator},
-                                             class => "submitter",
-                                            );
-     $result .= ";\nOwned by: " . package_links(owner => $status{owner},
-                                               class => "submitter",
-                                              )
-         if length $status{owner};
-     $result .= ";\nTags: <strong>"
-         . html_escape(join(", ", sort(split(/\s+/, $status{tags}))))
-              . "</strong>"
-                   if (length($status{tags}));
-
-     $result .= (length($status{mergedwith})?";\nMerged with ":"") .
-         bug_links(bug => [split(/ /,$status{mergedwith})],
-                   class => "submitter",
-                  );
-     $result .= (length($status{blockedby})?";\nBlocked by ":"") .
-         bug_links(bug => [split(/ /,$status{blockedby})],
-                   class => "submitter",
-                  );
-     $result .= (length($status{blocks})?";\nBlocks ":"") .
-         bug_links(bug => [split(/ /,$status{blocks})],
-                   class => "submitter",
-                  );
-
-     if (length($status{done})) {
-         $result .= "<br><strong>Done:</strong> " . html_escape($status{done});
-         my $days = bug_archiveable(bug => $status{id},
-                                    status => \%status,
-                                    days_until => 1,
-                                   );
-         if ($days >= 0 and defined $status{location} and $status{location} ne 'archive') {
-              $result .= ";\n<strong>Can be archived" . ( $days == 0 ? " today" : $days == 1 ? " in $days day" : " in $days days" ) . "</strong>";
-         }
-         elsif (defined $status{location} and $status{location} eq 'archived') {
-              $result .= ";\n<strong>Archived.</strong>";
-         }
-     }
-
-     unless (length($status{done})) {
-         if (length($status{forwarded})) {
-              $result .= ";\n<strong>Forwarded</strong> to "
-                   . join(', ',
-                          map {maybelink($_)}
-                          split /\,\s+/,$status{forwarded}
-                         );
-         }
-         # Check the age of the logfile
-         my ($days_last,$eng_last) = secs_to_english(time - $status{log_modified});
-         my ($days,$eng) = secs_to_english(time - $status{date});
-
-         if ($days >= 7) {
-              my $font = "";
-              my $efont = "";
-              $font = "em" if ($days > 30);
-              $font = "strong" if ($days > 60);
-              $efont = "</$font>" if ($font);
-              $font = "<$font>" if ($font);
-
-              $result .= ";\n ${font}$eng old$efont";
-         }
-         if ($days_last > 7) {
-              my $font = "";
-              my $efont = "";
-              $font = "em" if ($days_last > 30);
-              $font = "strong" if ($days_last > 60);
-              $efont = "</$font>" if ($font);
-              $font = "<$font>" if ($font);
-
-              $result .= ";\n ${font}Modified $eng_last ago$efont";
-         }
-     }
-
-     $result .= ".";
-
-     return $result;
 }