my $order_id = gen_order_id($opt);
if ($txtype =~ /RELEASE|VOID|ABORT/i) {
    $vendorTxCode = $::Values->{OrigVendorTxCode};
}
else {
    $vendorTxCode = $order_id;
}

# ISO currency code sent to Protx, from the page or fall back to config files.
my $currency = $::Values->{iso_currency_code} || $::Values->{currency_code} \
 || $Vend::Cfg->{Locale}{iso_currency_code}
    || charge_param('currency') || $::Variable->{MV_PAYMENT_CURRENCY} || 'GBP';

my $psp_host = $opt->{host};

# The string sent to Protx.

   $contactFax         =~ s/[^0-9-+ ]//gi;
my $giftAidPayment     = $::Values->{giftaidpayment} || charge_param('giftaidpayment') || '0';
my $authCode           = $::Values->{authcode} || '';
my $clientIPAddress    = $CGI::remote_addr if $CGI::remote_addr;
    $::Values->{authcode} = '';

#::logDebug("SP"..": bCity=$billingCity; mvccType=$cardType; start=$mvccStartDate; \
 issue=$issue;");
  
# ISO currency code sent to SagePay, from the page or fall back to config files.
my $currency = $::Values->{iso_currency_code} || $::Values->{currency_code} \
 || $Vend::Cfg->{Locale}{iso_currency_code} ||
           charge_param('currency') || $::Variable->{MV_PAYMENT_CURRENCY} || 'GBP';

my $psp_host = $opt->{host};
my $convertoffline = charge_param('convertoffline');

#::logDebug("PP"..": sandbox=$::Values->{ppsandbox} ". charge_param \
('sandbox'). "req=".charge_param('pprequest'));
my $pprequest   = charge_param('pprequest') || $::Values->{'pprequest'} \
 || $in->{'pprequest'} || 'setrequest'; # 'setrequest' must be the default for standard Paypal. 
my $sandbox     = charge_param('sandbox') || $::Values->{'sandbox'}  \
|| $::Values->{'ppsandbox'} || ''; # 1 or true to use for testing
   $sandbox     = '' unless $sandbox =~ /sandbox|1/;
   $sandbox     = "sandbox." if $sandbox =~ /sandbox|1/;
   $::Values->{'ppsandbox'} = $::Values->{'sandbox'} = '';
   $::Scratch->{'mstatus'} = '';
#::logDebug("PP"..": sandbox=$sandbox passwd=".charge_param('password')." \
 sig=".charge_param('signature'));

   $currency = $::Values->{'iso_currency_code'} || $::Values->{'currency_code'} \
 || $::Scratch->{'iso_currency_code'}  || 
         $Vend::Cfg->{'Locale'}{'iso_currency_code'} || charge_param \
('currency')  || $::Variable->{MV_PAYMENT_CURRENCY} || 'USD';
   $::Scratch->{'iso_currency_code'} ||= $currency;

# Credentials, prefixed with lower-cased account name if using 'getbalance' \
 for more than one account
my $account     = lc($pprequest) if $pprequest =~ /getbalance_/ || '';