diff options
author | ivan <ivan> | 2004-11-13 05:32:32 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-11-13 05:32:32 +0000 |
commit | 733fced5b6b59492604bb1097f68f7c8fa9a282e (patch) | |
tree | cd31b0de67be3959238133f50487e939a806bc87 /FS/FS | |
parent | 70bfab976b302a8a407f7e921610983d9ac54ebd (diff) |
fix problem with dup checking manifesting as Argument isn't numeric errors
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/svc_acct.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 58442c956..f5f3978a8 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -863,12 +863,12 @@ sub _check_duplicate { my $global_unique = $conf->config('global_unique-username'); - my @dup_user = grep { $svcpart != $_->svcpart } + my @dup_user = grep { !$_->svcnum || $_->svcnum != $self->svcnum } qsearch( 'svc_acct', { 'username' => $self->username } ); return gettext('username_in_use') if $global_unique eq 'username' && @dup_user; - my @dup_userdomain = grep { $svcpart != $_->svcpart } + my @dup_userdomain = grep { !$_->svcnum || $_->svcnum != $self->svcnum } qsearch( 'svc_acct', { 'username' => $self->username, 'domsvc' => $self->domsvc } ); return gettext('username_in_use') |