diff -Naur interchange-5.6.0.orig/lib/Vend/Payment/BusinessOnlinePayment.pm interchange-5.6.0/lib/Vend/Payment/BusinessOnlinePayment.pm --- interchange-5.6.0.orig/lib/Vend/Payment/BusinessOnlinePayment.pm 2005-01-24 09:38:59.000000000 -0500 +++ interchange-5.6.0/lib/Vend/Payment/BusinessOnlinePayment.pm 2009-08-26 14:37:23.000000000 -0400 @@ -226,7 +226,7 @@ #processor options! my %ignore = map { $_=>1 } qw(gateway processor id secret transaction ); - my %options = map { $_=>1 } + my %options = map { $_=>($$opt{$_} || $main::Variable{"MV_PAYMENT_" . $_ }) } grep { !$ignore{$_} } ( keys(%$opt), map { s/^MV_PAYMENT_//; lc($_); }