[freeside-commits] freeside/FS/FS/part_export sqlradius.pm, 1.41, 1.42 phone_sqlradius.pm, 1.2, 1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv18360

Modified Files:
	sqlradius.pm phone_sqlradius.pm 
Log Message:
fix phone_sqlradius CDR population?, RT#4100

Index: phone_sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/phone_sqlradius.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- phone_sqlradius.pm	24 Oct 2008 02:54:06 -0000	1.2
+++ phone_sqlradius.pm	24 Nov 2008 10:47:13 -0000	1.3
@@ -4,7 +4,7 @@
 use Tie::IxHash;
 use FS::Record qw( dbh str2time_sql ); #qsearch qsearchs );
 #use FS::part_export;
-use FS::part_export::sqlradius;
+use FS::part_export::sqlradius qw(sqlradius_connect);
 #use FS::svc_phone;
 #use FS::export_svc;
 #use Carp qw( cluck );
@@ -98,8 +98,6 @@
 
   my $str2time = str2time_sql( $dbh->{Driver}->{Name} );
 
-
-
   my @fields = qw( radacctid username realm acctsessiontime );
 
   my @param = ();

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- sqlradius.pm	6 Nov 2008 22:53:25 -0000	1.41
+++ sqlradius.pm	24 Nov 2008 10:47:13 -0000	1.42
@@ -1,6 +1,7 @@
 package FS::part_export::sqlradius;
 
-use vars qw(@ISA $DEBUG %info %options $notes1 $notes2);
+use vars qw(@ISA @EXPORT_OK $DEBUG %info %options $notes1 $notes2);
+use Exporter;
 use Tie::IxHash;
 use FS::Record qw( dbh qsearch qsearchs str2time_sql );
 use FS::part_export;
@@ -9,6 +10,7 @@
 use Carp qw( cluck );
 
 @ISA = qw(FS::part_export);
+ at EXPORT_OK = qw( sqlradius_connect );
 
 $DEBUG = 0;