fixing several bugs. Also enabling saving of contentPositions for all users, not just admins.

lib/WebGUI/Asset/Field.pm

@@ -170,7 +170,7 @@ sub getUserPref {
 	my $returnDataType = shift || 'string';
 	my $returnDataFormat = shift || 'raw';
 	my $sql = "select userValue from wgFieldUserData where assetId=".quote($fieldId)." and userId=".quote($userId);
-	#WebGUI::ErrorHandler::warn($sql);
+	WebGUI::ErrorHandler::warn($sql);
 	my ($userValue) = WebGUI::SQL->quickArray($sql);
 	unless ($userValue) {
 		return '' if $fieldId eq 'skipThisRequest';
@@ -199,9 +199,9 @@ sub setUserPref {
 	my $returnDataType = shift || 'string';
 	my $returnDataFormat = shift || 'raw';
 	my $sql = "delete from wgFieldUserData where assetId=".quote($fieldId)." and userId=".quote($userId);
-	#WebGUI::ErrorHandler::warn($sql);
 	WebGUI::SQL->write($sql);
 	my $sql2 = "insert into wgFieldUserData values (".quote($fieldId).",".quote($userId).",".quote($valueToSet).")";
+	WebGUI::ErrorHandler::warn($sql2);
 	return WebGUI::SQL->write($sql2);
 }
 

lib/WebGUI/Asset/Wobject/Dashboard.pm

@@ -53,11 +53,11 @@ sub definition {
 		},
 		adminsGroupId =>{
 			fieldType=>"group",
-			defaultValue=>4
+			defaultValue=>'4'
 		},
 		usersGroupId =>{
 			fieldType=>"group",
-			defaultValue=>2
+			defaultValue=>'2'
 		},
 		mapFieldId =>{
 			fieldType=>"text",
@@ -96,13 +96,13 @@ sub getEditForm {
 		-name=>"adminsGroupId",
 		-label=>$i18n->get('dashboard adminsGroupId field label'),
 		-hoverHelp=>$i18n->get('dashboard adminsGroupId description'),
-		-value=>[$self->get("adminsGroupId")]
+		-value=>[$self->getValue("adminsGroupId")]
 	);
 	$tabform->getTab("security")->group(
 		-name=>"usersGroupId",
 		-label=>$i18n->get('dashboard usersGroupId field label'),
 		-hoverHelp=>$i18n->get('dashboard usersGroupId description'),
-		-value=>[$self->get("usersGroupId")]
+		-value=>[$self->getValue("usersGroupId")]
 	);
 	return $tabform;
 }
@@ -230,6 +230,7 @@ sub view {
 #-------------------------------------------------------------------
 sub www_setContentPositions {
 	my $self = shift;
+	return 'Visitors cannot save settings' if $session{user}{userId} == 1;
 	return WebGUI::Privilege::insufficient() unless ($self->canPersonalize);
 	return '' unless $self->get("mapFieldId");
 	my $success = WebGUI::Asset::Field->setUserPref($self->get("mapFieldId"),$session{form}{map});

lib/WebGUI/Asset/Wobject/MultiSearch.pm

@@ -84,7 +84,7 @@ sub view {
 	my %var = $self->get();
 	#Set some template variables
 
-	#Build list of stocks as an array
+	#Build list of searches as an array
 	my $defaults = $self->getValue("predefinedSearches");
 
 	return $self->processTemplate(\%var, $self->get("templateId"));