From 8b2094d8837af641d3d28b7a76fa460c7d85456e Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 28 Feb 2019 03:44:21 -0800 Subject: [PATCH] fix -C, RT#82943 --- bin/part_pkg-bulk_change | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/bin/part_pkg-bulk_change b/bin/part_pkg-bulk_change index 176965baf..5347da6be 100755 --- a/bin/part_pkg-bulk_change +++ b/bin/part_pkg-bulk_change @@ -16,9 +16,18 @@ adminsuidsetup $user; my %search = (); $search{'plan'} = $opt_p if $opt_p; $search{'comment'} = $opt_m if $opt_m; -$search{'classnum'} = { op=>'NOT IN', value=>"($opt_C)" } if $opt_C; -foreach my $part_pkg ( qsearch('part_pkg',\%search) ) { +my $extra_sql = ''; +$extra_sql = ( keys(%search) ? 'AND' : 'WHERE' ). + " classnum NOT IN ($opt_C)" + if $opt_C; + +foreach my $part_pkg ( qsearch({ 'table' => 'part_pkg', + 'hashref' => \%search, + 'extra_sql' => $extra_sql, + }) + ) +{ next if ! $part_pkg->freq && $opt_r; if ( $opt_o ) { -- 2.11.0