diff options
| author | ivan <ivan> | 2002-06-21 09:56:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-21 09:56:08 +0000 |
| commit | 78f11947cf539b3e258e7a7804c13dcd2a2f1160 (patch) | |
| tree | 73822dc352ed4f701488a85c0ec523c634bffaca | |
| parent | 90a4aec660be666dda630895d4e96e87a7a04028 (diff) | |
better error messages on uid duplicates... uid stuff still needs to be
rewritten for new exports
| -rw-r--r-- | FS/FS/svc_acct.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 1d68fc99e..e2ac18639 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -289,7 +289,7 @@ sub insert { my $part_svc = qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); return "Unknown svcpart" unless $part_svc; - return "uid in use" + return "uid ". $self->uid. " in use" if $part_svc->part_svc_column('uid')->columnflag ne 'F' && qsearchs( 'svc_acct', { 'uid' => $self->uid } ) && $self->username !~ /^(hyla)?fax$/ |