Subversion Repositories DevTools

Rev

Rev 5958 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wUnDeployView                  |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<%
14 
'To enable the script timeout to 10 mins
15 
Server.ScriptTimeout=600
16 
%>
17 
<!--#include file="common/globals.asp"-->
18 
<!--#include file="common/config.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
20 
<!--#include file="common/_popup_window_common.asp"-->
21 
<%
22 
'------------ ACCESS CONTROL ------------------
23 
%>
24 
<!--#include file="_access_control_general.asp"-->
25 
<%
26 
'------------ VARIABLE DEFINITION -------------
27 
Dim rsQry
28 
Dim aProducts
29 
Dim numOfRows
30 
Dim rowNum
31 
Dim objFormCollector
32 
Dim currPkg_id
33 
Dim	Query_String
34 
'Dim parProj_id
35 
'Dim parBranch_id
36 
'------------ CONSTANTS DECLARATION -----------
37 
'------------ VARIABLE INIT -------------------
38 
parProj_id = Request("proj_id")
39 
parBranch_id = Request("branch_id")
40 
Set objFormCollector = CreateObject("Scripting.Dictionary")
41 
'------------ CONDITIONS ----------------------
42 
'----------------------------------------------
43 
%>
44 
<%
45 
'----------------------------------------------------------------------------------------------------------------------------------
46 
Sub GetFormDetails ( nProj_id, ByRef outobjDetails )
47 
	Dim rsQry, query
48 
	OraDatabase.Parameters.Add "PROJ_ID", 		nProj_id,		ORAPARM_INPUT, ORATYPE_NUMBER
49 
 
50 
	query = _
51 
	"  SELECT * FROM DM_PROJECTS WHERE PROJ_ID= "&nProj_id
52 
 
53 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
54 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
55 
		outobjDetails.Item ("RM_PROJECTS_FK") = rsQry("RM_PROJECTS_FK")
56 
	End If
57 
 
58 
 
59 
	OraDatabase.Parameters.Remove "PROJ_ID"
60 
 
61 
	rsQry.Close
62 
	Set rsQry = Nothing
63 
End Sub
64 
'----------------------------------------------------------------------------------------------------------------------------------
65 
Sub Get_Project_Release ( NNproj_id )
66 
	Dim rsTemp, Query_String
67 
 
68 
	Query_String = _
69 
	"SELECT * FROM RELEASE_TAGS WHERE PROJ_ID="&NNproj_id&" ORDER BY RTAG_ID DESC"
70 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
71 
 
72 
	Response.write "<select name='FRrtag_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRrtag_id=',this,0)"" class='form_item'>"
73 
	Response.write "<option></option>"
74 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
75 
			If CDbl(Request("FRrtag_id")) = CDbl(rsTemp.Fields("rtag_id")) Then
76 
	        	Response.write "<option value='"& rsTemp.Fields("rtag_id") &"' selected>"& (rsTemp.Fields("rtag_name")) &"</option>"
77 
	        Else
78 
				Response.write "<option value='"& rsTemp.Fields("rtag_id") &"'>"& (rsTemp.Fields("rtag_name")) &"</option>"
79 
			End If
80 
			rsTemp.MoveNext
81 
		WEnd
82 
	Response.write "</select>"
83 
 
84 
	rsTemp.Close
85 
	Set rsTemp = nothing
86 
End Sub
87 
'----------------------------------------------------------------------------------------------------------------------------------
88 
Sub Get_SBOM_Release ( NNbranch_id )
89 
	Dim rsTemp, Query_String
90 
 
91 
	Query_String = _
92 
	"SELECT * FROM BOMS BM, BOM_NAMES BN "&_
93 
	"WHERE BM.BOM_NAME_ID = BN.BOM_NAME_ID "&_
94 
	"AND BM.BRANCH_ID="&NNbranch_id&" ORDER BY BOM_ID DESC"
95 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
96 
 
97 
	Response.write "<select name='FRbom_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRbom_id=',this,0)"" class='form_item'>"
98 
	Response.write "<option></option>"
99 
 
100 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
101 
			If CDbl(Request("FRbom_id")) = CDbl(rsTemp.Fields("bom_id")) Then
