Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				        ADD 					     |
6 
'|					  PACKAGES					     |
7 
'|                   OR DEPENDENCIES                 |
8 
'=====================================================
9 
%>
10 
<%
11 
Option explicit
12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
14 
%>
15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
20 
<%
21 
 
22 
'------------ ACCESS CONTROL ------------------
23 
%>
24 
<!--#include file="_access_control_login.asp"-->
25 
<!--#include file="_access_control_general.asp"-->
26 
<!--#include file="_access_control_project.asp"-->
27 
<%
28 
' Make sure rtag_id is always present
29 
If Request("pv_id") = "" AND Request("rtag_id") = "" Then
30 
	Response.Redirect("index.asp")
31 
End If
32 
%>
33 
<%
34 
'------------ Variable Definition -------------
35 
Dim parAdd_type
36 
Dim parPkg_list
37 
Dim parBase_view_id
38 
Dim rsPkgs
39 
Dim HTML_pkg_list
40 
Dim JSrequirementsSTR
41 
Dim parPv_id
42 
Dim parPkgfind
43 
'------------ Constants Declaration -----------
44 
'------------ Variable Init -------------------
45 
parAdd_type = Request("add_type")
46 
parPkg_list = Request("pkg_list")
47 
parBase_view_id = Request("base_view_id")
48 
parPv_id = Request("pv_id")
49 
parPkgfind = Request("pkgfind")
50 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
51 
'----------------------------------------------
52 
%>
53 
<%
54 
' ---- Action requirements ----
55 
If parPkg_list = "" Then Response.Redirect( "form_search_result_pkgs.asp?pv_id="& parPv_id &_
56 
                                            "&rtag_id="& parRtag_id &_
57 
											"&pkgfind="& parPkgfind &_
58 
                                            "&add_type="& parAdd_type &_
59 
											"&errmsg=true" )
60 
%>
61 
<%
62 
Function Page_Title ( NNadd_type )
63 
	If NNadd_type = Cstr(enum_ADD_PACKAGES) Then
64 
		Page_Title = "ADD package"
65 
 
66 
	ElseIf NNadd_type = Cstr(enum_ADD_DEPENDENCIES) Then
67 
		Page_Title = "ADD dependency"
68 
 
69 
	ElseIf NNadd_type = Cstr(enum_ADD_RUNTIME_DEPENDENCIES) Then
70 
		Page_Title = "ADD Runtime Dependency"
71 
 
72 
	Else
73 
		Page_Title = ""
74 
 
75 
	End If
76 
End Function
77 
 
78 
 
79 
Function Get_Pkg_Names ( SSpkglist )
80 
	Get_Pkg_Names = _
81 
	" SELECT pkg.PKG_ID, pkg.PKG_NAME, COUNT(pv.PV_ID) AS NUM_OF_VERSIONS "&_
82 
 	"	  FROM PACKAGE_VERSIONS pv,"&_
83 
	"	  	   PACKAGES pkg"&_
84 
	"	 WHERE pkg.PKG_ID IN ( "& SSpkglist &" ) "&_
85 
  	"	   AND pv.PKG_ID (+) = pkg.PKG_ID"&_
86 
	"	 GROUP BY pv.PKG_ID, pkg.PKG_ID, pkg.PKG_NAME"
87 
End Function
88 
 
89 
 
90 
Sub Get_All_Base_Views ( NNnewgroup_id, nPkg_id )
91 
	Dim rsTemp, Query_String
92 
 
93 
	Query_String = _
94 
	"	SELECT vi.view_id, vi.view_name, bv.hint "&_
95 
	"	  FROM views vi,"&_
96 
	"		   ("&_
97 
	"			SELECT DISTINCT rc.BASE_VIEW_ID, '>&nbsp;' AS hint"&_
98 
	"			  FROM release_content rc,"&_
99 
	"				   package_versions pv"&_
100 
	"			 WHERE rc.pv_id = pv.pv_id"&_
101 
	"			   AND pv.pkg_id IN ( "& nPkg_id &" )"&_
102 
	"		   ) bv"&_
103 
	"	 WHERE UPPER(vi.base_view) = 'Y'"&_
104 
	"	   AND bv.BASE_VIEW_ID (+) = vi.VIEW_ID"&_
105 
	"	 ORDER BY vi.view_name ASC"
106 
 
107 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
108 
 
109 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
110 
		If NNnewgroup_id = Cstr( rsTemp.Fields("view_id") )  OR NOT IsNull(rsTemp("hint")) Then
111 
			Response.write "<option value='"& rsTemp("view_id") &"' selected>"& rsTemp("hint") & rsTemp("view_name") &"</option>"
112 
		Else
113 
			Response.write "<option value='"& rsTemp("view_id") &"'>"& rsTemp("hint") & rsTemp("view_name") &"</option>"
