X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fbulk_void;h=b12b5a97238a7e83a0da442132b5d2996a8989a2;hb=c5a6103898453e530e237e8226411c45b206517e;hp=c75da5d16ddda7596b613f0301dcdc473a4fdb6c;hpb=760e803c76087f74788e65b63ea102d32a2af4ac;p=freeside.git diff --git a/bin/bulk_void b/bin/bulk_void index c75da5d16..b12b5a972 100755 --- a/bin/bulk_void +++ b/bin/bulk_void @@ -6,7 +6,7 @@ use vars qw( %opt ); use FS::Misc::Getopt; use FS::Record qw(qsearch qsearchs dbh); -getopts('s:e:cpiXr:t:'); +getopts('cpiXr:t:'); my $dbh = dbh; $FS::UID::AutoCommit = 0; @@ -26,13 +26,13 @@ sub usage() { "; } -if (!$opt{s} or !$opt{e} or !$opt{r}) { +if (!$opt{start} or !$opt{end} or !$opt{r}) { die usage; } print "DRY RUN--changes will not be committed.\n" unless $opt{X}; -my $date = " WHERE _date >= $opt{s} AND _date <= $opt{e}"; +my $date = " WHERE _date >= $opt{start} AND _date <= $opt{end}"; my %search = (); $search{payby} = $opt{t} if $opt{t} && $opt{p};