- ACCT => 'card_number',
- CVV2 => 'cvv2',
- EXPDATE => \( $month.$year ), # MM/YY from 'expiration'
- AMT => 'amount',
-
- FIRSTNAME => 'first_name',
- LASTNAME => 'last_name',
- NAME => 'name',
- EMAIL => 'email',
- COMPANYNAME => 'company',
- STREET => 'address',
- CITY => 'city',
- STATE => 'state',
- ZIP => \$zip, # 'zip' with non-numbers removed
- COUNTRY => 'country',
+ # (BUG?) VENDOR B::OP:PayflowPro < 0.05 backward compatibility. If
+ # vendor not set use login (although test indicate undef vendor is ok)
+ VENDOR => $self->vendor ? \( $self->vendor ) : 'login',
+ PARTNER => \( $self->partner ),
+ USER => 'login',
+ PWD => 'password',
+ TRXTYPE => 'action',
+ TENDER => 'type',
+ ORIGID => 'order_number',
+ COMMENT1 => 'description',
+ COMMENT2 => 'invoice_number',
+
+ ACCT => 'card_number',
+ CVV2 => 'cvv2',
+ EXPDATE => \( $month . $year ), # MM/YY from 'expiration'
+ AMT => 'amount',
+
+ FIRSTNAME => 'first_name',
+ LASTNAME => 'last_name',
+ NAME => 'name',
+ EMAIL => 'email',
+ COMPANYNAME => 'company',
+ STREET => 'address',
+ CITY => 'city',
+ STATE => 'state',
+ ZIP => \$zip, # 'zip' with non-numbers removed
+ COUNTRY => 'country',