From: ivan <ivan>
Date: Mon, 24 Nov 2008 10:47:13 +0000 (+0000)
Subject: fix phone_sqlradius CDR population?, RT#4100
X-Git-Tag: root_of_webpay_support~235
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=1e541a422f565983389a21406c117178adedeb73;p=freeside.git

fix phone_sqlradius CDR population?, RT#4100
---

diff --git a/FS/FS/part_export/phone_sqlradius.pm b/FS/FS/part_export/phone_sqlradius.pm
index eb867a273..24f784534 100644
--- a/FS/FS/part_export/phone_sqlradius.pm
+++ b/FS/FS/part_export/phone_sqlradius.pm
@@ -4,7 +4,7 @@ use vars qw(@ISA $DEBUG %info );
 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 @@ sub update_svc {
 
   my $str2time = str2time_sql( $dbh->{Driver}->{Name} );
 
-
-
   my @fields = qw( radacctid username realm acctsessiontime );
 
   my @param = ();
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index e1a08fef8..20475c5a5 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -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 FS::export_svc;
 use Carp qw( cluck );
 
 @ISA = qw(FS::part_export);
+@EXPORT_OK = qw( sqlradius_connect );
 
 $DEBUG = 0;