hover help, more documentation

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

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,
+			-name => $session{form}{cid},
-		-label => WebGUI::International::get(469_s,
+			-label => WebGUI::International::get(469,"WebGUIProfile");
-		-value => "WebGUIProfile"_q,
 		);
 		%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->hidden(
-		$f->readOnly($session{form}{fid},WebGUI::International::get(470,"WebGUIProfile"));
+			-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->hidden(
-               	$f->text("fid",WebGUI::International::get(470,"WebGUIProfile"));
+			-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(
-	$f->textarea("dataDefault",WebGUI::International::get(488,"WebGUIProfile"),$data{dataDefault});
+		-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');
 }
 
 #-------------------------------------------------------------------

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' => {
+        '475 description' => {
-		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.
+                message => q|The name of the field, used internally in the database.|,
-<p>
+                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|,
+		message => q|User Profile Settings, Edit|,
-		lastUpdated => 1031514049
+		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