freeside/FS/FS agent.pm,1.7,1.8

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv24968

Modified Files:
	agent.pm 
Log Message:
fix silly bug editing agents

Index: agent.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/agent.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- agent.pm	10 Jun 2004 12:31:31 -0000	1.7
+++ agent.pm	1 Jul 2004 12:45:04 -0000	1.8
@@ -127,7 +127,7 @@
     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('');