<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| OSDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, rsTemp Dim selected, nodeSpec Dim parHold_selection Dim ProdId, pkgId Dim ProdName Dim ProdVersion, objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parHold_selection = Request("hold_selection") Set objFormCollector=CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnMoveUpProd" Call OpenInWindow ( "_ShiftBulkProducts.asp?prod_id_list="& Request("prod_id_list") &"&shift_dir="& Server.URLEncode("-") &"&action=true&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnMoveDownProd" Call OpenInWindow ( "_ShiftBulkProducts.asp?prod_id_list="& Request("prod_id_list") &"&shift_dir="& Server.URLEncode("+") &"&action=true&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnAcceptRejectProd" Call OpenInWindow ( "_AcceptRejectProd.asp?prod_id_list="& Request("prod_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnCopyProd" Call OpenInWindow ( "_CopyItems.asp?copy_type=prod_id_list&prod_id_list="& Request("prod_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) Case "btnRemoveProdBulk" Call OpenInWindow ( "_RemoveProductFromOs.asp?rfile="& SCRIPT_NAME &"&prod_id_list="& Request("prod_id_list") &"&"& objPMod.ComposeURL() ) Case "btnIsNodeSpec" Call OpenInWindow ( "_AddProductFromOs.asp?rfile="& SCRIPT_NAME &"&prod_id_list="& Request("node_spec_list") &"&"& objPMod.ComposeURL() ) Case "btnRemoveObsoletePatches" Call OpenInWindow ( "_RemoveObsoletePatches.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End Select End If Call GetProjDetails ( Request("bom_id"), objFormCollector ) '---------------------------------------------- %> Deployment Manager
<%Call RenderTitle( objOsCollector )%>
<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrOsTabDef ) objTabControl.Render () %>
<% OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_IDA", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("run_patch.sql"), ORADYN_DEFAULT ) '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddProd", "btnIsNodeSpec", "btnRemoveProdBulk", "height=30", "btnSortProd", "height=30", "btnAcceptRejectProd", "height=30", "btnCopyProd", "btnPasteProd", "btnPatchGenerate", "btnRemoveObsoletePatches", "btnFTP") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Tell control if buttons need to be readonly actions objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Conditions If Session( enumSESSION_COPY_TYPE ) <> "prod_id_list" Then Call objBtnControl.Active ( "btnPasteProd", "N" ) End If ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) Dim rsProj, projName, branchName, projId, rsOS, OSName Set rsProj = OraDatabase.DbCreateDynaset( "select br.branch_name, prj.proj_name, prj.proj_id from boms bm, branches br, dm_projects prj where bm.bom_id = "&Request("bom_id")&" and br.BRANCH_ID = bm.BRANCH_ID and prj.PROJ_ID = br.PROJ_ID", cint(0)) projName = rsProj("proj_name") branchName = rsProj("branch_name") projId = rsProj("proj_id") rsProj.Close() Set rsProj = nothing Set rsOS = OraDatabase.DbCreateDynaset( "select bt.bos_type from os_base_env obe, base_env be, bos_types bt where obe.OS_ID = "&Request("os_id")&" and be.BASE_ENV_ID = obe.BASE_ENV_ID and bt.BOS_ID = be.BOS_ID", cint(0)) OSName = rsOS("bos_type") If OSName = "Windows" OR OSName = "MOS" Then OSName = "win32" Else OSName = "sparc" End If rsOS.Close() Set rsOS = nothing %> <% OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "OS_IDA" ' Response.Write "Patch Generation" ' Response.Write "Patch Generation" rsQry.Close Set rsQry = Nothing %>
    <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%>
<%=objPMod.ComposeHiddenTags()%>
<%If objOsCollector.Item("base_env_id") <> "" Then%> <%End If%> <% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditProd", "btnRemoveProd"), OraDatabase ) objBtnControl.ButtonSpacer = 1 OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) ProdId = rsQry("prod_id") ProdName = rsQry("pkg_name").Value ProdVersion = rsQry("pkg_version").Value pkgId = rsQry("pkg_id").Value selected = "" nodeSpec = "" If rsQry("is_node_spec") = "on" Then nodeSpec = "checked" End If If parHold_selection <> "" Then If IsTicked ( rsQry("prod_id"), Request("prod_id_list") ) Then selected = "checked" End If End If %> <%If NOT IsNull(objFormCollector.Item("is_download")) Then%> <%Else%> <%End If%> <% OraDatabase.Parameters.Add "PV_ID", ProdId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("Package_Patches.sql"), ORADYN_DEFAULT ) If rsTemp.RecordCount = 0 Then %> <% Else %> <% End If OraDatabase.Parameters.Remove "PV_ID" rsTemp.Close() Set rsTemp = nothing %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "OS_ID" %>
 Install Order
Product Name Version In Spec Installation Comments
<%=objOsCollector.Item("base_env_name")%> This base configuration contains the common operating system requirements and software applications.
> <%=rsQry("seq_num")%> <%=GetProductIcon(rsQry) & ProdName%><%=rsQry("pkg_version")%>/<%=ProdName%>-<%=rsQry("pkg_version")%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=rsQry("pkg_version")%>', 'Download Version', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" class="body_link"><%=rsQry("pkg_version")%>> <%Call objBtnControl.Render ( Array("btnEditProd", "btnRemoveProd") )%>
<%Call objBtnControl.Render ( Array("btnEditProd") )%>
 
<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing Set objBtnControl = Nothing '---------------------------------------------- %>