},
'EDI' => {
tinyname => 'EDI',
- shortname => 'Electronic Debit',
- longname => 'Electronic Debit',
+ shortname => 'Electronic Debit (EDI)',
+ longname => 'Electronic Debit (EDI)',
cust_main => '', #not a customer type
},
'WIRE' => {
return $hash{$payby}->{realtime};
}
+sub payby2shortname {
+ my $self = shift;
+ map { $_ => $hash{$_}->{shortname} } $self->payby;
+}
+
sub payby2longname {
my $self = shift;
map { $_ => $hash{$_}->{longname} } $self->payby;
'CARD' => 'CC',
'CHEK' => 'ECHECK',
'MCRD' => 'CC',
+ 'PPAL' => 'PAYPAL',
);
sub payby2bop {