114 
		End If
115 
 
116 
		rsTemp.MoveNext
117 
	WEnd
118 
 
119 
	rsTemp.Close
120 
	Set rsTemp = nothing
121 
End Sub
122 
 
123 
 
124 
Sub Get_All_Personal_Views ( NNuser_id )
125 
	Dim rsTemp, Query_String
126 
	If NNuser_id = "" Then Exit Sub
127 
 
128 
	Query_String = _
129 
	" SELECT vi.view_id, vi.view_name"&_
130 
	"  FROM view_settings vs,"&_
131 
	"       views vi"&_
132 
	" WHERE vs.view_id = vi.view_id"&_
133 
	"   AND vs.user_id = vi.owner_id  "&_
134 
	"   AND vs.user_id = "& NNuser_id &_
135 
	"   AND vi.base_view = 'N'"&_
136 
	" ORDER BY UPPER(vi.view_name)"
137 
 
138 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
139 
 
140 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
141 
		Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& rsTemp.Fields("view_name") &"</option>"
142 
 
143 
		rsTemp.MoveNext
144 
	WEnd
145 
 
146 
	rsTemp.Close
147 
	Set rsTemp = nothing
148 
End Sub
149 
 
150 
 
151 
Sub Get_Versions_From_Release ( NNpkg_list, NNrtag_id, DDVersion )
152 
	Dim rsTemp, Query_String
153 
 
154 
	If NNrtag_id = "" Then
155 
		Exit Sub
156 
	End If
157 
 
158 
	Query_String = _
159 
	" SELECT pv.pkg_id, pv.pkg_version"&_
160 
	"  FROM release_content rc,"&_
161 
	"       package_versions pv"&_
162 
	" WHERE rc.pv_id = pv.pv_id"&_
163 
	"   AND rc.rtag_id = "& NNrtag_id &_
164 
	"   AND pv.pkg_id IN ( "& NNpkg_list &" )"
165 
 
166 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
167 
 
168 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
169 
		If NOT DDVersion.Exists ( Cstr(rsTemp("pkg_id")) ) Then DDVersion.ADD Cstr(rsTemp("pkg_id")), Cstr(rsTemp("pkg_version"))
170 
		rsTemp.MoveNext
171 
	WEnd
172 
 
173 
	rsTemp.Close
174 
	Set rsTemp = nothing
175 
End Sub
176 
 
177 
 
178 
Sub Generate_Package_List ( NNpkg_list, SShtml_pkg_list, SSJSreq, NNrtag_id, NNadd_type )
179 
	Dim rsPkgs, VersionDict, hidePatches, readonly
180 
	hidePatches = "hidepatches=true&"
181 
 
182 
	If pkgInfoHash.Item ("is_patch") = "Y" Then hidePatches = ""
183 
 
184 
 
185 
	Set VersionDict = CreateObject("Scripting.Dictionary")
186 
 
187 
	If NNadd_type = Cstr(enum_ADD_DEPENDENCIES) OR NNadd_type = Cstr(enum_ADD_RUNTIME_DEPENDENCIES) _
188 
		Then Call Get_Versions_From_Release ( NNpkg_list, NNrtag_id, VersionDict )
189 
 
190 
	Set rsPkgs = OraDatabase.DbCreateDynaset( Get_Pkg_Names( NNpkg_list ), cint(0))
191 
	While ((NOT rsPkgs.BOF) AND (NOT rsPkgs.EOF))
192 
 
193 
		If NNadd_type = Cstr(enum_ADD_RUNTIME_DEPENDENCIES) Then
194 
			' Runtime depencencies do not have constraints on pkg version
195 
			SShtml_pkg_list = SShtml_pkg_list &"<tr> "
196 
			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif' nowrap class='form_item'>"& rsPkgs("pkg_name") &"</td>"
197 
			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif'><input type='text' name='pkgn"& rsPkgs("pkg_id") &"' class='form_item' size='12' value='"& VersionDict.Item(Cstr(rsPkgs("pkg_id"))) &"'> "
