WebSVN – DevTools – /ManagerSuite/Deployment_Manager/trunk/web/wUnDeployView.asp

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                wUnDeployView                  |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<%
'To enable the script timeout to 10 mins
Server.ScriptTimeout=600
%>
<!--#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 rsQry
Dim aProducts
Dim numOfRows
Dim rowNum
Dim objFormCollector
Dim currPkg_id
Dim     Query_String
'Dim parProj_id
'Dim parBranch_id
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parProj_id = Request("proj_id")
parBranch_id = Request("branch_id")
Set objFormCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nProj_id, ByRef outobjDetails )
        Dim rsQry, query
        OraDatabase.Parameters.Add "PROJ_ID",           nProj_id,               ORAPARM_INPUT, ORATYPE_NUMBER 
        
        query = _
        "  SELECT * FROM DM_PROJECTS WHERE PROJ_ID= "&nProj_id
        
        Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
        If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
                outobjDetails.Item ("RM_PROJECTS_FK") = rsQry("RM_PROJECTS_FK")
        End If
        
        
        OraDatabase.Parameters.Remove "PROJ_ID"
        
        rsQry.Close
        Set rsQry = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------
Sub Get_Project_Release ( NNproj_id )
        Dim rsTemp, Query_String
        
        Query_String = _
        "SELECT * FROM RELEASE_TAGS WHERE PROJ_ID="&NNproj_id&" ORDER BY RTAG_ID DESC"
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
        
        Response.write "<select name='FRrtag_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRrtag_id=',this,0)"" class='form_item'>"
        Response.write "<option></option>"      
                While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                        If CDbl(Request("FRrtag_id")) = CDbl(rsTemp.Fields("rtag_id")) Then
                        Response.write "<option value='"& rsTemp.Fields("rtag_id") &"' selected>"& (rsTemp.Fields("rtag_name")) &"</option>"
                Else
                                Response.write "<option value='"& rsTemp.Fields("rtag_id") &"'>"& (rsTemp.Fields("rtag_name")) &"</option>"
                        End If
                        rsTemp.MoveNext
                WEnd
        Response.write "</select>"
        
        rsTemp.Close
        Set rsTemp = nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------
Sub Get_SBOM_Release ( NNbranch_id )
        Dim rsTemp, Query_String
        
        Query_String = _
        "SELECT * FROM BOMS BM, BOM_NAMES BN "&_
        "WHERE BM.BOM_NAME_ID = BN.BOM_NAME_ID "&_
        "AND BM.BRANCH_ID="&NNbranch_id&" ORDER BY BOM_ID DESC"
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
        
        Response.write "<select name='FRbom_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRbom_id=',this,0)"" class='form_item'>"
        Response.write "<option></option>"
                
                While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                        If CDbl(Request("FRbom_id")) = CDbl(rsTemp.Fields("bom_id")) Then
                        Response.write "<option value='"& rsTemp.Fields("bom_id") &"' selected>"& rsTemp.Fields("bom_name") &" "& rsTemp.Fields("bom_version") &"."& rsTemp.Fields("bom_lifecycle") &"</option>"
                Else
                                Response.write "<option value='"& rsTemp.Fields("bom_id") &"'>"& rsTemp.Fields("bom_name") &" "& rsTemp.Fields("bom_version") &"."& rsTemp.Fields("bom_lifecycle") &"</option>"
                        End If
                        rsTemp.MoveNext
                WEnd
        Response.write "</select>"
        
        rsTemp.Close
        Set rsTemp = nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
Call GetFormDetails ( parProj_id, objFormCollector )



'----------------------------------------------
%>


<html>
<head>
<title>Deployment Manager</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<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?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
<style type="text/css">
<!--
.style8 {font-size: 12px}
-->
</style>
</head>

<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.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">&nbsp;UnDeployed View For Products/Patches  </span> <br>
    UnDeployed View, comparing with the latest from "Release Manager".
    </td>
  </tr> 
<%
'-- FROM START --------------------------------------------------------------------------------------------------------------
objFormComponent.FormName = "FormName"
objFormComponent.Action = SCRIPT_NAME
objFormComponent.OnSubmit = "ShowProgress();"
Call objFormComponent.FormStart()
%>    
  <tr>
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr> 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
        <td width="1%" align="right" nowrap class="form_field"><b>Release Manager Reference Release:</b></td>
        <td width="100%"><%Call Get_Project_Release( objFormCollector.Item("RM_PROJECTS_FK") )%></td>
      </tr>
          <tr> 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
        <td width="1%" align="right" nowrap class="form_field"><b>Deployment Manager SBOM Release:</b></td>
        <td width="100%"><%Call Get_SBOM_Release( parBranch_id )%></td>
      </tr>
      <tr>
        <td><%=ProgressBar()%>
          </td>
                <td width="1%" align="right" nowrap class="form_field"></td>
        <td align="centre">
            <div align="left">
              <input name="btn2" type="submit" class="form_btn" value="Compare">
              <input name="btn" type="reset" class="form_btn" value="Back" onClick="window.location='<%=Request("rfile") &"bomstates.asp?CANCEL=OK"& objPMod.ComposeURLWithout("rfile")%>';">
            </div></td></tr>
    </table></td>
  </tr>
  <tr>
    <td>


