From a4918ab7b3577c0089b1a46fd566c40456774b1c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 16 Aug 2008 12:15:31 -0700
Subject: [PATCH] remove useless bits from Debbugs::CGI::Pkgreport.pm

---
 Debbugs/CGI/Pkgreport.pm | 113 ---------------------------------------
 1 file changed, 113 deletions(-)

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 8fbf9031..085b31ea 100644
--- 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;
 }
 
 
-- 
2.39.5