package FS::cust_pkg;
use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $disable_agentcheck);
use FS::UID qw( getotaker dbh );
use FS::Record qw( qsearch qsearchs );
use FS::cust_svc;
@ISA = qw( FS::Record );
+$disable_agentcheck = 0;
+
sub _cache {
my $self = shift;
my ( $hashref, $cache ) = @_;
my $cust_main = $self->cust_main;
return "Unknown customer ". $self->custnum unless $cust_main;
- my $agent = qsearchs( 'agent', { 'agentnum' => $cust_main->agentnum } );
- my $pkgpart_href = $agent->pkgpart_hashref;
- return "agent ". $agent->agentnum. " can't purchase pkgpart ". $self->pkgpart
- unless $pkgpart_href->{ $self->pkgpart };
+ unless ( $disable_agentcheck ) {
+ my $agent = qsearchs( 'agent', { 'agentnum' => $cust_main->agentnum } );
+ my $pkgpart_href = $agent->pkgpart_hashref;
+ return "agent ". $agent->agentnum.
+ " can't purchase pkgpart ". $self->pkgpart
+ unless $pkgpart_href->{ $self->pkgpart };
+ }
$self->SUPER::insert;
&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