#setup template variables
package FS::cust_bill::_template; #!
- use vars qw( $invnum $date $page $total_pages @address $overdue @buf );
+ use vars qw( $invnum $date $page $total_pages @address $overdue @buf $agent );
$invnum = $self->invnum;
$date = $self->_date;
$page = 1;
+ $agent = $self->cust_main->agent->agent;
if ( $FS::cust_bill::invoice_lines ) {
$total_pages =
=head1 VERSION
-$Id: cust_bill.pm,v 1.41.2.17 2002-12-20 13:02:56 steve Exp $
+$Id: cust_bill.pm,v 1.41.2.18 2002-12-23 15:22:46 ivan Exp $
=head1 BUGS
&untaint_argv; #what it sounds like (eww)
use vars qw($opt_d $opt_v);
-getopts("d:v");
+getopts("p:d:v");
my $user = shift or die &usage;
adminsuidsetup $user;
$FS::cust_main::Debug = 1 if $opt_v;
+my %search;
+$search{'payby'} = $opt_p if $opt_p;
+
my @cust_main = @ARGV
- ? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
- : qsearch('cust_main', {} )
+ ? map { qsearchs('cust_main', { custnum => $_, %search } ) } @ARGV
+ : qsearch('cust_main', \%search )
;
#we're at now now (and later).
=head1 SYNOPSIS
- freeside-daily [ -d 'date' ] user [ custnum custnum ... ]
+ freeside-daily [ -d 'date' ] [ -p 'payby' ] [ -v ] user [ custnum custnum ... ]
=head1 DESCRIPTION
-d: Pretend it's 'date'. Date is in any format Date::Parse is happy with,
but be careful.
+ -p: Only process customers with the specified payby (CARD, CHEK, BILL, COMP, LECB)
+
+ -v: enable debugging
+
user: From the mapsecrets file - see config.html from the base documentation
custnum: if one or more customer numbers are specified, only bills those