198 
			SShtml_pkg_list = SShtml_pkg_list &"    <a href='javascript:;' onClick='MM_openBrWindow(""_wform_get_version.asp?rfield=addpkg.pkgn"& rsPkgs("pkg_id") &"&pkg_id="& rsPkgs("pkg_id") &"&pkg_name="& rsPkgs("pkg_name") &""",""GetVersion"",""resizable=yes,width=350,height=150"")'><img src='images/i_get.gif' width='16' height='16' align='absmiddle' hspace='5' border='0' alt='Get package version' title='Get package version'></a> "
199 
			SShtml_pkg_list = SShtml_pkg_list &"  </td>"
200 
			SShtml_pkg_list = SShtml_pkg_list &"</tr>"
201 
			SSJSreq = SSJSreq & ",'pkgn"& rsPkgs("pkg_id") &"','"& rsPkgs("pkg_name") &" Version','R'"
202 
 
203 
		Else
204 
			' Build dependencies have some format to follow
205 
			readonly = ""
206 
			If rsPkgs("num_of_versions") > 0 Then readonly = "readonly"
207 
 
208 
			SShtml_pkg_list = SShtml_pkg_list &"<tr> "
209 
			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif' nowrap class='form_item'>"& rsPkgs("pkg_name") &"</td>"
210 
			SShtml_pkg_list = SShtml_pkg_list &"  <td background='images/bg_form_lightgray.gif'><input type='text' name='pkgn"& rsPkgs("pkg_id") &"' class='form_item' size='12' value='"& VersionDict.Item(Cstr(rsPkgs("pkg_id"))) &"'> "
211 
			SShtml_pkg_list = SShtml_pkg_list &"    <a href='javascript:;' onClick='MM_openBrWindow(""_wform_get_version.asp?"& hidePatches &"rfield=addpkg.pkgn"& rsPkgs("pkg_id") &"&pkg_id="& rsPkgs("pkg_id") &"&pkg_name="& rsPkgs("pkg_name") &""",""GetVersion"",""resizable=yes,width=350,height=150"")'><img src='images/i_get.gif' width='16' height='16' align='absmiddle' hspace='5' border='0' alt='Get package version' title='Get package version'></a> "
212 
			SShtml_pkg_list = SShtml_pkg_list &"  </td>"
213 
			SShtml_pkg_list = SShtml_pkg_list &"</tr>"
214 
			SSJSreq = SSJSreq & ",'pkgn"& rsPkgs("pkg_id") &"','"& rsPkgs("pkg_name") &" Version','RisVersionStr'"
215 
 
216 
		End If
217 
 
218 
		rsPkgs.MoveNext
219 
	WEnd
220 
	SSJSreq = Right( SSJSreq, Len(SSJSreq)-1 )		' Remove first comma
221 
 
222 
End Sub
223 
%>
224 
<%
225 
If parPv_id <> "" Then
226 
	Call Get_Pkg_Info ( parPv_id, NULL )
227 
End If
228 
%>
229 
<html>
230 
<head>
231 
<title>Release Manager</title>
232 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
233 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
234 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
235 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
236 
<script language="JavaScript" src="images/common.js"></script>
237 
<!-- DROPDOWN MENUS -->
238 
<!--#include file="_menu_def.asp"-->
239 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
240 
 
241 
</head>
242 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
243 
<!-- MENU LAYERS -------------------------------------->
244 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
245 
</div>
246 
<!-- TIPS LAYERS -------------------------------------->
247 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
248 
<!----------------------------------------------------->
249 
<!-- HEADER -->
250 
<!--#include file="_header.asp"-->
251 
<!-- BODY ---->
252 
<table width="100%" height="80%" border="0" cellpadding="0" cellspacing="0">
253 
  <tr>
254 
    <td align="center" valign="top" background="images/bg_lght_gray.gif">
255 
      <!-- MIDDLE ---------------------------------------->
256 
      <table width="650" border="0" cellspacing="0" cellpadding="0">
257 
        <tr>
258 
          <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
259 
              <tr>
260 
                <td width="1%"></td>
261 
                <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
262 
                <td width="1%"></td>
263 
              </tr>
264 
              <tr>
265 
                <td width="1%"></td>
266 
                <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
267 
                    <tr>
268 
                      <td nowrap class="form_ttl"><%=Page_Title ( parAdd_type )%></td>
269 
                      <td align="right" valign="bottom"></td>
270 
                    </tr>
271 
                  </table></td>
272 
                <td width="1%"></td>
273 
              </tr>
274 
              <tr>
275 
                <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
276 
                <td background="images/lbox_bg_blue.gif" align="right">
277 
                  <!-- Heading -->
278 
                  <img src="images/h_trsp_dot.gif" width="1" height="20">
279 
                  <!-- END Heading -->
280 
                </td>
281 
                <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
282 
              </tr>
283 
              <tr>
284 
                <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
285 
                <td bgcolor="#FFFFFF" valign="top">
286 
                  <!-- Body -->
287 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
288 
				  <%Call Generate_Package_List ( parPkg_list, HTML_pkg_list, JSrequirementsSTR, parRtag_id, parAdd_type )%>
289 
				  <%If parAdd_type = Cstr(enum_ADD_PACKAGES) Then%>
290 
				  	<form name="addpkg" method="post" action="_add_pkgs_to_release.asp" onSubmit="MM_validateForm('base_view_id','Base View','RisNumber',<%=JSrequirementsSTR%>);return document.MM_returnValue">
