SF.net SVN: ledger-smb: [550] trunk/bin/admin.pl

[..hidden..]

Revision: 550
          http://svn.sourceforge.net/ledger-smb/?rev=550&view=rev
Author:   einhverfr
Date:     2006-11-12 20:18:10 -0800 (Sun, 12 Nov 2006)

Log Message:
-----------
Adding proper redirect bits lots of places

Modified Paths:
--------------
    trunk/bin/admin.pl

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-11-13 03:59:55 UTC (rev 549)
+++ trunk/bin/admin.pl	2006-11-13 04:18:10 UTC (rev 550)
@@ -698,7 +698,7 @@
 
 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 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_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 dbupdate {
+	$form->callback = "admin.pl?action=list_users";
 
 	LedgerSMB::User->dbupdate(\%$form);
 	$form->redirect($locale->text('Dataset updated!'));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.