From 6ee70fb19f6d5efefb208d82c9c313b2197bed82 Mon Sep 17 00:00:00 2001 From: christopherm Date: Mon, 13 Nov 2006 06:12:09 +0000 Subject: fixing a couple of $form->callback to $form->{callback} git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@558 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/admin.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/admin.pl b/bin/admin.pl index c81a3261..b5c19610 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -904,7 +904,7 @@ sub change_admin_password { 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 continue { 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!')); -- cgit v1.2.3