[freeside-commits] branch master updated. 26d71c2ec4c4034285932ded62581ad2ae5d8f5c
Jeremy Davis
jeremyd at 420.am
Fri Aug 16 08:28:27 PDT 2013
The branch, master has been updated
via 26d71c2ec4c4034285932ded62581ad2ae5d8f5c (commit)
from 8f47076c27dd065fa130fd6b1af7dd90c2125d5f (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 26d71c2ec4c4034285932ded62581ad2ae5d8f5c
Author: Jeremy Davis <jeremyd at freeside.biz>
Date: Fri Aug 16 11:28:01 2013 -0400
#24394 Pick specific package types on bulk changes
diff --git a/bin/part_pkg-bulk_change b/bin/part_pkg-bulk_change
index 64670de..cf65c39 100755
--- a/bin/part_pkg-bulk_change
+++ b/bin/part_pkg-bulk_change
@@ -1,19 +1,22 @@
#!/usr/bin/perl
use strict;
-use vars qw( $opt_r $opt_o $opt_v );
+use vars qw( $opt_r $opt_p $opt_o $opt_v );
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:');
+getopts('rp:o:v:');
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;
my %hash = (
-----------------------------------------------------------------------
Summary of changes:
bin/part_pkg-bulk_change | 9 ++++++---
1 files changed, 6 insertions(+), 3 deletions(-)
More information about the freeside-commits
mailing list