diff options
| -rw-r--r-- | FS/FS/part_export/sqlradius.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index 63927780b..e1d862c39 100644 --- a/FS/FS/part_export/sqlradius.pm +++ b/FS/FS/part_export/sqlradius.pm @@ -1,12 +1,14 @@ package FS::part_export::sqlradius; -use vars qw(@ISA %info %options $notes1 $notes2); +use vars qw(@ISA $DEBUG %info %options $notes1 $notes2); use Tie::IxHash; use FS::Record qw( dbh ); use FS::part_export; @ISA = qw(FS::part_export); +$DEBUG = 0; + tie %options, 'Tie::IxHash', 'datasrc' => { label=>'DBI data source ' }, 'username' => { label=>'Database username' }, @@ -75,6 +77,7 @@ sub rebless { shift; } sub export_username { my($self, $svc_acct) = (shift, shift); + warn "export_username called on $self with arg $svc_acct" if $DEBUG; $svc_acct->username; } |