X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fpart_pkg-bulk_change;h=0c7bc1dd710aa3509a74dcccf65be27f3590ccae;hb=250ecb161140a253c305cb7c2b55e4f821befbdc;hp=cf65c39a282c26f617c4be14a83f874d7cc3a221;hpb=c87b72a2b404eab57d1f1dc67c49dcfd70a696a3;p=freeside.git diff --git a/bin/part_pkg-bulk_change b/bin/part_pkg-bulk_change index cf65c39a2..0c7bc1dd7 100755 --- a/bin/part_pkg-bulk_change +++ b/bin/part_pkg-bulk_change @@ -1,22 +1,23 @@ #!/usr/bin/perl use strict; -use vars qw( $opt_r $opt_p $opt_o $opt_v ); +use vars qw( $opt_r $opt_p $opt_o $opt_v $opt_s $opt_S $opt_z $opt_Z ); use Getopt::Std; use FS::UID qw(adminsuidsetup); use FS::Record qw(qsearch qsearchs); use FS::part_pkg; use FS::part_pkg_option; -getopts('rp:o:v:'); +getopts('rm:p:o:v:sSzZ'); my $user = shift or &usage; adminsuidsetup $user; -my %plan; -%plan = ( 'plan' => $opt_p ) if $opt_p; +my %search = (); +$search{'plan'} = $opt_p if $opt_p; +$search{'comment'} = $opt_m if $opt_m; -foreach my $part_pkg ( qsearch('part_pkg',\%plan) ) { +foreach my $part_pkg ( qsearch('part_pkg',\%search) ) { next if ! $part_pkg->freq && $opt_r; my %hash = ( @@ -37,10 +38,22 @@ foreach my $part_pkg ( qsearch('part_pkg',\%plan) ) { die $error if $error; } + if ( $opt_t || $opt_s || $opt_S || $opt_z || $opt_Z ) { + + $part_pkg->setup_show_zero('') if $opt_s; + $part_pkg->setup_show_zero('Y') if $opt_S; + $part_pkg->recur_show_zero('') if $opt_z; + $part_pkg->recur_show_zero('Y') if $opt_Z; + + $part_pkg->taxclass($opt_t); + my $error = $part_pkg->replace; + + } + } sub usage { - die "usage: part_pkg-bulk_change [ -r ] -o option_name -v option_value employee_username\n"; + die "usage: part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -s | -S ] [ -z | -Z ] employee_username\n"; } =head1 NAME @@ -49,18 +62,34 @@ cust_main-bulk_change =head1 SYNOPSIS - part_pkg-bulk_change [ -r ] -o option_name -v option_value employee_username + part_pkg-bulk_change [ -r ] [ -p plan ] [ -m comment ] [ -o option_name -v option_value ] [ -s | -S ] [ -z | -Z ] employee_username =head1 DESCRIPTION Command-line tool to change a set of package definitions. +Search options: + -r: recurring package definitions only +-p: packages with this price plan only + +-m: packages with this comment only + +Change options: + -o: part_pkg_option optionname -v: part_pkg_option optionvalue +-s: Turn off "Show zero setup" + +-S: Turn on "Show zero setup" + +-z: Turn off "Show zero recurring" + +-Z: Turn on "Show zero recurring" + employee_username =head1 BUGS