status-report-scripts parseBZbugList,1.26,1.27

[Christian Iseli (c4chris)]

Author: c4chris

Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv4555

Modified Files:
	parseBZbugList 
Log Message:
Fix a couple minor issues, and add a TODO.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- parseBZbugList	19 Apr 2006 10:15:36 -0000	1.26
+++ parseBZbugList	19 Apr 2006 10:16:21 -0000	1.27
@@ -7,6 +7,7 @@
 # https://bugzilla.redhat.com/bugzilla/showdependencytree.cgi?id=FE-ACCEPT
 
 # TODO stuff
+#  See why count in "Inactive maintainers with open bug reports" is strange.
 
 use strict;
 use Getopt::Long;
@@ -245,6 +246,7 @@
     $F[10] =~ s/["]//g;
     $F[10] =~ s/^review\s+request:?\s+<?//i;
     $F[10] =~ s/[:.,>]?\s.*$//g;
+    $F[10] =~ s/:.*$//g;
   } else {
     $F[10] = $F[8];
   }
@@ -605,6 +607,7 @@
     my $a = $BZ->{$b};
     next unless $$a[6] eq "\"CLOSED\"";
     my $pkg = $$a[10];
+    next if defined $DISCARD{$pkg};
     unless ($SRPMS{$pkg} == 1 || defined($OWN{$pkg})) {
       $pkg =~ s/-[^-]+-[^-]+$//;
     }
@@ -850,6 +853,7 @@
 
 sub displayBL {
   my ($BL, $BZ, $field) = @_;
+  return if $#$BL < 0;
   print STDERR "   https://bugzilla.redhat.com/bugzilla/buglist.cgi?bug_id=",
     join(",", @$BL), "\n";
   foreach my $b (sort @$BL) {
@@ -863,6 +867,7 @@
 
 sub displayBLWiki {
   my ($BL, $BZ, $field) = @_;
+  return if $#$BL < 0;
   my %O;
   foreach my $b (@$BL) {
     my $a = $BZ->{$b};