delete $param{maintenc}
}
-
-if (not grep {exists $param{$_}} keys %package_search_keys and exists $param{users}) {
- $param{usertag} = [make_list($param{users})];
-}
-
if (exists $param{pkg}) {
$param{package} = $param{pkg};
delete $param{pkg};
}
+if (not grep {exists $param{$_}} keys %package_search_keys and exists $param{users}) {
+ $param{usertag} = [make_list($param{users})];
+}
+
my %bugusertags;
my %ut;
my %seen_users;
usertags => \%ut,
);
+# shove in bugs which affect this package if there is a package or a
+# source given (by default), but no affects options given
+if (not exists $param{affects} and not exists $param{noaffects} and
+ (exists $param{source} or
+ exists $param{package})) {
+ push @bugs, get_bugs((map {exists $param{$_}?($_ =~ /^(?:package|source)$/?'affects':$_,$param{$_}):()}
+ grep {$_ ne 'newest'}
+ keys %package_search_keys, 'archive'),
+ usertags => \%ut,
+ );
+}
+
if (defined $param{version}) {
$title .= " at version $param{version}";
}
delete $param{dist};
}
-# output infomration about the packages
+# output information about the packages
for my $package (make_list($param{package}||[])) {
print generate_package_info(binary => 1,