From: ivan <ivan>
Date: Fri, 30 Jan 2004 03:06:05 +0000 (+0000)
Subject: don't prepend *SUSPENDED* to passwords to suspend an account
X-Git-Tag: freeside_1_4_2beta1~280
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=7ed0299ebb7a52996f78a853a8c74b066802f6f0;p=freeside.git

don't prepend *SUSPENDED* to passwords to suspend an account
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index e7812bfe5..8c99c9e48 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -630,16 +630,6 @@ Calls any export-specific suspend hooks.
 sub suspend {
   my $self = shift;
   return "can't suspend system account" if $self->_check_system;
-  my %hash = $self->hash;
-  unless ( $hash{_password} =~ /^\*SUSPENDED\* /
-           || $hash{_password} eq '*'
-         ) {
-    $hash{_password} = '*SUSPENDED* '.$hash{_password};
-    my $new = new FS::svc_acct ( \%hash );
-    my $error = $new->replace($self);
-    return $error if $error;
-  }
-
   $self->SUPER::suspend;
 }