[Mydatabasepilot-cvs] MyDatabasePilot/dbProcessInit AddField.cfm,1.17,1.18

[<nan...@us...>]

Update of /cvsroot/mydatabasepilot/MyDatabasePilot/dbProcessInit
In directory sc8-pr-cvs1:/tmp/cvs-serv17716/dbProcessInit

Modified Files:
	AddField.cfm 
Log Message:
Functionality Added:
[ 757257 ] Added Key "key" to alterSpec[i] 

Index: AddField.cfm
===================================================================
RCS file: /cvsroot/mydatabasepilot/MyDatabasePilot/dbProcessInit/AddField.cfm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** AddField.cfm	18 Jun 2003 15:11:29 -0000	1.17
--- AddField.cfm	19 Jun 2003 14:19:52 -0000	1.18
***************
*** 36,39 ****
--- 36,40 ----
  		<cfparam name="FORM.numberOfDecimals#i#" default="" />
  		<cfparam name="FORM.defaultValue#i#" default="" />
+ 		<cfparam name="FORM.key#i#" default="None" />
  		
  		<!---||| Create Structre and Keys |||--->
***************
*** 56,59 ****
--- 57,62 ----
  		<!--- Create Key "defaultValue" --->
  		<cfset alterSpec[i].defaultValue="#Trim(Evaluate("FORM.defaultValue#i#"))#" />
+ 		<!--- Create Key "key" --->
+ 		<cfset alterSpec[i].key="#Evaluate("FORM.key#i#")#" />
  		<!--- Create Key "binary" --->
  		<cfif IsDefined("FORM.binary#i#")><cfset alterSpec[i].binary=TRUE /><cfelse><cfset alterSpec[i].binary=FALSE /></cfif>