SF.net SVN: ledger-smb: [665] trunk

[..hidden..]

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

Log Message:
-----------
Logout works as advertised and script bug is fixed.

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

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

Modified: trunk/bin/login.pl
===================================================================
--- trunk/bin/login.pl	2006-11-21 00:23:49 UTC (rev 664)
+++ trunk/bin/login.pl	2006-11-21 00:40:54 UTC (rev 665)
@@ -348,10 +348,10 @@
 
 
 sub logout {
-	undef $form->{callback};
+	$form->{callback} = "";
 	$form->{endsession} = 1;
 	Session::session_destroy($form);
-	$form->redirect;
+    $form->redirect;
 }
 
 


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