projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
legacy change history, RT#29311
[freeside.git]
/
bin
/
part_pkg-bulk_change
diff --git
a/bin/part_pkg-bulk_change
b/bin/part_pkg-bulk_change
index
21a6c5a
..
cb29b18
100755
(executable)
--- a/
bin/part_pkg-bulk_change
+++ b/
bin/part_pkg-bulk_change
@@
-1,19
+1,22
@@
#!/usr/bin/perl
use strict;
#!/usr/bin/perl
use strict;
-use vars qw( $opt_r $opt_o $opt_v $opt_t );
+use vars qw( $opt_r $opt_
p $opt_
o $opt_v $opt_t );
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::part_pkg;
use FS::part_pkg_option;
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs);
use FS::part_pkg;
use FS::part_pkg_option;
-getopts('ro:v:t:');
+getopts('r
p:
o:v:t:');
my $user = shift or &usage;
adminsuidsetup $user;
my $user = shift or &usage;
adminsuidsetup $user;
-foreach my $part_pkg ( qsearch('part_pkg', {}) ) {
+my %plan;
+%plan = ( 'plan' => $opt_p ) if $opt_p;
+
+foreach my $part_pkg ( qsearch('part_pkg',\%plan) ) {
next if ! $part_pkg->freq && $opt_r;
if ( $opt_o ) {
next if ! $part_pkg->freq && $opt_r;
if ( $opt_o ) {