projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 78356 - made status bar more responsive on export. Changed svc update to only...
[freeside.git]
/
FS
/
FS
/
cust_main
/
Billing_Realtime.pm
diff --git
a/FS/FS/cust_main/Billing_Realtime.pm
b/FS/FS/cust_main/Billing_Realtime.pm
index
75c310e
..
d286f63
100644
(file)
--- a/
FS/FS/cust_main/Billing_Realtime.pm
+++ b/
FS/FS/cust_main/Billing_Realtime.pm
@@
-1078,9
+1078,11
@@
sub _realtime_bop_result {
}
my $cust_pkg;
}
my $cust_pkg;
+ my $cc_surcharge_text = 'Credit Card Surcharge';
+ $cc_surcharge_text = $conf->config('credit-card-surcharge-text', $self->agentnum) if $conf->exists('credit-card-surcharge-text', $self->agentnum);
my $charge_error = $self->charge({
'amount' => $options{'cc_surcharge'},
my $charge_error = $self->charge({
'amount' => $options{'cc_surcharge'},
- 'pkg' =>
'Credit Card Surcharge'
,
+ 'pkg' =>
$cc_surcharge_text
,
'setuptax' => 'Y',
'cust_pkg_ref' => \$cust_pkg,
});
'setuptax' => 'Y',
'cust_pkg_ref' => \$cust_pkg,
});
@@
-1203,6
+1205,7
@@
sub _realtime_bop_result {
"resolved - error updating status for paypendingnum ".
$cust_pay_pending->paypendingnum. ": $cpp_done_err \n";
warn $e;
"resolved - error updating status for paypendingnum ".
$cust_pay_pending->paypendingnum. ": $cpp_done_err \n";
warn $e;
+ #XXX internal system log $e (what's going on?)
$perror = "$e ($perror)";
}
$perror = "$e ($perror)";
}
@@
-1530,7
+1533,7
@@
sub realtime_refund_bop {
my $payment_gateway =
$self->agent->payment_gateway( 'method' => $options{method} );
my $payment_gateway =
$self->agent->payment_gateway( 'method' => $options{method} );
-
my
( $processor, $login, $password, $namespace ) =
+ ( $processor, $login, $password, $namespace ) =
map { my $method = "gateway_$_"; $payment_gateway->$method }
qw( module username password namespace );
map { my $method = "gateway_$_"; $payment_gateway->$method }
qw( module username password namespace );