Rev 29 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| wAddProd |'| |'=====================================================%><%Option explicitResponse.Expires = 0%><!--#include file="common/globals.asp"--><!--#include file="common/config.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_popup_window_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ VARIABLE DEFINITION -------------Dim rsQryDim objFormCollectorDim sMessageDim aAddPkgList, aFullList, dAddPkgList, PvId'------------ CONSTANTS DECLARATION -----------Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"'------------ VARIABLE INIT -------------------sMessage = NULLparBom_id = Request("bom_id")parOs_id = Request("os_id")Set objFormCollector = CreateObject("Scripting.Dictionary")Set dAddPkgList = CreateObject("Scripting.Dictionary")'------------ CONDITIONS ----------------------'----------------------------------------------%><%'--------------------------------------------------------------------------------------------------------------------------Sub GetFormDetails ( nBom_id, ByRef outobjDetails )Dim rsQry, queryOraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBERquery = _" SELECT bo.RTAG_ID_FK,"&_" rm_proj.PROJ_ID,"&_" rm_proj.PROJ_NAME,"&_" rt.RTAG_NAME"&_" FROM BOMS bo,"&_" PROJECTS rm_proj,"&_" RELEASE_TAGS rt"&_" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_" AND bo.RTAG_ID_FK = rt.RTAG_ID"&_" AND bo.BOM_ID = :BOM_ID"Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )If (NOT rsQry.BOF) AND (NOT rsQry.EOF)ThenoutobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")outobjDetails.Item ("proj_id") = rsQry("proj_id")outobjDetails.Item ("proj_name") = rsQry("proj_name")outobjDetails.Item ("rtag_name") = rsQry("rtag_name")End IfOraDatabase.Parameters.Remove "BOM_ID"rsQry.CloseSet rsQry = NothingEnd Sub'--------------------------------------------------------------------------------------------------------------------------Sub AddProdToBaseEnv ()On Error Resume NextOraDatabase.Parameters.Add "PROD_ID_LIST", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBERobjEH.TryORA ( OraSession )OraDatabase.ExecuteSQL _"BEGIN pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID ); END;"objEH.CatchORA ( OraSession )aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )' Clean empty parametersFor Each PvId In aFullListIf PvId <> "" ThendAddPkgList.Add CStr( PvId ), EmptyEnd IfNextaFullList = NULLaAddPkgList = dAddPkgList.KeysFor Each PvId In aAddPkgListCall PopulateSBOMField(parBom_id, PvId, NULL, NULL )NextOraDatabase.Parameters.Remove "PROD_ID_LIST"OraDatabase.Parameters.Remove "BASE_ENV_ID"OraDatabase.Parameters.Remove "OS_ID"OraDatabase.Parameters.Remove "USER_ID"OraDatabase.Parameters.Remove "BOM_ID"End Sub'--------------------------------------------------------------------------------------------------------------------------Sub AddProdToOs ()On Error Resume NextOraDatabase.Parameters.Add "PROD_ID_LIST", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBERobjEH.TryORA ( OraSession )OraDatabase.ExecuteSQL _"BEGIN pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID ); END;"objEH.CatchORA ( OraSession )aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )' Clean empty parametersFor Each PvId In aFullListIf PvId <> "" ThendAddPkgList.Add CStr( PvId ), EmptyEnd IfNextaFullList = NULLaAddPkgList = dAddPkgList.KeysFor Each PvId In aAddPkgListCall PopulateSBOMField(parBom_id, PvId, NULL, NULL )NextOraDatabase.Parameters.Remove "PROD_ID_LIST"OraDatabase.Parameters.Remove "OS_ID"OraDatabase.Parameters.Remove "USER_ID"OraDatabase.Parameters.Remove "BOM_ID"End Sub'--------------------------------------------------------------------------------------------------------------------------%><%'------------ RUN BEFORE PAGE RENDER ----------objPMod.PersistInQryString ( Array("base_env_id") )If CBool(Request("action")) ThenIf Request("prod_id_list") <> "" Then'-- Add Product ListIf Request("base_env_id") = "" ThenCall AddProdToOs()ElseCall AddProdToBaseEnv()End IfIf objEH.Finally ThenCall OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile,base_env_id") )Call CloseWindow()End IfElsesMessage = "Please select Product(s) from Release Manager list then click Add."End IfEnd IfCall GetFormDetails ( parBom_id, objFormCollector )'----------------------------------------------%><html><head><title>Deployment Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css"><script language="JavaScript" src="scripts/common.js"></script></head><body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();"><table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle"> Add Product </span> <br>Search for Product, Create New Product or select from Release Manager list.</td></tr><%'-- FROM START ---------------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormSearch"objFormComponent.Action = "wAddProdBySearch.asp"Call objFormComponent.FormStart()%><tr><td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0"><tr><td nowrap class="body_txtw"><strong>Product Search</strong> </td><td><input name="prod_name" type="text" class="body_txt" size="20"></td><td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td></tr></table></td></tr><%=objPMod.ComposeHiddenTags()%><%Call objFormComponent.FormEnd()'-- FROM END ----------------------------------------------------------------------------------------------------------------%><%'-- FROM START --------------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormName"objFormComponent.Action = SCRIPT_NAMEobjFormComponent.OnSubmit = "ShowProgress();"Call objFormComponent.FormStart()%><tr><td background="images/bg_login.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td><%=ProgressBar()%></td><td align="right"><input name="btn" type="submit" class="form_btn" value="Add"><input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr></table></td></tr><tr><td><!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><%Call Messenger ( sMessage , 3, "100%" )%><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><!--#include file="messages/_msg_inline.asp"--><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="10" cellpadding="0"><tr><td width="50%" valign="top" class="body_txt"><strong>Create New</strong><br><a href="wAddProdNew.asp?NEW=OK&<%=objPMod.ComposeURL()%>" class="menu_link"><img src="icons/i_product_new.gif" width="15" height="17" hspace="5" vspace="3" border="0" align="absmiddle">Product</a><br></td><td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td><td width="50%" valign="top" nowrap class="body_txt"><strong>Add from Release Manager</strong><br><%If (objFormCollector.Item("rtag_id_fk") <> "") Then%><%=objFormCollector.Item ("proj_name") &" / "& objFormCollector.Item ("rtag_name")%><%Else%><%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%><%End If%><br><table width="100%" border="0" cellspacing="3" cellpadding="0"><tr><td width="1"><img src="images/spacer.gif" width="1" height="1"></td><td width="100%"><img src="images/spacer.gif" width="1" height="1"></td></tr><%' -- Only run if links with Release ManagerIf (objFormCollector.Item("rtag_id_fk") <> "") Then'===== Release Manager PRODUCTS =====OraDatabase.Parameters.Add "RTAG_ID_FK", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", enumPRODUCTS_BASE_VIEW_ID, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "enumAUTOPRODUCTS_BASE_VIEW_ID", enumAUTOPRODUCTS_BASE_VIEW_ID, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBERSet rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsView.sql"), ORADYN_DEFAULT )If rsQry.RecordCount < 1 ThenResponse.write "No Products Found."End IfWhile (NOT rsQry.BOF) AND (NOT rsQry.EOF)%><tr><td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td><td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td></tr><%rsQry.MoveNext%><%WEnd%></table><br><br><!-- NEW PATCHES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><strong>Add New Patches</strong><br><table width="100%" border="0" cellspacing="3" cellpadding="0"><%Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsUnusedPatches.sql"), ORADYN_DEFAULT )If rsQry.RecordCount < 1 ThenResponse.write "No New Patches Found."End IfWhile (NOT rsQry.BOF) AND (NOT rsQry.EOF)%><tr><td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>"></td><td nowrap class="body_txt"><%=LIMG_PRODUCT_PATCH%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td></tr><%rsQry.MoveNext%><%WEndOraDatabase.Parameters.Remove "RM_BRANCH_ID"OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"OraDatabase.Parameters.Remove "enumAUTOPRODUCTS_BASE_VIEW_ID"OraDatabase.Parameters.Remove "OS_ID"End If%></table></td><td width="1" valign="top" class="body_txt"><img src="images/spacer.gif" width="1" height="320"></td></tr></table><!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --></td></tr><%=objPMod.ComposeHiddenTags()%><input type="hidden" name="action" value="true"><%Call objFormComponent.FormEnd()'-- FROM END ----------------------------------------------------------------------------------------------------------------%></table></body></html><%'------------ RUN AFTER PAGE RENDER -----------Set objFormCollector = Nothing'----------------------------------------------%><!--#include file="common/globals_destructor.asp"-->