Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                        RequestProductLocation                         |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ 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 ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
%>
<%
'------------ 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
'----------------------------------------------
%>

                
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <%
                  
                  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
                  %>
                  <tr>
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">Product not found.
                        </td>
          </tr>
                  <%
                  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
                  %>
                  <tr>
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
                        <%If IsProductInNewBom Then%>
                                <img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
                                &nbsp;/&nbsp;<%=rsQry("os_name") %>
                                &nbsp;/&nbsp;<%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>
                                &nbsp;&nbsp;<a href="LogDownload.asp?url=http://bms:8002/manager_suite/production_manager/downloads/<%=pkgName%>-<%=pkgVersion%>-<%=OSName%>.zip&pkg_id=<%=pkgId%>&pkg_version=<%=pkgVersion%>"  target="_blank" class="body_link">Download Patch</a>&nbsp;&nbsp;
                        <%Else%>
                                <img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("node_name")%>
                                &nbsp;/&nbsp;<%=rsQry("os_name") %>&nbsp;/&nbsp;
                        <%End If%>
                        </td>
                        
                <%
                        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%>
                                        <td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&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</a></td>
                                <%ElseIf Manager Then%>
                                        <td class="body_txto">Awaiting Tester</td>
                                <%Else%>
                                        <td class="body_txto"></td>
                                <%End If%>      
                        <%ElseIf IsNull(rsForm("is_official")) Then%>
                                <%If NOT IsNull(rsForm("tester_id")) And Tester Then %>
                                        <td class="body_txto">Awaiting</td>
                                <%ElseIf NOT IsNull(rsForm("tester_id")) And Manager Then%>
                                        <td class="body_rowlite"><a href="_wform_approval.asp?pv_id=<%=rsQry("prod_id")%>&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</a></td>
                                <%Else%>
                                        <td class="body_rowlite"></td>
                                <%End If%>
                        <%Else%>
                                <td class="body_txtg">Accepted</td>
                        <%End If

                        rsForm.Close()
                        Set rsForm = nothing
                        %>                      
          </tr>
                  <%
                        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
                  %>
                  
                  
                </table>        
                 
        
        
<%
'------------ RUN AFTER PAGE RENDER -----------
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->