diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 00:01:16 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 00:01:16 +0000 |
commit | c3c9871298597e417d67f691fca24cd913ef802a (patch) | |
tree | c743f476ab241b97069518fbd90f89a1f2ae5f00 /bin/hr.pl | |
parent | 0dc5b99d6e3bd63c2e20e131b39b38503add2dc0 (diff) |
Moved all scalars out of ledger-smb.conf
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@268 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/hr.pl')
-rwxr-xr-x | bin/hr.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -716,7 +716,7 @@ sub save_employee { # if it is a login change memberfile and .conf if ($form->{employeelogin}) { - $user = new User $memberfile, $form->{employeelogin}; + $user = new User ${LedgerSMB::Sysconfig::memberfile}, $form->{employeelogin}; for (qw(name email role)) { $user->{$_} = $form->{$_} } @@ -726,7 +726,7 @@ sub save_employee { for (qw(dbpasswd password)) { $user->{"old_$_"} = $user->{$_} } $user->{packpw} = 1; - $user->save_member($memberfile, $userspath) if $user->{login}; + $user->save_member(${LedgerSMB::Sysconfig::memberfile}, ${LedgerSMB::Sysconfig::userspath}) if $user->{login}; } $form->redirect($locale->text('Employee saved!')); |