<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->            
        <table width="100%"  border="0" cellspacing="10" cellpadding="0">
      <tr>
        <td width="100%" valign="top" nowrap class="body_txt">
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->  
                  <!--#include file="messages/_msg_inline.asp"-->
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                  <%
                  'If objFormCollector.Item("rtag_id_fk") = "" Then
                        'Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
                  'End If
                  %>
                  <!-- VIEW PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
            <tr>
                          <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Product</td>
              <td width="40%" nowrap background="images/bg_bage_0h.gif" class="body_col">Location</td>
              <td width="20%" nowrap background="images/bg_bage_0h.gif" class="body_col">Version</td>
              <td width="20%" background="images/bg_bage_0h.gif" class="body_col"><img src="images/spacer.gif" width="1" height="18" align="absmiddle">Latest</td>
            </tr>
                        <%
                        OraDatabase.Parameters.Add "BOM_ID", Request("FRbom_id"),               ORAPARM_INPUT, ORATYPE_NUMBER 
                        OraDatabase.Parameters.Add "RTAG_ID", Request("FRrtag_id"),             ORAPARM_INPUT, ORATYPE_NUMBER 
                        
                        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
                        currPkg_id = 0
                        %>
                        <%If rsQry.RecordCount < 1 Then%>
                        <tr>
              <td colspan="4" class="body_row">No Products to Update.</td>
            </tr>
                        <%End If%>
                        
                        <%
                        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                        %>
                        <%If currPkg_id <> rsQry("pkg_id") Then%>
            <tr>
                          <td colspan="2" nowrap><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></td>
              <td nowrap class="body_row">&nbsp;</td>
              <td nowrap class="body_row"></td>
            </tr>
                        <tr>
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
                        <%currPkg_id = rsQry("pkg_id")%>
                        <%End If%>
                        
            <tr>
              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>" disabled> </td>
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
              <td nowrap class="body_txtr"><%=rsQry("rm_latest_version")%></td>
            </tr>
                        <tr>
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
                        
            <%rsQry.MoveNext
                        Wend
                        %>
                        
                  
                  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                    <%
                        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatchesView.sql"), ORADYN_DEFAULT )
                        currPkg_id = 0
                        %>
                        
                        <%If rsQry.RecordCount > 0 Then%>
                    <tr>
                          <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Patch</td>
              <td nowrap background="images/bg_bage_0h.gif" class="body_col">Location</td>
                          <td nowrap background="images/bg_bage_0h.gif" class="body_col">Version</td>
                          <td nowrap background="images/bg_bage_0h.gif" class="body_col">Comments</td>
              <td background="images/bg_bage_0h.gif" class="body_col"><img src="images/spacer.gif" width="1" height="18" align="absmiddle"></td>
            </tr>
                        
                        <%
                        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                        %>
                        <%If currPkg_id <> rsQry("pkg_id") Then%>
            <tr>
                          <td colspan="2" nowrap><span class="body_row"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("prod_name")%></span></td>
              <td nowrap class="body_row">&nbsp;</td>
              <td nowrap class="body_row"></td>
            </tr>
                        <tr>
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
                        <%currPkg_id = rsQry("pkg_id")%>
                        <%End If%>
                        
            <tr>
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>" disabled> </td>
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
                          <td nowrap class="body_row"><%=rsQry("comments")%></td>
              <td nowrap class="body_txtr"></td>
            </tr>
                        <tr>
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
                        
            <%rsQry.MoveNext
                        Wend
                        %>
                        
                        <%End If%>
                        
                        <tr>
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
            </tr>
          </table>
                  
                  
                  <%
                  OraDatabase.Parameters.Remove "RTAG_ID"
                  OraDatabase.Parameters.Remove "BOM_ID"
                  rsQry.Close
                  Set rsQry = Nothing
                  %>
                  </td>
        </tr>
    </table>
        <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
    </td>
  </tr>
  <%=objPMod.ComposeHiddenTags()%>
  <input type="hidden" name="action" value="true">
<%

Call objFormComponent.FormEnd()
'-- FROM END ----------------------------------------------------------------------------------------------------------------
%>
</table>
</body>
</html>
<!--#include file="common/globals_destructor.asp"-->
Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/web/wUnDeployView.asp – Rev 6663
