doco on creating database manually
[freeside.git] / FS / FS / svc_acct.pm
index 11f09a1..49a55e9 100644 (file)
@@ -553,7 +553,8 @@ sub replace {
                                'domsvc'   => $new->domsvc,
                              } );
   {
-    no warnings 'numeric';
+    #no warnings 'numeric';  #alas, a 5.006-ism
+    local($^W) = 0;
     return "Can't change uid!" if $old->uid != $new->uid;
   }
 
@@ -634,7 +635,9 @@ Called by the suspend method of FS::cust_pkg (see L<FS::cust_pkg>).
 sub suspend {
   my $self = shift;
   my %hash = $self->hash;
-  unless ( $hash{_password} =~ /^\*SUSPENDED\* / ) {
+  unless ( $hash{_password} =~ /^\*SUSPENDED\* /
+           || $hash{_password} eq '*'
+         ) {
     $hash{_password} = '*SUSPENDED* '.$hash{_password};
     my $new = new FS::svc_acct ( \%hash );
     $new->replace($self);
@@ -963,7 +966,7 @@ sub ssh {
 
 =head1 VERSION
 
-$Id: svc_acct.pm,v 1.57 2001-12-19 14:30:12 ivan Exp $
+$Id: svc_acct.pm,v 1.60 2001-12-20 02:09:52 ivan Exp $
 
 =head1 BUGS