From: ivan <ivan>
Date: Fri, 21 Jun 2002 09:56:08 +0000 (+0000)
Subject: better error messages on uid duplicates... uid stuff still needs to be
X-Git-Tag: freeside_1_4_0_beta1~73
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=78f11947cf539b3e258e7a7804c13dcd2a2f1160

better error messages on uid duplicates... uid stuff still needs to be
rewritten for new exports
---

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$/