Added a position property to the Edit Field interface

lib/WebGUI/Wobject/DataForm.pm

@@ -648,6 +648,13 @@ sub www_editField {
 		-label=>WebGUI::International::get(21,$_[0]->get("namespace")),
 		-value=>$field{name}
 		);
+	if($field{sequenceNumber} && ! $field{isMailField}) {
+		$f->integer(
+			-name=>"position",
+			-label=>WebGUI::International::get('Field Position',$_[0]->get("namespace")),
+			-value=>$field{sequenceNumber}
+		);	
+	}
 	$f->select(
 		-name=>"tid",
 		-options=>$tab,
@@ -740,6 +747,10 @@ sub www_editFieldSave {
 		vertical=>$session{form}{vertical},
 		extras=>$session{form}{extras},
 		}, "1","1", _tonull("DataForm_tabId",$session{form}{tid}));
+	if($session{form}{position}) {
+		WebGUI::SQL->write("update DataForm_field set sequenceNumber=".quote($session{form}{position}).
+					" where DataForm_fieldId=".quote($session{form}{fid}));
+	}
 	$_[0]->reorderCollateral("DataForm_field","DataForm_fieldId", _tonull("DataForm_tabId",$session{form}{tid})) if ($session{form}{fid} ne "new");
         if ($session{form}{proceed} eq "addField") {
             	$session{form}{fid} = "new";

lib/WebGUI/i18n/English/DataForm.pm

@@ -620,7 +620,10 @@ A conditional indicating whether this field exists for the mail subsystem of the
 		lastUpdated=>1095701013,
 		context=>q|Tells the user that there is no tab to set the field to.|
 		},
-
+	'Field Position' => {
+		message =>q|Field Position|,
+		lastUpdated=>1095701013
+	}
 };
 
 1;