fixed #9851: New Users have blank profile field privacy settings

This commit is contained in:
Yung Han Khoe 2009-06-03 15:24:20 +00:00
parent 8d12d12db0
commit 1ea08936f4
5 changed files with 48 additions and 1 deletions

View file

@ -301,7 +301,14 @@ sub www_editProfileField {
-value=>$data->{forceImageOnly},
-defaultValue=>1,
);
}
}
$f->radioList(
-name => 'defaultPrivacySetting',
-label => $i18n->get('default privacy setting label'),
-hoverHelp => $i18n->get('default privacy setting description'),
-options => WebGUI::ProfileField->getPrivacyOptions($session),
-value => $data->{defaultPrivacySetting}
);
my $fieldType = WebGUI::Form::FieldType->new($session,
-name=>"fieldType",
-label=>$i18n->get(486),
@ -377,6 +384,7 @@ sub www_editProfileFieldSave {
fieldType=>$session->form->fieldType("fieldType"),
forceImageOnly=>$session->form->yesNo("forceImageOnly"),
extras=>$session->form->text('extras'),
defaultPrivacySetting=>$session->form->radioList('defaultPrivacySetting'),
);
my $categoryId = $session->form->selectBox("profileCategoryId");
if ($session->form->process("new")) {