diff options
-rwxr-xr-x | LedgerSMB/Form.pm | 2 | ||||
-rwxr-xr-x | bin/login.pl | 2 |
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; |