freeside/FS/FS/part_pkg voip_sqlradacct.pm,1.2,1.3

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory pouncequick:/tmp/cvs-serv27894/FS/FS/part_pkg

Modified Files:
	voip_sqlradacct.pm 
Log Message:
fix up some bugs in VoIP rating

Index: voip_sqlradacct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/voip_sqlradacct.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- voip_sqlradacct.pm	1 Dec 2004 03:35:05 -0000	1.2
+++ voip_sqlradacct.pm	31 Dec 2004 00:48:08 -0000	1.3
@@ -1,7 +1,7 @@
 package FS::part_pkg::voip_sqlradacct;
 
 use strict;
-use vars qw(@ISA %info);
+use vars qw(@ISA $DEBUG %info);
 use FS::Record qw(qsearchs qsearch);
 use FS::part_pkg;
 #use FS::rate;
@@ -9,6 +9,8 @@
 
 @ISA = qw(FS::part_pkg);
 
+$DEBUG = 0;
+
 %info = (
     'name' => 'VoIP rating by plan of CDR records in an SQL RADIUS radacct table',
     'fields' => {
@@ -52,6 +54,7 @@
     foreach my $session (
       $cust_svc->get_session_history( $last_bill, $$sdate )
     ) {
+      warn "rating session $session" if $DEBUG;
 
       ###
       # look up rate details based on called station id