[Astpp-commit] SF.net SVN: astpp:[2269] trunk/scripts/astpp-common.pl

[<dar...@us...>]

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.