X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FCGI%2FPkgreport.pm;h=28c1f75b4d6a63fbc7ff7dcac3ed5ef45daa037b;hp=9d397b825976f726c72ae270fd1e332ff8aebbd2;hb=f4cac5c0b345b08f67844df7eecd18f66c156c9e;hpb=4a2bb1a91de48cdfb793fb957caeba6aa6c5f32d diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm index 9d397b8..28c1f75 100644 --- a/Debbugs/CGI/Pkgreport.pm +++ b/Debbugs/CGI/Pkgreport.pm @@ -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).') ';