From 08a348853e9935d550afc864212a4d8e56a9eee8 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Mon, 13 Nov 2006 04:18:10 +0000 Subject: Adding proper redirect bits lots of places git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@550 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/bin/admin.pl b/bin/admin.pl index a0e8ce12..ee0b8afb 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -698,7 +698,7 @@ sub form_header { sub save { - $form->{callback} = "admin.pl?action=login"; + $form->{callback} = "admin.pl?action=list_users"; # no driver checked $form->error(__FILE__.':'.__LINE__.': '.$locale->text('Database Driver not checked!')) unless $form->{dbdriver}; @@ -818,6 +818,8 @@ sub save { sub delete { + $form->callback = "admin.pl?action=list_users"; + $form->{templates} = ($form->{templates}) ? "${LedgerSMB::Sysconfig::templates}/$form->{templates}" : "$templates/$form->{login}"; # scan %user for $templatedir @@ -901,6 +903,9 @@ sub change_admin_password { sub change_password { + # Do we want to force a login after changing the password? + $form->callback = "admin.pl?"; + $form->error(__FILE__.':'.__LINE__.': '.$locale->text('Passwords do not match!')) if $form->{new_password} ne $form->{confirm_password}; $root->{password} = $form->{new_password}; $root->{'root login'} = 1; @@ -1050,6 +1055,7 @@ sub continue { sub dbupdate { + $form->callback = "admin.pl?action=list_users"; LedgerSMB::User->dbupdate(\%$form); $form->redirect($locale->text('Dataset updated!')); -- cgit v1.2.3