291 
                      <%'----------- Base View --------------%>
292 
					  <tr>
293 
                        <td width="1%" nowrap class="form_group" valign="bottom"></td>
294 
                        <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
295 
                      </tr>
296 
                      <tr>
297 
                        <td colspan="2" width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">To Base View</td>
298 
                      </tr>
299 
                      <tr>
300 
                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
301 
                          <select name="base_view_id" class="form_item">
302 
                            <option></option>
303 
                            <%Call Get_All_Base_Views( parBase_view_id, parPkg_list )%>
304 
                          </select>
305 
 
306 
						  <br>
307 
						  <span class="rep_small">NOTE: Symbol '>' in Base Views drop-down list is a suggestion where to place selected package(s).</span>
308 
                        </td>
309 
                      </tr>
310 
                      <tr>
311 
                        <td width="1%" nowrap class="form_group" valign="bottom"></td>
312 
                        <td nowrap width="100%" align="right" class="form_step"><br></td>
313 
                      </tr>
314 
                      <%'----------- Private View --------------%>
315 
                      <%If QStrPar("Pview") <> "disable" Then%>
316 
                      <tr>
317 
                        <td colspan="2" width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">To Personal View</td>
318 
                      </tr>
319 
                      <tr>
320 
                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
321 
                          <select name="personal_view_id" class="form_item">
322 
							<option value="">None</option>
323 
                            <%Call Get_All_Personal_Views( objAccessControl.UserId )%>
324 
                          </select> </td>
325 
                      </tr>
326 
                      <tr>
327 
                        <td width="1%" nowrap class="form_group" valign="bottom"></td>
328 
                        <td nowrap width="100%" align="right" class="form_step"><br></td>
329 
                      </tr>
330 
                      <%End If%>
331 
                      <%'---------------------------------------%>
332 
				  <%Else%>
333 
				  	<%If parAdd_type = Cstr(enum_ADD_RUNTIME_DEPENDENCIES) Then%>
334 
				    	<form name="addpkg" method="post" action="_add_runtime_dependencies.asp" onSubmit="MM_validateForm(<%=JSrequirementsSTR%>);return document.MM_returnValue">
335 
					<%Else%>
336 
						<form name="addpkg" method="post" action="_update_dependencies.asp" onSubmit="MM_validateForm(<%=JSrequirementsSTR%>);return document.MM_returnValue">
337 
					<%End If%>
338 
				      <tr>
339 
                        <td colspan="2" width="1%" nowrap class="form_field"><%=pkgInfoHash.Item ("pkg_name")%>&nbsp;<%=pkgInfoHash.Item ("pkg_version")%></td>
340 
                      </tr>
341 
				  <%End If%>
342 
                      <tr>
343 
                        <td colspan="2" width="1%" nowrap class="form_field">
344 
                          <table width="100%" border="0" cellspacing="1" cellpadding="2">
345 
                            <tr>
346 
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Package Name<img src="images/h_trsp_dot.gif" width="1" height="20" align="absmiddle"></td>
347 
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Version</td>
348 
                            </tr>
349 
                      		<%=HTML_pkg_list%>
350 
                            <tr>
351 
                              <td nowrap><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
352 
                              <td></td>
353 
                            </tr>
354 
                          </table></td>
355 
                      </tr>
356 
                      <tr>
357 
                        <td colspan="2" nowrap class="form_field">
358 
						  <input type="reset" name="btn" value="&laquo; Back" class="form_btn" onClick="history.back();">
359 
                          <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.go(-3);">
360 
                          <input type="submit" name="btn" value="  Add  " class="form_btn">
361 
                          <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;" class="body_scol"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
362 
                          <br> <br> </td>
363 
                      </tr>
364 
					  <input type="hidden" name="update_type" value="add_custom">
365 
					  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
366 
                      <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
367 
					  <input type="hidden" name="pkg_list" value="<%=parPkg_list%>">
368 
                    </form>
369 
                  </table>
370 
                  <!-- END Body-->
371 
                </td>
372 
                <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
373 
              </tr>
374 
              <tr>
375 
                <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
376 
                <td background="images/lbox_bg_blue.gif"></td>
377 
                <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
378 
              </tr>
379 
            </table></td>
380 
        </tr>
381 
      </table>
382 
      <!-------------------------------------------------->
383 
    </td>
384 
  </tr>
385 
  <tr>
386 
    <td valign="bottom" background="images/bg_lght_gray.gif">
387 
	<!-- FOOTER -->
388 
	<!--#include file="_footer.asp"-->
389 
	</td>
390 
  </tr>
391 
</table>
392 
</body>
393 
</html>
394 
<%
395 
Call Destroy_All_Objects
396 
%>