summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-13 06:12:09 +0000
committerchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-13 06:12:09 +0000
commit6ee70fb19f6d5efefb208d82c9c313b2197bed82 (patch)
tree2b9ab65c07070ec6f95e24ffef0b092de0f157cf /bin
parentd15540803b3f0ad6b6c76d71aff3f49415b202e1 (diff)
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
Diffstat (limited to 'bin')
-rwxr-xr-xbin/admin.pl4
1 files changed, 2 insertions, 2 deletions
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!'));