[freeside-commits] freeside/FS/FS/part_export sqlradius.pm, 1.22, 1.23

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv11529

Modified Files:
	sqlradius.pm 
Log Message:
possible solution to ticket 1455

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- sqlradius.pm	30 Nov 2006 02:27:55 -0000	1.22
+++ sqlradius.pm	31 Jan 2007 18:28:51 -0000	1.23
@@ -31,6 +31,10 @@
     type  => 'checkbox',
     label => 'Show the Called-Station-ID on session reports',
   },
+  'keep_password' => {
+    type  => 'checkbox',
+    label => 'Do not change the password on suspend and unsuspend events',
+  },
   'groups_susp_reason' => { label =>
                              'Radius group mapping to reason (via template user)',
                             type  => 'textarea',
@@ -201,7 +205,8 @@
 sub _export_suspend {
   my( $self, $svc_acct ) = (shift, shift);
 
-  my $new = $svc_acct->clone_suspended;
+  my $new = $self->option('keep_password') ? $svc_acct
+                            : $svc_acct->clone_suspended;
 
   local $SIG{HUP} = 'IGNORE';
   local $SIG{INT} = 'IGNORE';