diff options
author | Ivan Kohler <ivan@freeside.biz> | 2022-05-23 19:45:14 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2022-05-23 19:45:14 -0700 |
commit | eb11834cb545a83c1fddf8febcf309153a707f06 (patch) | |
tree | faeb6079401bc3e110d3de170b5486887159cac7 | |
parent | d0c81067b91fa6c790f848fb4633886d8eb7618d (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 |