X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2Fsvc_acct_sm.pm;h=c757ab0730c9a26f6cf606d088c63e4173cfc596;hb=6a5ebc353a96181fbef6bf4bbfcc5c205f1ef15d;hp=75e7b028108f9d6db54efeacc9a72416d723a284;hpb=4a5b07fb140e6abe0c29122cf349ff3f917e9610;p=freeside.git

diff --git a/site_perl/svc_acct_sm.pm b/site_perl/svc_acct_sm.pm
index 75e7b0281..c757ab073 100644
--- a/site_perl/svc_acct_sm.pm
+++ b/site_perl/svc_acct_sm.pm
@@ -7,6 +7,8 @@ use FS::svc_Common;
 use FS::cust_svc;
 use FS::SSH qw(ssh);
 use FS::Conf;
+use FS::svc_acct;
+use FS::svc_domain;
 
 @ISA = qw( FS::svc_Common );
 
@@ -103,6 +105,7 @@ sub insert {
   local $SIG{QUIT} = 'IGNORE';
   local $SIG{TERM} = 'IGNORE';
   local $SIG{TSTP} = 'IGNORE';
+  local $SIG{PIPE} = 'IGNORE';
 
   $error=$self->check;
   return $error if $error;
@@ -157,7 +160,7 @@ sub replace {
 
   return "Domain username (domuser) in use for this domain (domsvc)"
     if ( $old->domuser ne $new->domuser
-         || $old->domsvc  ne $new->domsvc
+         || $old->domsvc != $new->domsvc
        )  && qsearchs('svc_acct_sm',{
          'domuser'=> $new->domuser,
          'domsvc' => $new->domsvc,
@@ -229,7 +232,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: svc_acct_sm.pm,v 1.4 1998-12-30 00:30:46 ivan Exp $
+$Id: svc_acct_sm.pm,v 1.7 1999-04-07 14:40:15 ivan Exp $
 
 =head1 BUGS