}
return %actual;
}

sub charge {
my ($charge_type) = @_;
my (%actual) = map_actual();

#::logDebug ("cyber_charge, mode val=$::Values->{mv_cyber_mode} cgi=$CGI::values{mv_cyber_mode} \
 \
 actual=$actual{cyber_mode}");
my $currency =  $::Variable->{MV_PAYMENT_CURRENCY}
      || $::Variable->{CYBER_CURRENCY}
      || 'usd';
$actual{mv_credit_card_exp_month} =~ s/\D//g;
$actual{mv_credit_card_exp_month} =~ s/^0+//;
  $actual{mv_credit_card_exp_year} =~ s/\D//g;