fix changing employee password, RT#78939

diff --git a/FS/FS/Password_Mixin.pm b/FS/FS/Password_Mixin.pm
index 963fa54..e2e164b 100644 (file)
--- a/FS/FS/Password_Mixin.pm
+++ b/FS/FS/Password_Mixin.pm
@@ -47,7 +47,9 @@ sub is_password_allowed {
   my $self = shift;
   my $password = shift;
 
-  my $cust_main = $self->cust_main;
+  my $cust_main = $self->table eq 'access_user'
+                    ? $self->user_cust_main
+                    : $self->cust_main;
 
   # workaround for non-inserted services
   if ( !$cust_main and $self->get('pkgnum') ) {