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
foreach my $payby ( $cgi->param('payby') ) {
$payby =~
- /^(CARD|CHEK|BILL|CASH|PPAL|APPL|ANRD|PREP|WIRE|WEST|EDI|MCRD|MCHK)(-(VisaMC|Amex|Discover|Maestro|Tokenized))?$/
+ /^(CARD|CHEK|BILL|CASH|PPAL|APPL|ANRD|PREP|WIRE|WEST|IDTP|EDI|MCRD|MCHK)(-(VisaMC|Amex|Discover|Maestro|Tokenized))?$/
or die "illegal payby $payby";
my $payby_search = "$table.payby = '$1'";
options => [ keys(\%payby) ],
labels => \%payby,
multiple => 1,
- size => 16
+ size => 18,
&>
<TR>
'PREP' => 'prepaid card',
'WIRE' => 'wire transfer',
'WEST' => 'Western Union',
+ 'IDTP' => 'IDT Payment Services',
'EDI' => 'Electronic Debit (EDI)',
'MCRD' => 'manual credit card',
'MCHK' => 'manual electronic check',