From 87d2a6401e01323e4a97be15cc288220fe67fb5d Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 25 Jul 2005 18:43:12 +0000 Subject: [PATCH] hover help, more documentation --- lib/WebGUI/Help/WebGUIProfile.pm | 67 ++++++++++++++++++ lib/WebGUI/Operation/ProfileSettings.pm | 76 ++++++++++++++++----- lib/WebGUI/i18n/English/WebGUIProfile.pm | 86 +++++++++++++++++++++--- 3 files changed, 204 insertions(+), 25 deletions(-) diff --git a/lib/WebGUI/Help/WebGUIProfile.pm b/lib/WebGUI/Help/WebGUIProfile.pm index 9c2522ab4..82a56cac8 100644 --- a/lib/WebGUI/Help/WebGUIProfile.pm +++ b/lib/WebGUI/Help/WebGUIProfile.pm @@ -5,6 +5,73 @@ our $HELP = { title => '672', body => '627', fields => [ + { + title => '475', + description => '475 description', + namespace => 'WebGUIProfile', + }, + { + title => '472', + description => '472 description', + namespace => 'WebGUIProfile', + }, + { + title => '473', + description => '473 description', + namespace => 'WebGUIProfile', + }, + { + title => '897', + description => '897 description', + namespace => 'WebGUIProfile', + }, + { + title => '474', + description => '474 description', + namespace => 'WebGUIProfile', + }, + { + title => '486', + description => '486 description', + namespace => 'WebGUIProfile', + }, + { + title => '487', + description => '487 description', + namespace => 'WebGUIProfile', + }, + { + title => '488', + description => '488 description', + namespace => 'WebGUIProfile', + }, + { + title => '489', + description => '489 description', + namespace => 'WebGUIProfile', + }, + ], + related => [] + }, + 'add/edit profile settings category' => { + title => 'user profile category add/edit title', + body => 'user profile category add/edit body', + fields => [ + { + title => '470', + description => '470 description', + namespace => 'WebGUIProfile', + }, + { + title => '473', + description => '473 description', + namespace => 'WebGUIProfile', + }, + { + title => '897', + description => '897 description', + namespace => 'WebGUIProfile', + }, ], related => [] }, diff --git a/lib/WebGUI/Operation/ProfileSettings.pm b/lib/WebGUI/Operation/ProfileSettings.pm index 4a6cb1555..883e00934 100644 --- a/lib/WebGUI/Operation/ProfileSettings.pm +++ b/lib/WebGUI/Operation/ProfileSettings.pm @@ -95,23 +95,28 @@ sub www_editProfileCategory { my ($output, $f, %data); tie %data, 'Tie::CPHash'; $f = WebGUI::HTMLForm->new; - $f->hidden("op","editProfileCategorySave"); + $f->hidden( + -name => "op", + -value => "editProfileCategorySave", + ); if ($session{form}{cid}) { $f->hidden( -name => "cid", -value => $session{form}{cid}, ); - $f->readOnly($session{form}{cid},WebGUI::International::get(469,"WebGUIProfile")); $f->readOnly( - -name => $session{form}{cid}_v, - -label => WebGUI::International::get(469_s, - -value => "WebGUIProfile"_q, + -name => $session{form}{cid}, + -label => WebGUI::International::get(469,"WebGUIProfile"); ); %data = WebGUI::SQL->quickHash("select * from userProfileCategory where profileCategoryId=".quote($session{form}{cid})); } else { $f->hidden("cid","new"); } - $f->text("categoryName",WebGUI::International::get(470,"WebGUIProfile"),$data{categoryName}); + $f->text( + -name => "categoryName", + -label => WebGUI::International::get(470,"WebGUIProfile"), + -value => $data{categoryName}, + ); $f->yesNo( -name=>"visible", -label=>WebGUI::International::get(473,"WebGUIProfile"), @@ -124,7 +129,7 @@ sub www_editProfileCategory { ); $f->submit; $output .= $f->print; - return _submenu($output,'468'); + return _submenu($output,'468','user profile category add/edit','WebGUIProfile'); } #------------------------------------------------------------------- @@ -152,39 +157,75 @@ sub www_editProfileField { my ($output, $f, %data, %hash, $key); tie %data, 'Tie::CPHash'; $f = WebGUI::HTMLForm->new; - $f->hidden("op","editProfileFieldSave"); + $f->hidden( + -name => "op", + -value => "editProfileFieldSave", + ); if ($session{form}{fid} ne 'new') { - $f->hidden("fid",$session{form}{fid}); - $f->readOnly($session{form}{fid},WebGUI::International::get(470,"WebGUIProfile")); + $f->hidden( + -name => "fid", + -value => $session{form}{fid}, + ); + $f->readOnly( + -value => $session{form}{fid}, + -label => WebGUI::International::get(475,"WebGUIProfile"), + -hoverHelp => WebGUI::International::get('475 description',"WebGUIProfile"), + ); %data = WebGUI::SQL->quickHash("select * from userProfileField where fieldName=".quote($session{form}{fid})); } else { - $f->hidden("new",1); - $f->text("fid",WebGUI::International::get(470,"WebGUIProfile")); + $f->hidden( + -name => "new", + -value => 1, + ); + $f->text( + -name => "fid", + -label => WebGUI::International::get(475,"WebGUIProfile"), + -hoverHelp => WebGUI::International::get('475 description',"WebGUIProfile"), + ); } - $f->text("fieldLabel",WebGUI::International::get(472,"WebGUIProfile"),$data{fieldLabel}); + $f->text( + -name => "fieldLabel", + -label => WebGUI::International::get(472,"WebGUIProfile"), + -hoverHelp => WebGUI::International::get('472 description',"WebGUIProfile"), + -value => $data{fieldLabel}, + ); $f->yesNo( -name=>"visible", -label=>WebGUI::International::get(473,"WebGUIProfile"), + -hoverHelp=>WebGUI::International::get('473 description',"WebGUIProfile"), -value=>$data{visible} ); $f->yesNo( -name=>"editable", -value=>$data{editable}, -label=>WebGUI::International::get(897,"WebGUIProfile"), + -hoverHelp=>WebGUI::International::get('897 description',"WebGUIProfile"), ); $f->yesNo( -name=>"required", -label=>WebGUI::International::get(474,"WebGUIProfile"), + -hoverHelp=>WebGUI::International::get('474 description',"WebGUIProfile"), -value=>$data{required} ); $f->fieldType( -name=>"dataType", -label=>WebGUI::International::get(486,"WebGUIProfile"), + -hoverHelp=>WebGUI::International::get('486 description',"WebGUIProfile"), -value=>$data{dataType}, -defaultValue=>"text" ); - $f->textarea("dataValues",WebGUI::International::get(487,"WebGUIProfile"),$data{dataValues}); - $f->textarea("dataDefault",WebGUI::International::get(488,"WebGUIProfile"),$data{dataDefault}); + $f->textarea( + -name => "dataValues", + -label => WebGUI::International::get(487,"WebGUIProfile"), + -hoverHelp => WebGUI::International::get('487 description',"WebGUIProfile"), + -value => $data{dataValues}, + ); + $f->textarea( + -name => "dataDefault", + -label => WebGUI::International::get(488,"WebGUIProfile"), + -hoverHelp => WebGUI::International::get('488 description',"WebGUIProfile"), + -value => $data{dataDefault}, + ); tie %hash, 'Tie::CPHash'; %hash = WebGUI::SQL->buildHash("select profileCategoryId,categoryName from userProfileCategory order by categoryName"); foreach $key (keys %hash) { @@ -194,11 +235,12 @@ sub www_editProfileField { -name=>"profileCategoryId", -options=>\%hash, -label=>WebGUI::International::get(489,"WebGUIProfile"), + -hoverHelp=>WebGUI::International::get('489 description',"WebGUIProfile"), -value=>[$data{profileCategoryId}] ); $f->submit; $output .= $f->print; - return _submenu($output,'471',undef,"WebGUIProfile"); + return _submenu($output,'471','profile settings edit',"WebGUIProfile"); } #------------------------------------------------------------------- @@ -271,7 +313,7 @@ sub www_editProfileSettings { $b->finish; } $a->finish; - return _submenu($output,undef,"profile settings edit"); + return _submenu($output,undef,"profile settings edit",'WebGUIProfile'); } #------------------------------------------------------------------- diff --git a/lib/WebGUI/i18n/English/WebGUIProfile.pm b/lib/WebGUI/i18n/English/WebGUIProfile.pm index 7f59e6a1a..df9a1617b 100644 --- a/lib/WebGUI/i18n/English/WebGUIProfile.pm +++ b/lib/WebGUI/i18n/English/WebGUIProfile.pm @@ -12,7 +12,12 @@ our $I18N = { }, '470' => { - message => q|Name|, + message => q|Category Name|, + lastUpdated => 1031514049 + }, + + '475' => { + message => q|Field Name|, lastUpdated => 1031514049 }, @@ -41,16 +46,52 @@ our $I18N = { lastUpdated => 1036964807 }, - '627' => { - message => q|Profiles are used to extend the information of a particular user. In some cases profiles are important to a site, in others they are not. The profiles system is completely extensible. You can add as much information to the users profile as you like. -

+ '475 description' => { + message => q|The name of the field, used internally in the database.|, + lastUpdated => 1122316558, + }, + '472 description' => { + message => q|A short, descriptive label displayed to the user. This can be a call to WebGUI's +Internationalizaton system if labels need to be localized.|, + lastUpdated => 1122316558, + }, + + '474 description' => { + message => q|Should the user be required to fill out this field?|, + lastUpdated => 1122316558, + }, + + '486 description' => { + message => q|Choose the type of form element for this field. This is also used +to validate any input that the user may supply.|, + lastUpdated => 1122316558, + }, + + '487 description' => { + message => q|This field is used for the list types (like Checkbox List and Select List). Enter the values you wish to appear, one per line.|, + lastUpdated => 1122316558, + }, + + '488 description' => { + message => q|Enter the default value (if any) for the field. For Yes/No fields, enter "yes" to select "Yes" and "no" to select "No".|, + lastUpdated => 1122316558, + }, + + '489 description' => { + message => q|Select a category to place this field under.|, + lastUpdated => 1122316558, + }, + + '627' => { + message => q|Profiles are used to extend the information of a particular user. In some cases profiles are important to a site, in others they are not. The profiles system is completely extensible. You can add as much information to the user profiles as you like. +

|, - lastUpdated => 1031514049 + lastUpdated => 1122316616 }, '492' => { - message => q|Profile fields list.|, + message => q|Profile fields list|, lastUpdated => 1031514049 }, @@ -153,8 +194,8 @@ How should this user be notified when they get a new WebGUI message? }, '672' => { - message => q|Profile Settings, Edit|, - lastUpdated => 1031514049 + message => q|User Profile Settings, Edit|, + lastUpdated => 1122315465 }, '466' => { @@ -167,6 +208,35 @@ How should this user be notified when they get a new WebGUI message? lastUpdated => 1031514049 }, + '470 description' => { + message => q|The name of the this category.|, + lastUpdated => 1122315199, + }, + + '473 description' => { + message => q|Should the category be visible to users?|, + lastUpdated => 1122315199, + }, + + '897 description' => { + message => q|Should the category be editable by users?|, + lastUpdated => 1122315199, + }, + + 'user profile category add/edit title' => { + message => q|User Profile Category, Add/Edit|, + lastUpdated => 1122314930 + }, + + 'user profile category add/edit body' => { + message => q| +WebGUI's user profile is completely configurable, including the ability to add +new categories of profile settings. + +|, + lastUpdated => 1122314932 + }, + '489' => { message => q|Profile Category|, lastUpdated => 1031514049