summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-13 04:18:10 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-13 04:18:10 +0000
commit08a348853e9935d550afc864212a4d8e56a9eee8 (patch)
tree36c5aa8787741ded71c3dd0603e07f8bf6c7017d
parentff0aaf696591a9eb089df9677fd0149c873f03c7 (diff)
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
-rwxr-xr-xbin/admin.pl8
1 files changed, 7 insertions, 1 deletions
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!'));