hover help, more documentation

This commit is contained in:
Colin Kuskie 2005-07-25 18:43:12 +00:00
parent 93be1b469e
commit 87d2a6401e
3 changed files with 204 additions and 25 deletions

View file

@ -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 => []
},

View file

@ -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');
}
#-------------------------------------------------------------------

View file

@ -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.
<p>
'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.
<p>
|,
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