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 eb867a2..24f7845 100644 (file)
--- 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 e1a08fe..20475c5 100644 (file)
--- 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;