From 5e8eef98b3f9963f835504ddfc1dbf146be07430 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 31 Jan 2007 18:28:51 +0000
Subject: [PATCH] possible solution to ticket 1455

---
 FS/FS/part_export/sqlradius.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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';
-- 
2.11.0