102 
	        	Response.write "<option value='"& rsTemp.Fields("bom_id") &"' selected>"& rsTemp.Fields("bom_name") &" "& rsTemp.Fields("bom_version") &"."& rsTemp.Fields("bom_lifecycle") &"</option>"
103 
	        Else
104 
				Response.write "<option value='"& rsTemp.Fields("bom_id") &"'>"& rsTemp.Fields("bom_name") &" "& rsTemp.Fields("bom_version") &"."& rsTemp.Fields("bom_lifecycle") &"</option>"
105 
			End If
106 
			rsTemp.MoveNext
107 
		WEnd
108 
	Response.write "</select>"
109 
 
110 
	rsTemp.Close
111 
	Set rsTemp = nothing
112 
End Sub
113 
'----------------------------------------------------------------------------------------------------------------------------------
114 
%>
115 
<%
116 
'------------ RUN BEFORE PAGE RENDER ----------
117 
Call GetFormDetails ( parProj_id, objFormCollector )
118 
 
119 
 
120 
 
121 
'----------------------------------------------
122 
%>
123 
 
124 
 
125 
<html>
126 
<head>
127 
<title>Deployment Manager</title>
128 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
129 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
130 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6663 dpurdie 131 
<link href="scripts/deployment_manager.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">
132 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
133 
<script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>
5355 dpurdie 134 
<style type="text/css">
135 
<!--
136 
.style8 {font-size: 12px}
137 
-->
138 
</style>
139 
</head>
140 
 
141 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
142 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
143 
  <tr>
144 
    <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>
145 
    UnDeployed View, comparing with the latest from "Release Manager".
146 
    </td>
147 
  </tr>
148 
<%
149 
'-- FROM START --------------------------------------------------------------------------------------------------------------
150 
objFormComponent.FormName = "FormName"
151 
objFormComponent.Action = SCRIPT_NAME
152 
objFormComponent.OnSubmit = "ShowProgress();"
153 
Call objFormComponent.FormStart()
154 
%>
155 
  <tr>
156 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
157 
	  <tr>
158 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
159 
        <td width="1%" align="right" nowrap class="form_field"><b>Release Manager Reference Release:</b></td>
160 
        <td width="100%"><%Call Get_Project_Release( objFormCollector.Item("RM_PROJECTS_FK") )%></td>
161 
      </tr>
162 
	  <tr>
163 
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
164 
        <td width="1%" align="right" nowrap class="form_field"><b>Deployment Manager SBOM Release:</b></td>
165 
        <td width="100%"><%Call Get_SBOM_Release( parBranch_id )%></td>
166 
      </tr>
167 
      <tr>
168 
        <td><%=ProgressBar()%>
169 
          </td>
170 
		<td width="1%" align="right" nowrap class="form_field"></td>
171 
        <td align="centre">
172 
            <div align="left">
173 
              <input name="btn2" type="submit" class="form_btn" value="Compare">
174 
              <input name="btn" type="reset" class="form_btn" value="Back" onClick="window.location='<%=Request("rfile") &"bomstates.asp?CANCEL=OK"& objPMod.ComposeURLWithout("rfile")%>';">
175 
            </div></td></tr>
176 
    </table></td>
177 
  </tr>
178 
  <tr>
179 
    <td>
180 
 
181 
 
182 
<!-- PRODUCT NAME RESULTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
183 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
184 
      <tr>
185 
        <td width="100%" valign="top" nowrap class="body_txt">
186 
		  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
187 
		  <!--#include file="messages/_msg_inline.asp"-->
188 
		  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
189 
		  <%
190 
		  'If objFormCollector.Item("rtag_id_fk") = "" Then
191 
			'Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>", 1, "100%" )
192 
		  'End If
193 
		  %>
194 
		  <!-- VIEW PRODUCTS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
195 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
196 
            <tr>
197 
			  <td width="1%" nowrap background="images/bg_bage_0h.gif" class="body_col">Product</td>
198 
              <td width="40%" nowrap background="images/bg_bage_0h.gif" class="body_col">Location</td>
199 
              <td width="20%" nowrap background="images/bg_bage_0h.gif" class="body_col">Version</td>
200 
              <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>
201 
            </tr>
202 
			<%
