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

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

Revision: 2148
          http://astpp.svn.sourceforge.net/astpp/?rev=2148&view=rev
Author:   darrenkw
Date:     2007-11-01 22:39:54 -0700 (Thu, 01 Nov 2007)

Log Message:
-----------
A test for the packages issue.

Modified Paths:
--------------
    trunk/astpp-common.pl

Modified: trunk/astpp-common.pl
===================================================================
--- trunk/astpp-common.pl	2007-11-02 05:13:00 UTC (rev 2147)
+++ trunk/astpp-common.pl	2007-11-02 05:39:54 UTC (rev 2148)
@@ -3686,7 +3686,7 @@
 			print STDERR
 "pricelistData: $branddata->{name} $branddata->{markup} $branddata->{inc} $branddata->{status}\n";
 
-my $package = &get_package( $astpp_db, $carddata, $cdrinfo->{dst} );
+			my $package = &get_package( $astpp_db, $carddata, $cdrinfo->{dst} );
                         if ($package->{name}) {
                                 my $counter =
                                   &get_counter( $astpp_db, $package->{name},
@@ -3829,6 +3829,7 @@
 		my $uniqueid = $_;
 		print STDERR gettext("Processing Uniqueid: ") . $_;
 		my $cdrinfo  = &get_cdr( $cdr_db, $uniqueid );
+		my $savedcdrinfo = $cdrinfo;
 		my $tmp = "UPDATE $config->{asterisk_cdr_table} SET cost = 'rating' WHERE uniqueid = " 
 			. $cdr_db->quote($uniqueid) 
 			. " AND cost = 'none'"
@@ -3858,6 +3859,7 @@
 				}
 				elsif ( $cdrinfo->{accountcode} ) {
 					$status = &rating( $astpp_db, $cdr_db, $config, $cdrinfo, $carddata);
+					$cdrinfo = $savedcdrinfo;
 					if ( $status == 1 ) {
 						my $previous_account = $carddata->{number};
 						while ( $carddata->{reseller} ne "" ) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.