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

[..hidden..]

Revision: 558
          http://svn.sourceforge.net/ledger-smb/?rev=558&view=rev
Author:   christopherm
Date:     2006-11-12 22:12:09 -0800 (Sun, 12 Nov 2006)

Log Message:
-----------
fixing a couple of $form->callback to $form->{callback}

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

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-11-13 06:03:48 UTC (rev 557)
+++ trunk/bin/admin.pl	2006-11-13 06:12:09 UTC (rev 558)
@@ -904,7 +904,7 @@
 sub change_password {
 
 	# Do we want to force a login after changing the password?
-	$form->callback = "admin.pl?";
+	$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};
@@ -1056,7 +1056,7 @@
 
 
 sub dbupdate {
-	$form->callback = "admin.pl?action=list_users";
+	$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.