diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-03 05:47:31 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-03 05:47:31 +0000 |
| commit | 50d0e6538a3d9f57310d8c9c8f7dc472ec5b7535 (patch) | |
| tree | cb4e3488cc9455e1ef96edbcc8bf74974dc8ea37 | |
| parent | 6948594e039c9c270bd2b71961b7818fa214eb2f (diff) | |
Ensuring that $form and $lsmb->redirect terminate
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1346 4979c152-3d1c-0410-bac9-87ea11338e46
| -rwxr-xr-x | LedgerSMB.pm | 1 | ||||
| -rw-r--r-- | LedgerSMB/Form.pm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index c75482f3..6192fe8d 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -350,6 +350,7 @@ sub redirect { if ( $self->{callback} || !$msg ) { main::redirect(); + exit; } else { diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 6a2ae3b3..ff01295e 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -343,6 +343,7 @@ sub redirect { if ( $self->{callback} || !$msg ) { main::redirect(); + exit; } else { |