[Astpp-commit] SF.net SVN: astpp:[2269] trunk/scripts/astpp-common.pl
Brought to you by:
darrenkw
|
From: <dar...@us...> - 2009-10-02 18:51:18
|
Revision: 2269
http://astpp.svn.sourceforge.net/astpp/?rev=2269&view=rev
Author: darrenkw
Date: 2009-10-02 18:32:24 +0000 (Fri, 02 Oct 2009)
Log Message:
-----------
There was an error in the available credit calculations resulting in calls being refused.
Modified Paths:
--------------
trunk/scripts/astpp-common.pl
Modified: trunk/scripts/astpp-common.pl
===================================================================
--- trunk/scripts/astpp-common.pl 2009-10-02 16:22:27 UTC (rev 2268)
+++ trunk/scripts/astpp-common.pl 2009-10-02 18:32:24 UTC (rev 2269)
@@ -3750,11 +3750,12 @@
}
print STDERR "Found pattern: $numdata->{pattern}\n" if $config->{debug} == 1;
$credit = &accountbalance( $astpp_db, $carddata->{number} ); # Find the available credit to the customer.
- print STDERR "Account Balance: $credit" if $config->{debug} == 1;
- $credit_limit = $carddata->{credit_limit};
+ print STDERR "Account Balance: " . $credit * 10000 if $config->{debug} == 1;
+ $credit_limit = $carddata->{credit_limit} * 10000;
print STDERR "Credit Limit: $credit_limit" if $config->{debug} == 1;
- $credit = ($credit * -1) + ($carddata->{credit_limit}); # Add on the accounts credit limit.
+ $credit = ($credit * -1) + ($credit_limit); # Add on the accounts credit limit.
#$credit = $credit / $carddata->{maxchannels} if $carddata->{maxchannels} > 0;
+ print STDERR "Credit: $credit \n" if $config->{debug} == 1;
if ($branddata->{markup} > 0) {
$numdata->{connectcost} =
$numdata->{connectcost} * ( ( $branddata->{markup} / 10000 ) + 1 );
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|