SF.net SVN: ledger-smb: [666] branches/1.2

[..hidden..]

Revision: 666
          http://svn.sourceforge.net/ledger-smb/?rev=666&view=rev
Author:   einhverfr
Date:     2006-11-20 16:44:40 -0800 (Mon, 20 Nov 2006)

Log Message:
-----------
Fixing logout bug.

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/bin/login.pl

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2006-11-21 00:40:54 UTC (rev 665)
+++ branches/1.2/LedgerSMB/Form.pm	2006-11-21 00:44:40 UTC (rev 666)
@@ -307,7 +307,7 @@
 	my ($self, $msg) = @_;
 	use List::Util qw(first);
 
-	if ($self->{callback}) {
+	if ($self->{callback} || !$msg){
 
 		main::redirect();
 	} else {

Modified: branches/1.2/bin/login.pl
===================================================================
--- branches/1.2/bin/login.pl	2006-11-21 00:40:54 UTC (rev 665)
+++ branches/1.2/bin/login.pl	2006-11-21 00:44:40 UTC (rev 666)
@@ -348,7 +348,7 @@
 
 
 sub logout {
-	$form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}";
+	$form->{callback} = "";
 	$form->{endsession} = 1;
 	Session::session_destroy($form);
 	$form->redirect;


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