add: User profile data table is now a flat table.

lib/WebGUI/Form/Asset.pm

@@ -81,6 +81,9 @@ sub definition {
 		class=>{
 			defaultValue=> undef
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Button.pm

@@ -64,6 +64,9 @@ sub definition {
 		defaultValue=>{
 			defaultValue=>$i18n->get(62)
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(255)",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Captcha.pm

@@ -72,6 +72,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>0
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(6)",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Codearea.pm

@@ -85,7 +85,10 @@ sub definition {
 			},
 		profileEnabled=>{
 			defaultValue=>1
-			}
+			},
+        dbDataType  => {
+            defaultValue    => "TEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Color.pm

@@ -53,6 +53,9 @@ sub definition {
 		formName=>{
 			defaultValue=>$i18n->get("color")
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(7)",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Combo.pm

@@ -68,7 +68,10 @@ sub definition {
 			},
 		profileEnabled=>{
 			defaultValue=>1
-			}
+			},
+        dbDataType  => {
+            defaultValue    => "TEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Control.pm

@@ -159,6 +159,12 @@ A text string that will pop up when the user hovers over the label when toHtmlWi
 
 Flag that tells the User Profile system that this is a valid form element in a User Profile
 
+=head4 dbDataType
+
+The SQL data type for this form element. Fields created using this form control
+will create a column with this data type. If undef, will not create a database 
+column. Defaults to "VARCHAR(255)".
+
 =cut
 
 sub definition {
@@ -216,8 +222,11 @@ sub definition {
 			},
 		profileEnabled=>{
 			defaultValue=>0
-			},
-		});
+            },
+        dbDataType => {
+            defaultValue => "VARCHAR(255)",
+        },
+    });
 	return $definition;
 }
 

lib/WebGUI/Form/DatabaseLink.pm

@@ -93,6 +93,9 @@ sub definition {
 		hoverHelp=>{
 			defaultValue=>$i18n->get('1075 description')
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
 	return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Date.pm

@@ -101,6 +101,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/DateTime.pm

@@ -96,6 +96,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/File.pm

@@ -87,7 +87,10 @@ sub definition {
 			},
 		deleteFileUrl=>{
 			defaultValue=>undef
-			}
+			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/FilterContent.pm

@@ -79,6 +79,9 @@ sub definition {
 		defaultValue=>{
 			defaultValue=>"most",
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(16)",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Float.pm

@@ -85,6 +85,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "DOUBLE",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Group.pm

@@ -93,6 +93,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/HTMLArea.pm

@@ -95,6 +95,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "LONGTEXT",
+        },
                 });
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/HiddenList.pm

@@ -72,6 +72,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "TEXT",
+        },
                 });
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Image.pm

@@ -81,8 +81,11 @@ sub definition {
 		forceImageOnly=>{
 			defaultValue=>0
 			},
-		});
-        return $class->SUPER::definition($session, $definition);
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
+    });
+    return $class->SUPER::definition($session, $definition);
 }
 
 

lib/WebGUI/Form/IntSlider.pm

@@ -71,6 +71,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Integer.pm

@@ -85,6 +85,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Interval.pm

@@ -76,6 +76,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/LdapLink.pm

@@ -99,7 +99,10 @@ sub definition {
 			},
 		afterEdit=>{
 			defaultValue=>undef
-			}
+			},
+        dbDataType => {
+            defaultValue    => "TEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/List.pm

@@ -171,6 +171,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>0
 			},
+        dbDataType  => {
+            defaultValue    => "TEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/SelectBox.pm

@@ -84,6 +84,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1,
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(255)",
+        }
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/SelectList.pm

@@ -68,18 +68,21 @@ sub definition {
 	push(@{$definition}, {
 		formName=>{
 			defaultValue=>$i18n->get("484"),
-			},
+        },
 		multiple=>{
 			defaultValue=>1
-			},
+        },
 		size=>{
 			defaultValue=>5
-			},
+        },
 		profileEnabled=>{
 			defaultValue=>1
-			},
-		});
-        return $class->SUPER::definition($session, $definition);
+        },
+        dbDataType => {
+            defaultValue => "LONGTEXT",
+        },
+    });
+    return $class->SUPER::definition($session, $definition);
 }
 
 #-------------------------------------------------------------------

lib/WebGUI/Form/SelectSlider.pm

@@ -54,6 +54,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue => "TEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Template.pm

@@ -79,6 +79,9 @@ sub definition {
 		namespace=>{
 			defaultValue=>undef
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Textarea.pm

@@ -92,6 +92,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "LONGTEXT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/TimeField.pm

@@ -90,6 +90,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "BIGINT",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/User.pm

@@ -81,6 +81,9 @@ sub definition {
 		readOnly=>{
 			defaultValue=>0,
 			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/Workflow.pm

@@ -85,7 +85,10 @@ sub definition {
 			},
 		none=>{
 			defaulValue=>0
-			}
+			},
+        dbDataType  => {
+            defaultValue    => "VARCHAR(22) BINARY",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }

lib/WebGUI/Form/YesNo.pm

@@ -72,6 +72,9 @@ sub definition {
 		profileEnabled=>{
 			defaultValue=>1
 			},
+        dbDataType  => {
+            defaultValue    => "INT(1)",
+        },
 		});
         return $class->SUPER::definition($session, $definition);
 }