From 2b3b44c0b1133d7a506e9254bbc73171be3d3449 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Wed, 10 Nov 2004 11:03:12 +0000
Subject: [PATCH] Added a position property to the Edit Field interface

---
 lib/WebGUI/Wobject/DataForm.pm      | 11 +++++++++++
 lib/WebGUI/i18n/English/DataForm.pm |  5 ++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Wobject/DataForm.pm b/lib/WebGUI/Wobject/DataForm.pm
index 62b902519..8ff235e11 100644
--- a/lib/WebGUI/Wobject/DataForm.pm
+++ b/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";
diff --git a/lib/WebGUI/i18n/English/DataForm.pm b/lib/WebGUI/i18n/English/DataForm.pm
index 9330c51e7..eb8db671b 100644
--- a/lib/WebGUI/i18n/English/DataForm.pm
+++ b/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;