From c3c9871298597e417d67f691fca24cd913ef802a Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 24 Oct 2006 00:01:16 +0000
Subject: 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
---
 bin/hr.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bin/hr.pl')

diff --git a/bin/hr.pl b/bin/hr.pl
index 93f11b67..c124f0a9 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 $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!'));
-- 
cgit v1.2.3