freeside/FS/FS/part_export sqlradius.pm,1.14,1.15

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory pouncequick:/tmp/cvs-serv9863

Modified Files:
	sqlradius.pm 
Log Message:
add debug flag to sqlradius export

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- sqlradius.pm	20 Nov 2004 17:26:55 -0000	1.14
+++ sqlradius.pm	28 Dec 2004 23:30:58 -0000	1.15
@@ -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 export_username {
   my($self, $svc_acct) = (shift, shift);
+  warn "export_username called on $self with arg $svc_acct" if $DEBUG;
   $svc_acct->username;
 }