my ($vendor, $amount, $actual, $opt);

# Amount sent to Protx, in 2 decimal places with any cruft removed.
# Defaults to 'amount' from the Accounts IPM or an invoicing system, falling back to IC input
$amount =  $::Values->{amount} || Vend::Interpolate::total_cost();
$amount =~ s/^\D+//g;
$amount =~ s/,//g;
$amount =  sprintf '%.2f', $amount;

# Transaction type sent to Protx.
my $txtype = $::Values->{transtype} || charge_param('txtype') || $::Variable->{MV_PAYMENT_TRANSACTION} \
 || 'PAYMENT';
my $accountType = $::Values->{account_type} || charge_param('account_type') || 'E';
my $payID  = $::Values->{inv_no} || $::Session->{mv_transaction_id} || $::Session->{id}.$amount;

my $logdir;

my ($vendor, $amount, $actual, $opt, $sagepayrequest, $page, $vendorTxCode, $pan, $cardType);

# Amount sent to SagePay, in 2 decimal places with cruft removed.
# Defaults to 'amount' from log_transaction or an invoicing system, falling back to IC input
   $amount =  $::Values->{amount} || charge_param('amount') || Vend::Interpolate::total_cost();
   $amount =~ s/^\D*//g;
   $amount =~ s/\,//g;
   $amount =  sprintf '%.2f', $amount;

# Transaction type sent to SagePay.
my $txtype      = $::Values->{transtype} || charge_param('txtype') | \
| $::Variable->{MV_PAYMENT_TRANSACTION} ||'PAYMENT';
my $vpsprotocol = '2.23';
my $accountType = $::Values->{account_type} || charge_param('account_type') || 'E';
my $payID       = $::Values->{inv_no} || $::Session->{mv_transaction_id} \
 || $::Session->{id}.$amount;
my $logorder    = charge_param('logorder') || 'no'; # Set to 'yes' or \
 '1' to log basket plus data useful when arguing with SagePay over empty responses