fix tag/owner typo for owner searches

[debbugs.git] / cgi / pkgreport.cgi
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi

index e32e45c8b85c366bfee3fa37be7c8f798ff82002..2c2c5582e1d0d3d0706d72b837bb2645c11d3e45 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -111,7 +111,9 @@ my %cats = (
      "normal" => [ qw(status severity classification) ],
  );
  
-my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status, $tag, $usertag);
+my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status, $tag, $usertag,
+    $owner,
+   );
  
  my %which = (
          'pkg' => \$pkg,
@@ -122,6 +124,7 @@ my %which = (
          'severity' => \$severity,
          'tag' => \$tag,
         'usertag' => \$usertag,
+       'owner'   => \$owner,
          );
  my @allowedEmpty = ( 'maint' );
  
@@ -317,6 +320,14 @@ if (defined $pkg) {
                           return grep(exists $tags{$_}, @tags);
                          })};
  }
+elsif (defined $owner) {
+     $title = "bugs owned by $owner";
+     $title .= " in $dist" if defined $dist;
+     my @owners = split /,/, $owner;
+     my %bugs = ();
+     @bugs = get_bugs(owner=>\@owners);
+
+}
  $title = htmlsanit($title);
  
  my @names; my @prior; my @title; my @order;
@@ -333,7 +344,7 @@ print "Content-Type: text/html; charset=utf-8\n\n";
  
  print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
  print "<HTML><HEAD>\n" . 
-    "<TITLE>$gProject$Archived $gBug report logs: $title</TITLE>\n" .
+    "<TITLE>$title -- $gProject$Archived $gBug report logs</TITLE>\n" .
      qq(<link rel="stylesheet" href="$gWebHostBugDir/css/bugs.css" type="text/css">) .
      "</HEAD>\n" .
      '<BODY onload="pagemain();">' .
@@ -994,9 +1005,9 @@ sub determine_ordering {
  
             $h->{"nam"} = $param{"nam$i"}
                  if (defined $param{"nam$i"}); 
-            $h->{"ord"} = [ split /,/, $param{"ord$i"} ]
+            $h->{"ord"} = [ split /\s*,\s*/, $param{"ord$i"} ]
                  if (defined $param{"ord$i"}); 
-            $h->{"ttl"} = [ split /,/, $param{"ttl$i"} ]
+            $h->{"ttl"} = [ split /\s*,\s*/, $param{"ttl$i"} ]
                  if (defined $param{"ttl$i"}); 
  
              push @c, $h;
@@ -1032,7 +1043,7 @@ sub determine_ordering {
   
      $i = 0;
      for my $c (@cats) {
-        $i++;
+       $i++;
          push @prior, $c->{"pri"};
         push @names, ($c->{"nam"} || "Bug attribute #" . $i);
          if (defined $c->{"ord"}) {
@@ -1041,8 +1052,8 @@ sub determine_ordering {
              push @order, [ 0..$#{$prior[-1]} ];
          }
          my @t = @{ $c->{"ttl"} } if defined $c->{ttl};
-       if (($#t+1) < $#{$prior[-1]}) {
-            push @t, map { toenglish($prior[-1]->[$_]) } ($#t+1)..($#{$prior[-1]});
+       if ($#t < $#{$prior[-1]}) {
+            push @t, map { toenglish($prior[-1][$_]) } @t..($#{$prior[-1]});
         }
         push @t, $c->{"def"} || "";
          push @title, [@t];