SF.net SVN: ledger-smb: [998] branches/1.2/bin/admin.pl

[..hidden..]

Revision: 998
          http://svn.sourceforge.net/ledger-smb/?rev=998&view=rev
Author:   einhverfr
Date:     2007-03-23 12:57:49 -0700 (Fri, 23 Mar 2007)

Log Message:
-----------
Fixing Access Denied on Admin logout

Modified Paths:
--------------
    branches/1.2/bin/admin.pl

Modified: branches/1.2/bin/admin.pl
===================================================================
--- branches/1.2/bin/admin.pl	2007-03-23 17:39:00 UTC (rev 997)
+++ branches/1.2/bin/admin.pl	2007-03-23 19:57:49 UTC (rev 998)
@@ -43,6 +43,7 @@
 
 $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->{timeout} = 600;
 
 require "bin/pw.pl";
-
 # customization
 if (-f "bin/custom/$form->{script}") {
 	eval { require "bin/custom/$form->{script}"; };
@@ -143,7 +143,7 @@
 
 
 sub logout {
-
+	$form->{login} = 'admin';
 	$form->{callback} = "admin.pl?action=adminlogin";
 	Session::session_destroy($form);
 	$form->redirect($locale->text('You are logged out'));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.