'BILL' => {
tinyname => 'billing',
shortname => 'Billing',
+ payname => 'Check',
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
longname => 'Chargeback',
cust_main => '', # not a customer type
},
- 'DCLN' => { # This is only an event.
- tinyname => 'declined',
- shortname => 'Batch declined payment',
- longname => 'Batch declined payment',
-
- #its neither of these..
- cust_main => '',
- cust_pay => '',
-
- },
;
sub 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';
+ $table = 'cust_pay' if $table =~ /^cust_(pay_pending|pay_batch|pay_void|refund)$/;
return 0 if exists( $hash{$payby}->{$table} );
return 1;
$hash{$payby}->{shortname};
}
+sub payname {
+ my( $self, $payby ) = @_;
+ #$hash{$payby}->{payname} || $hash{$payby}->{shortname};
+ exists($hash{$payby}->{payname})
+ ? $hash{$payby}->{payname}
+ : $hash{$payby}->{shortname};
+}
+
sub longname {
my( $self, $payby ) = @_;
$hash{$payby}->{longname};