From 1e541a422f565983389a21406c117178adedeb73 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 24 Nov 2008 10:47:13 +0000
Subject: [PATCH] fix phone_sqlradius CDR population?, RT#4100

---
 FS/FS/part_export/phone_sqlradius.pm | 4 +---
 FS/FS/part_export/sqlradius.pm       | 4 +++-
 2 files changed, 4 insertions(+), 4 deletions(-)

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;
 
-- 
2.11.0