only look for source if srcforpkg is defined

[debbugs.git] / Debbugs / CGI / Pkgreport.pm

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index 9d397b825976f726c72ae270fd1e332ff8aebbd2..e3dcc1235bc0d4a3f119d6d5593673e0448f33b8 100644 (file)
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -133,7 +133,7 @@ sub generate_package_info{
                                 # distribution.
                                 @{$config{distributions}//[]} ?
                                 (dist => [@{$config{distributions}}]) : (),
-                               );
+                               ) if defined $srcforpkg;
      @pkgs = grep( !/^\Q$package\E$/, @pkgs );
      if ( @pkgs ) {
          @pkgs = sort @pkgs;
@@ -463,12 +463,15 @@ sub parse_order_statement_to_subroutine {
        }
        my @vals_bits;
        for my $val (@vals) {
-           if ($field =~ /package|pending|severity/o) {
-               push @vals_bits, '$_[0]->'.$field.
+           if ($field =~ /package|severity/o) {
+               push @vals_bits, '$_[0]->status->'.$field.
                    ' eq q('.$val.')';
            } elsif ($field eq 'tag') {
                push @vals_bits, '$_[0]->tags->is_set('.
                    'q('.$val.'))';
+           } elsif ($field eq 'pending') {
+               push @vals_bits, '$_[0]->'.$field.
+                   ' eq q('.$val.')';
            }
        }
        push @sub_bits ,' ('.join(' or ',@vals_bits).') ';