<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' wAddBuildPlatform.asp '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim sMessage Dim Query_String Dim name Dim bp_id Dim active, activeChecked Dim description '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------- Function GetMachType () Dim rsQry, query Dim selectData OraDatabase.Parameters.Add "BP_ID", Request("bp_id"), ORAPARM_INPUT, ORATYPE_NUMBER ' Where to get the selection data ' If this is a form re-display, then its comming from a Request If CBool(Request("action")) Then selectData = "," & Request("machType") & "," selectData = Replace(selectData," ","",1,-1) Else selectData = "" query = "SELECT bfc.gbe_id FROM build_platforms_config bfc WHERE bfc.bp_id = :BP_ID" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) selectData = selectData & "," & rsQry("GBE_ID") rsQry.MoveNext Wend rsQry.Close() Set rsQry = Nothing selectData = selectData & "," End If GetMachType = "" query = "SELECT gm.gbe_id,gm.gbe_value FROM gbe_machtype gm ORDER BY gbe_value" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Dim checkText If InStr(selectData, "," & rsQry("GBE_ID") & ",") > 0 Then checkText = "checked" else checkText = "" End If GetMachType = GetMachType & "" GetMachType = GetMachType & "" GetMachType = GetMachType & "" rsQry.MoveNext Wend rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "BP_ID" GetMachType = GetMachType & "

" & rsQry("GBE_VALUE") & "

" End Function %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Len(Request("name")) <= 0 Then sMessage = "Platform name must be specified" ElseIf Len(Request("name")) <= 3 Then sMessage = "Platform name is too short" Else If Request("bp_id") <> "" Then ' UPDATE an existing entry OraDatabase.Parameters.Add "BP_ID", Request("bp_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NAME", Request("name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "MACHTYPE", Request("machType"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Query_String = "SELECT * FROM BUILD_PLATFORMS WHERE BP_ID <> :BP_ID AND UPPER(BP_NAME) = UPPER(:NAME)" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.UPDATE_BUILD_PLATFORM(:BP_ID, :NAME, :DESCRIPTION, :ACTIVE, :MACHTYPE); END;" objEH.CatchORA ( OraSession ) Else sMessage = "A Platform of that name already exists" End If OraDatabase.Parameters.Remove "BP_ID" OraDatabase.Parameters.Remove "NAME" OraDatabase.Parameters.Remove "DESCRIPTION" OraDatabase.Parameters.Remove "ACTIVE" OraDatabase.Parameters.Remove "MACHTYPE" rsQry.Close Set rsQry = nothing If IsNULL(sMessage) Then If objEH.Finally Then Call OpenInParentWindow ("admin_build_platforms.asp?bp_id="&Request("bp_id")) Call CloseWindow() End If End If Else ' Add A new entry OraDatabase.Parameters.Add "NAME", Request("name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "ACTIVE", Request("active"), ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "MACHTYPE", Request("machType"), ORAPARM_INPUT, ORATYPE_VARCHAR2 Query_String = "SELECT * FROM BUILD_PLATFORMS WHERE UPPER(BP_NAME) = UPPER(:NAME)" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.ADD_BUILD_PLATFORM(:NAME, :DESCRIPTION, :ACTIVE, :MACHTYPE); END;" objEH.CatchORA ( OraSession ) Else sMessage = "A Platform of that name already exists" End If OraDatabase.Parameters.Remove "NAME" OraDatabase.Parameters.Remove "DESCRIPTION" OraDatabase.Parameters.Remove "ACTIVE" OraDatabase.Parameters.Remove "MACHTYPE" rsQry.Close Set rsQry = nothing If IsNULL(sMessage) Then If objEH.Finally Then Call OpenInParentWindow ("admin_build_platforms.asp") Call CloseWindow() End If End If End If End If End If '---------------------------------------------- %>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add a new Build Platform or edit an existing Build Platform.

<%Call Messenger ( sMessage , 3, "100%" )%> <% If CBool(Request("action")) Then name = Request("name") active = Request("active") description = Request("description") ElseIf Request("bp_id") <> "" Then Dim rsTemp Query_String = "select * from build_platforms bp where bp.bp_id = "& Request("bp_id") Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) name = rsTemp("bp_name") active = rsTemp("bp_active") description = rsTemp("bp_description") rsTemp.Close() Set rsTemp = Nothing Else active = "Y" End If activeChecked = "" if active = "Y" Then activeChecked = "checked" If Request("bp_id") <> "" Then%> "> <%End If%> Platform Name Allow Use > Allow users to add this platform to a build filter Description <%=Description%> Supported MachTypes <%=GetMachType()%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>