diff options
author | Ivan Kohler <ivan@freeside.biz> | 2022-05-23 19:45:17 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2022-05-23 19:45:17 -0700 |
commit | 7e5fce86f887975d57029e28511100e511d1bdb9 (patch) | |
tree | f2a381cf50a959426f1e3e2876eea0d348af9b36 | |
parent | 96c44f6506691ce5d4f7d8d29d5ced70f217cec3 (diff) |
bulk remove package def options, RT#86028
-rwxr-xr-x | bin/part_pkg-bulk_change | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/part_pkg-bulk_change b/bin/part_pkg-bulk_change index 5347da6..582ab39 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 |