use FS::part_pkg;
use FS::part_bill_event;
use FS::cust_bill_event;
-use FS::msgcat qw(gettext);
+use FS::Msgcat qw(gettext);
@ISA = qw( FS::Record );
my $payinfo = $self->payinfo;
$payinfo =~ s/\D//g;
$payinfo =~ /^(\d{13,16})$/
- or return gettext('invalid_catd'); # . ": ". $self->payinfo;
+ or return gettext('invalid_card'); # . ": ". $self->payinfo;
$payinfo = $1;
$self->payinfo($payinfo);
validate($payinfo)
- or return gettext('invalid_catd'); # . ": ". $self->payinfo;
+ or return gettext('invalid_card'); # . ": ". $self->payinfo;
return gettext('unknown_card_type')
if cardtype($self->payinfo) eq "Unknown";
sub agent {
my $self = shift;
- qsearchs( 'agent', { 'agent' => $self->agentnum } );
+ qsearchs( 'agent', { 'agentnum' => $self->agentnum } );
}
=item bill OPTIONS