From: ivan <ivan>
Date: Thu, 1 Jul 2004 12:45:04 +0000 (+0000)
Subject: fix silly bug editing agents
X-Git-Tag: BEFORE_FINAL_MASONIZE~999
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1239c0a9987e36f2031cf56dbbe99a7ce5fd67bc;ds=sidebyside

fix silly bug editing agents
---

diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm
index 7c69dfbf2..a9e41a666 100644
--- a/FS/FS/agent.pm
+++ b/FS/FS/agent.pm
@@ -127,7 +127,7 @@ sub check {
     if ( length($self->username) ) {
       my $conflict = qsearchs('agent', { 'username' => $self->username } );
       return 'duplicate agent username (with '. $conflict->agent. ')'
-        if $conflict;
+        if $conflict && $conflict->agentnum != $self->agentnum;
       $error = $self->ut_text('password'); # ut_text... arbitrary choice
     } else {
       $self->_password('');