summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/Form.pm2
-rwxr-xr-xbin/login.pl2
2 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index dd3db02c..1dee7692 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -307,7 +307,7 @@ sub redirect {
my ($self, $msg) = @_;
use List::Util qw(first);
- if ($self->{callback}) {
+ if ($self->{callback} || !$msg){
main::redirect();
} else {
diff --git a/bin/login.pl b/bin/login.pl
index d807ed26..11a5e82a 100755
--- a/bin/login.pl
+++ b/bin/login.pl
@@ -348,7 +348,7 @@ sub login {
sub logout {
- $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}";
+ $form->{callback} = "";
$form->{endsession} = 1;
Session::session_destroy($form);
$form->redirect;