From 6d7ad70164576736bbb510bbfe33d9ed38ea8bac Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 23 Mar 2007 19:57:49 +0000 Subject: Fixing Access Denied on Admin logout git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@998 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/admin.pl b/bin/admin.pl index c035ff9f..40979063 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -43,6 +43,7 @@ use LedgerSMB::Session; $form = new Form; + $locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or $form->error(__FILE__.':'.__LINE__.': '."Locale not loaded: $!\n"); $locale->encoding('UTF-8'); @@ -56,7 +57,6 @@ $form->{favicon} = "favicon.ico"; $form->{timeout} = 600; require "bin/pw.pl"; - # customization if (-f "bin/custom/$form->{script}") { eval { require "bin/custom/$form->{script}"; }; @@ -143,7 +143,7 @@ sub login { sub logout { - + $form->{login} = 'admin'; $form->{callback} = "admin.pl?action=adminlogin"; Session::session_destroy($form); $form->redirect($locale->text('You are logged out')); -- cgit v1.2.3