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

[..hidden..]

Revision: 549
          http://svn.sourceforge.net/ledger-smb/?rev=549&view=rev
Author:   einhverfr
Date:     2006-11-12 19:59:55 -0800 (Sun, 12 Nov 2006)

Log Message:
-----------
Hopefully fixing behavior on saving users.

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

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-11-13 03:45:47 UTC (rev 548)
+++ trunk/bin/admin.pl	2006-11-13 03:59:55 UTC (rev 549)
@@ -82,6 +82,7 @@
 1;
 # end
 
+
 sub adminlogin {
 
 	$form->{title} = qq|LedgerSMB $form->{version} |.$locale->text('Administration');
@@ -697,6 +698,7 @@
 
 sub save {
 
+	$form->{callback} = "admin.pl?action=login";
 	# no driver checked
 	$form->error(__FILE__.':'.__LINE__.': '.$locale->text('Database Driver not checked!')) unless $form->{dbdriver};
 


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