From eb11834cb545a83c1fddf8febcf309153a707f06 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 23 May 2022 19:45:14 -0700 Subject: [PATCH 1/1] bulk remove package def options, RT#86028 --- bin/part_pkg-bulk_change | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/bin/part_pkg-bulk_change b/bin/part_pkg-bulk_change index 5347da6be..582ab39c2 100755 --- a/bin/part_pkg-bulk_change +++ b/bin/part_pkg-bulk_change @@ -39,6 +39,12 @@ foreach my $part_pkg ( qsearch({ 'table' => 'part_pkg', my $part_pkg_option = qsearchs('part_pkg_option', \%hash); + unless ( defined $opt_v ) { + my $error = $part_pkg_option && $part_pkg_option->delete; + die $error if $error; + next; + } + if ( $part_pkg_option ) { next if $part_pkg_option->optionvalue eq $opt_v; $part_pkg_option->optionvalue($opt_v); @@ -130,7 +136,7 @@ Search options: Change options: --o: part_pkg_option optionname +-o: part_pkg_option optionname (use without -v to unset) -v: part_pkg_option optionvalue -- 2.11.0