From: jeff <jeff>
Date: Wed, 31 Jan 2007 18:28:51 +0000 (+0000)
Subject: possible solution to ticket 1455
X-Git-Tag: TRIXBOX_2_6~696
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5e8eef98b3f9963f835504ddfc1dbf146be07430

possible solution to ticket 1455
---

diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index dadd236e7..c2a1dabf3 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -31,6 +31,10 @@ tie %options, 'Tie::IxHash',
     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_replace {
 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';