single => [qw(ordering archive repeatmerged),
qw(bug-rev pend-rev sev-rev),
qw(maxdays mindays version),
- qw(data which dist newest),
+ qw(data which dist),
qw(noaffects),
],
default => $default_params,
push @possible_packages,
source_to_binary(binary_only => 1,
source => $param{src},
+ dist => [@{$config{distributions}}],
@schema_arg,
);
}
my @entries = ();
for my $entry (make_list($param{$key})) {
# we'll handle newest below
- next if $key eq 'newest';
my $extra = '';
if (exists $param{dist} and ($key eq 'package' or $key eq 'src')) {
my %versions = get_versions(package => $entry,
($key eq 'src'?(arch => q(source)):()),
no_source_arch => 1,
return_archs => 1,
+ @schema_arg,
);
my $verdesc;
if (keys %versions > 1) {
push @entries, $entry.$extra;
}
}
- push @title,$value.' '.join(' or ', @entries) if @entries;
-}
-if (defined $param{newest}) {
- my $newest_bug = newest_bug();
- @bugs = ($newest_bug - $param{newest} + 1) .. $newest_bug;
- push @title, 'in '.@bugs.' newest reports';
- $param{bugs} = [exists $param{bugs}?make_list($param{bugs}):(),
- @bugs,
- ];
+ if ($key eq 'newest') {
+ push @title, 'in '.join(' or ',@entries).' newest reports';
+ } else {
+ push @title,$value.' '.join(' or ', @entries) if @entries;
+ }
}
my $title = $gBugs.' '.join(' and ', map {/ or /?"($_)":$_} @title);
#yeah for magick!
@bugs = get_bugs((map {exists $param{$_}?($_,$param{$_}):()}
- grep {$_ ne 'newest'}
keys %package_search_keys, 'archive'),
usertags => \%ut,
@schema_arg,