longname => 'Western Union',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
+ 'IDTP' => {
+ tinyname => 'IDT',
+ shortname => 'IDT Payment Services',
+ longname => 'IDT Payment Services',
+ cust_main => '', #this is a payment type only
+ },
'MCRD' => { #not the same as DCRD
tinyname => 'card',
shortname => 'Manual credit card', # initial payment, then billing
longname => 'Manual credit card',
cust_main => 'BILL', #this is a payment type only, customers go to BILL...
},
+ 'MCHK' => { #not the same as DCHK
+ tinyname => 'card',
+ shortname => 'Manual electronic check', # initial payment, then billing
+ longname => 'Manual electronic check',
+ cust_main => 'BILL', #this is a payment type only, customers go to BILL...
+ },
'APPL' => {
tinyname => 'apple store',
shortname => 'Apple Store',
},
'EDI' => {
tinyname => 'EDI',
- shortname => 'Electronic Debit',
- longname => 'Electronic Debit',
+ shortname => 'Electronic Debit (EDI)',
+ longname => 'Electronic Debit (EDI)',
cust_main => '', #not a customer type
},
'WIRE' => {
%payby2bop = (
'CARD' => 'CC',
'CHEK' => 'ECHECK',
- 'MCRD' => 'CC',
+ 'MCRD' => 'CC', #? but doesn't MCRD mean _offline_ card? i think it got
+ # overloaded for third-party card payments -- but no one is
+ # doing those other than paypal now
+ 'PPAL' => 'PAYPAL',
);
sub payby2bop {
map { $_ => $hash{$_}->{longname} } $self->cust_payby;
}
+=item payment_payby
+
+Returns all values of payby that can be used by payments.
+
+=cut
+
+sub payment_payby {
+ my $self = shift;
+ grep { ! exists $hash{$_}->{cust_pay} } $self->payby;
+}
+
+=item payment_payby2longname
+
+Returns hash, keys are L</payment_payby> types, values are payby longname.
+
+=cut
+
+sub payment_payby2longname {
+ my $self = shift;
+ map { $_ => $hash{$_}->{longname} } $self->payment_payby;
+}
+
+=item payment_payby2payname
+
+Returns hash, keys are L</payment_payby> types, values are payby payname.
+
+=cut
+
+sub payment_payby2payname {
+ my $self = shift;
+ map { $_ => $self->payname($_) } $self->payment_payby;
+}
+
=back
=head1 BUGS