projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
in &invoicing_list, don't search if there's no custnum yet
[freeside.git]
/
site_perl
/
svc_acct_sm.pm
diff --git
a/site_perl/svc_acct_sm.pm
b/site_perl/svc_acct_sm.pm
index
75e7b02
..
b0eee11
100644
(file)
--- a/
site_perl/svc_acct_sm.pm
+++ b/
site_perl/svc_acct_sm.pm
@@
-103,6
+103,7
@@
sub insert {
local $SIG{QUIT} = 'IGNORE';
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
local $SIG{QUIT} = 'IGNORE';
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE';
$error=$self->check;
return $error if $error;
$error=$self->check;
return $error if $error;
@@
-157,7
+158,7
@@
sub replace {
return "Domain username (domuser) in use for this domain (domsvc)"
if ( $old->domuser ne $new->domuser
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,
) && qsearchs('svc_acct_sm',{
'domuser'=> $new->domuser,
'domsvc' => $new->domsvc,
@@
-229,7
+230,7
@@
sub check {
=head1 VERSION
=head1 VERSION
-$Id: svc_acct_sm.pm,v 1.
4 1998-12-30 00:30:4
6 ivan Exp $
+$Id: svc_acct_sm.pm,v 1.
6 1999-01-25 12:26:1
6 ivan Exp $
=head1 BUGS
=head1 BUGS