use strict;
use vars qw(%hash %payby2bop);
use Tie::IxHash;
+use Business::CreditCard;
=head1 NAME
my @payby = FS::payby->payby;
+ my $bool = FS::payby->can_payby('cust_main', 'CARD');
+
tie my %payby, 'Tie::IxHash', FS::payby->payby2longname
my @cust_payby = FS::payby->cust_payby;
# paybys can be any/all of:
# - a customer payment type (cust_main.payby)
-# - a payment or refund type (cust_pay.payby)
+# - a payment or refund type (cust_pay.payby, cust_pay_batch.payby, cust_refund.payby)
# - an event type (part_bill_event.payby)
tie %hash, 'Tie::IxHash',
shortname => 'Billing',
longname => 'Billing',
},
+ 'PREP' => {
+ tinyname => 'prepaid card',
+ shortname => 'Prepaid card',
+ longname => 'Prepaid card',
+ cust_main => 'BILL', #this is a payment type only, customers go to BILL...
+ },
'CASH' => {
tinyname => 'cash',
shortname => 'Cash', # initial payment, then billing
tinyname => 'comp',
shortname => 'Complimentary',
longname => 'Complimentary',
+ cust_pay => '', # (free) is depricated as a payment type in cust_pay
},
- 'DCLN' => { # This is only an event.
- tinyname => 'declined',
- shortname => 'Declined payment',
- longname => 'Declined payment',
-
- #its neither of these..
- cust_main => '',
- cust_pay => '',
-
+ 'CBAK' => {
+ tinyname => 'chargeback',
+ shortname => 'Chargeback',
+ longname => 'Chargeback',
+ cust_main => '', # not a customer type
},
;
keys %hash;
}
+sub can_payby {
+ my( $self, $table, $payby ) = @_;
+
+ #return "Illegal payby" unless $hash{$payby};
+ return 0 unless $hash{$payby};
+
+ $table = 'cust_pay' if $table eq 'cust_pay_batch' || $table eq 'cust_refund';
+ return 0 if exists( $hash{$payby}->{$table} );
+
+ return 1;
+}
+
sub payby2longname {
my $self = shift;
map { $_ => $hash{$_}->{longname} } $self->payby;
}
+sub shortname {
+ my( $self, $payby ) = @_;
+ $hash{$payby}->{shortname};
+}
+
+sub longname {
+ my( $self, $payby ) = @_;
+ $hash{$payby}->{longname};
+}
+
%payby2bop = (
'CARD' => 'CC',
'CHEK' => 'ECHECK',
);
+sub payby2bop {
+ my( $self, $payby ) = @_;
+ $payby2bop{ $self->payby2payment($payby) };
+}
+
+sub payby2payment {
+ my( $self, $payby ) = @_;
+ $hash{$payby}{'cust_pay'} || $payby;
+}
+
sub cust_payby {
my $self = shift;
grep { ! exists $hash{$_}->{cust_main} } $self->payby;
map { $_ => $hash{$_}->{longname} } $self->cust_payby;
}
-sub payinfo_check{
- my($payby, $payinforef) = @_;
-
- if ($payby eq 'CARD') {
- $$payinforef =~ s/\D//g;
- if ($$payinforef){
- $$payinforef =~ /^(\d{13,16})$/
- or return "Illegal (mistyped?) credit card number (payinfo)";
- $$payinforef = $1;
- validate($$payinforef) or return "Illegal credit card number";
- return "Unknown card type" if cardype($$payinforef) eq "Unknown";
- } else {
- $$payinforef="N/A";
- }
- } else {
- $$payinforef =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]*)$/
- or return "Illegal text (payinfo)";
- $$payinforef = $1;
- }
- '';
-}
-
=back
=head1 BUGS