don't send when password is supplied, RT#34705

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index 89bfb74..38b7fd7 100644 (file)
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -259,7 +259,10 @@ sub insert {
   }
 
   if (      $link_hash{'selfservice_access'} eq 'R'
   }
 
   if (      $link_hash{'selfservice_access'} eq 'R'

-       or ( $link_hash{'selfservice_access'} && $cust_contact )
+       or ( $link_hash{'selfservice_access'}
+            && $cust_contact
+            && ! length($self->_password)
+          )

      )
   {
     my $error = $self->send_reset_email( queue=>1 );
      )
   {
     my $error = $self->send_reset_email( queue=>1 );