|
version 1.1, 2005/03/09 03:18:14 UTC
|
version 1.2, 2005/08/26 16:08:19 UTC
|
|
|
|
| |
|
| Functions: |
Functions: |
| Date changed: 02/24/2005 Prabin & Neena Created & Documentation |
Date changed: 02/24/2005 Prabin & Neena Created & Documentation |
| |
05/05/2005 Neena Made changes to balance the code for removing Autonumber Field |
| |
from dOrgToProgramType Table for OrgPTID field. |
| |
08/15/2005 Terry Added URL variable for skipping step |
| |
08/15/2005 Terry Documentation |
| ---> |
---> |
| |
|
| |
<!--- checks to see if the skip variable is present in the URL - determines whether a user can skip through the step ---> |
| |
<cfif #url.skip# NEQ 1> |
| <cfquery name="deletepg" datasource="#Programsdb#"> |
<cfquery name="deletepg" datasource="#Programsdb#"> |
| delete |
delete |
| from dOrgToProgramType |
from dOrgToProgramType |
|
|
|
| <cfset Array = #ListToArray(form.ProgramTypeID)#> |
<cfset Array = #ListToArray(form.ProgramTypeID)#> |
| |
|
| <cfloop from="1" to="#ArrayLen(Array)#" index="x"> |
<cfloop from="1" to="#ArrayLen(Array)#" index="x"> |
| |
|
| |
<!--- New code added in next 4 statements to compute maximum OrgPTID ---> |
| |
<!--- <cfquery name="maxOPId" datasource="#programsdb#"> |
| |
Select max(OrgPTID) as maxOrgPTID from dOrgtoprogramtype |
| |
</cfquery> |
| |
<cfset newOrgPTID = #maxOPId.maxOrgPTID# + 1> ---> |
| |
|
| <cfquery datasource="#Programsdb#"> |
<cfquery datasource="#Programsdb#"> |
| Insert Into dOrgtoprogramtype (OrgID, ProgramTypeID) |
Insert Into dOrgtoprogramtype (OrgID, ProgramTypeID) |
| Values(#URL.OrgID#, #Array[x]#) |
Values(#URL.OrgID#, #Array[x]#) |
| </cfquery> |
</cfquery> |
| </cfloop> |
|
| |
|
| |
</cfloop> |
| |
</cfif> |
Return to
act_addProgramtypes.cfm
CVS log
Up to [Development] / p2rx-programs