[freeside-commits] branch FREESIDE_3_BRANCH updated. c87b72a2b404eab57d1f1dc67c49dcfd70a696a3

[Jeremy Davis]

The branch, FREESIDE_3_BRANCH has been updated
       via  c87b72a2b404eab57d1f1dc67c49dcfd70a696a3 (commit)
      from  c3596ed941f619f6105aa56ba09da09f3fd631b4 (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 c87b72a2b404eab57d1f1dc67c49dcfd70a696a3
Author: Jeremy Davis <jeremyd at freeside.biz>
Date:   Fri Aug 16 11:31:33 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(-)