$error = $cust_main->recharge_prepay( $prepaid );
} elsif ( $payby =~ /^(CARD|DCRD|CHEK|DCHK|LECB|BILL|COMP)$/ ) {
my $part_pkg = $svc_acct->cust_svc->cust_pkg->part_pkg;
$error = $cust_main->recharge_prepay( $prepaid );
} elsif ( $payby =~ /^(CARD|DCRD|CHEK|DCHK|LECB|BILL|COMP)$/ ) {
my $part_pkg = $svc_acct->cust_svc->cust_pkg->part_pkg;
my %rhash = map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_) }
grep { $part_pkg->option($_, 1) }
qw ( recharge_seconds recharge_upbytes recharge_downbytes
my %rhash = map { $_ =~ /^recharge_(.*)$/; $1, $part_pkg->option($_) }
grep { $part_pkg->option($_, 1) }
qw ( recharge_seconds recharge_upbytes recharge_downbytes
$error = $cust_main->charge($amount, "Recharge " . $svc_acct->label,
$description, $part_pkg->taxclass);
$error = $cust_main->charge($amount, "Recharge " . $svc_acct->label,
$description, $part_pkg->taxclass);