1 files changed, 1 insertions, 1 deletions
diff --git a/bin/hr.pl b/bin/hr.pl
index c124f0a9..c8f53549 100755
--- a/bin/hr.pl
+++ b/bin/hr.pl
@@ -716,7 +716,7 @@ sub save_employee {
 
   # if it is a login change memberfile and .conf
   if ($form->{employeelogin}) {
-    $user = new User ${LedgerSMB::Sysconfig::memberfile}, $form->{employeelogin};
+    $user = LedgerSMB::User->new(${LedgerSMB::Sysconfig::memberfile}, $form->{employeelogin});
 
     for (qw(name email role)) { $user->{$_} = $form->{$_} }