<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestProductLocation | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim IsProductInNewBom Dim bgColor Dim QueryName Dim parBomId Dim rsPkg, pkgName, pkgVersion, pkgId Dim rsProj, projName, branchName Dim rsOS, OSName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBomId = Request("current_bom_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- '------------ ACCESS CONTROL ------------------ %> <% '-------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If (Request("change_type") = "R") Then QueryName = "BomRemovedProductLocation.sql" IsProductInNewBom = FALSE ElseIf (Request("change_type") = "U") Then QueryName = "BomUpdatedProductLocation.sql" IsProductInNewBom = FALSE Else QueryName = "PatchCompare.sql" IsProductInNewBom = TRUE End If '---------------------------------------------- %> <% OraDatabase.Parameters.Add "BOM_ID", Request("bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_BOM_ID", Request("compare_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", Request("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "CURRENT_BOM_ID", Request("current_bom_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ( QueryName ), ORADYN_DEFAULT ) bgColor = NULL If rsQry.RecordCount < 1 Then %> <% End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) pkgName = rsQry("pkg_name") pkgVersion = rsQry("pkg_version") pkgId = rsQry("pkg_id") OSName = rsQry("os_name") If OSName = "Windows" OR OSName = "MOS" Then OSName = "win32" Else OSName = "sparc" End If If IsNull( bgColor ) Then bgColor = "bgcolor='#F5F5F5'" Else bgColor = NULL End If %> <% Dim rsForm, Tester, Manager Tester = False Manager = False If objAccessControl.IsActive("ApprovedByManager") Then Manager = True ElseIf objAccessControl.IsActive("ApprovedByTester") Then Tester = True End If Set rsForm = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_AUTHORISATION WHERE PV_ID="&rsQry("prod_id")&" AND BOM_ID="&parBomId, ORADYN_DEFAULT)%> <%If rsForm.RecordCount = 0 Then%> <%If Tester Then%> <%ElseIf Manager Then%> <%Else%> <%End If%> <%ElseIf IsNull(rsForm("is_official")) Then%> <%If NOT IsNull(rsForm("tester_id")) And Tester Then %> <%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%> <%Else%> <%End If%> <%Else%> <%End If rsForm.Close() Set rsForm = nothing %> <% rsQry.MoveNext WEnd OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "CURRENT_BOM_ID" OraDatabase.Parameters.Remove "COMPARE_BOM_ID" rsQry.Close Set rsQry = Nothing %>

nowrap valign="top" class="body_row" colspan="2">Product not found.
nowrap valign="top" class="body_row" colspan="2">     <%If IsProductInNewBom Then%> " align="absmiddle" border="0"><%=rsQry("node_name")%>  / <%=rsQry("os_name") %>  / <%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>   Download Patch   <%Else%> " align="absmiddle" border="0"><%=rsQry("node_name")%>  / <%=rsQry("os_name") %> /  <%End If%>	&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=220,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Accept/Reject	Awaiting Tester		Awaiting	&bom_id=<%=parBomId%>" onClick="popup = window.open('_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>', 'Approval Form', 'height=440,width=600,scrollbars=yes,resizable=yes'); return false" target="_blank" style="text-decoration:none" class="body_txtr">Accept/Reject		Accepted