203 
			OraDatabase.Parameters.Add "BOM_ID", Request("FRbom_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
204 
			OraDatabase.Parameters.Add "RTAG_ID", Request("FRrtag_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
205 
 
206 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT )
207 
			currPkg_id = 0
208 
			%>
209 
			<%If rsQry.RecordCount < 1 Then%>
210 
			<tr>
211 
              <td colspan="4" class="body_row">No Products to Update.</td>
212 
            </tr>
213 
			<%End If%>
214 
 
215 
			<%
216 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
217 
			%>
218 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
219 
            <tr>
220 
			  <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>
221 
              <td nowrap class="body_row">&nbsp;</td>
222 
              <td nowrap class="body_row"></td>
223 
            </tr>
224 
			<tr>
225 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
226 
            </tr>
227 
			<%currPkg_id = rsQry("pkg_id")%>
228 
			<%End If%>
229 
 
230 
            <tr>
231 
              <td align="center" nowrap><input type="checkbox" name="update_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("latest_prod_id")%>" disabled> </td>
232 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
233 
              <td nowrap class="body_row"><%=rsQry("prod_version")%></td>
234 
              <td nowrap class="body_txtr"><%=rsQry("rm_latest_version")%></td>
235 
            </tr>
236 
			<tr>
237 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
238 
            </tr>
239 
 
240 
            <%rsQry.MoveNext
241 
			Wend
242 
			%>
243 
 
244 
 
245 
		  <!-- NEW PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
246 
		    <%
247 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatchesView.sql"), ORADYN_DEFAULT )
248 
			currPkg_id = 0
249 
			%>
250 
 
251 
			<%If rsQry.RecordCount > 0 Then%>
252 
		    <tr>
253 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col" align="center">Patch</td>
254 
              <td nowrap background="images/bg_bage_0h.gif" class="body_col">Location</td>
255 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col">Version</td>
256 
			  <td nowrap background="images/bg_bage_0h.gif" class="body_col">Comments</td>
257 
              <td background="images/bg_bage_0h.gif" class="body_col"><img src="images/spacer.gif" width="1" height="18" align="absmiddle"></td>
258 
            </tr>
259 
 
260 
			<%
261 
			While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
262 
			%>
263 
			<%If currPkg_id <> rsQry("pkg_id") Then%>
264 
            <tr>
265 
			  <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>
266 
              <td nowrap class="body_row">&nbsp;</td>
267 
              <td nowrap class="body_row"></td>
268 
            </tr>
269 
			<tr>
270 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
271 
            </tr>
272 
			<%currPkg_id = rsQry("pkg_id")%>
273 
			<%End If%>
274 
 
275 
            <tr>
276 
              <td align="center" nowrap><input type="checkbox" name="add_<%=rsQry("os_id") &"_"& rsQry("prod_id")%>" value="<%=rsQry("prod_id")%>" disabled> </td>
277 
              <td nowrap class="body_row"><img hspace="2" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><%=rsQry("prod_location")%></td>
278 
              <td nowrap class="body_row"><img src="icons/i_patch_small.gif" width="16" height="16" border="0" align="absmiddle"><%=rsQry("prod_version")%></td>
279 
			  <td nowrap class="body_row"><%=rsQry("comments")%></td>
280 
              <td nowrap class="body_txtr"></td>
281 
            </tr>
282 
			<tr>
283 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
284 
            </tr>
285 
 
286 
            <%rsQry.MoveNext
287 
			Wend
288 
			%>
289 
 
290 
			<%End If%>
291 
 
292 
			<tr>
293 
              <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="3"></td>
294 
            </tr>
295 
          </table>
296 
 
297 
 
298 
		  <%
299 
		  OraDatabase.Parameters.Remove "RTAG_ID"
300 
		  OraDatabase.Parameters.Remove "BOM_ID"
301 
		  rsQry.Close
302 
		  Set rsQry = Nothing
303 
		  %>
304 
		  </td>
305 
        </tr>
306 
    </table>
307 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
308 
    </td>
309 
  </tr>
310 
  <%=objPMod.ComposeHiddenTags()%>
311 
  <input type="hidden" name="action" value="true">
312 
<%
313 
 
314 
Call objFormComponent.FormEnd()
315 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
316 
%>
317 
</table>
318 
</body>
319 
</html>
5958 dpurdie 320 
<!--#include file="common/globals_destructor.asp"-->
321