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".__LINE__.": 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');

my $pprequest   = $in->{'pprequest'} || charge_param('pprequest') || 'setrequest'; \
 # 'setrequest' must be the default for standard Paypal. 
my $username    = charge_param('id') or die "No username id\n";
my $password    = charge_param('password') or die "No password\n";
my $signature   = charge_param('signature') or die "No signature found\n"; \
 # use this as certificate is broken
my $ppcheckreturn = $::Values->{ppcheckreturn} || 'ord/checkout';
my $checkouturl = $Tag->area({ href => "$ppcheckreturn" });

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

my $amount =  charge_param('amount') || Vend::Interpolate::total_cost() \
 || $::Values->{amount}; # required
$amount =~ s/^\D*//g;
$amount =~ s/\s*//g;