| 119 |
ghuddy |
1 |
<%
|
|
|
2 |
'=====================================================
|
|
|
3 |
' Build Environment
|
|
|
4 |
'=====================================================
|
|
|
5 |
%>
|
|
|
6 |
<!--#include file="_tabs_definition_env.asp"-->
|
|
|
7 |
<!--#include file="common/_form_window_common.asp"-->
|
|
|
8 |
<%
|
|
|
9 |
'------------ Variable Definition -------------
|
|
|
10 |
Dim parOLshow ' show/hide outer-latest
|
|
|
11 |
Dim parBshow ' expand/collapse base views
|
|
|
12 |
Dim parPshow ' expand/collapse personal views
|
|
|
13 |
Dim parPview ' enable/disable all personal views
|
|
|
14 |
Dim parDview ' enable/disable deployment view.
|
|
|
15 |
Dim IMG_locked
|
|
|
16 |
Dim rsEnvQry
|
|
|
17 |
Dim pvIdInList
|
|
|
18 |
Dim checked
|
|
|
19 |
Dim disabled
|
|
|
20 |
DIm aFullList
|
|
|
21 |
Dim pkgType
|
|
|
22 |
Dim retERRmsg
|
|
|
23 |
Dim retALRTmsg
|
|
|
24 |
Dim retParameters
|
|
|
25 |
Dim SCRIPT_NAME 'Use this here only as the previous one ScriptName is Already Defined
|
|
|
26 |
Dim rsBuildType
|
|
|
27 |
'------------ Constants Declaration -----------
|
|
|
28 |
Const imgMaximise = "<IMG src='images/i_maximise.gif' alt='Show view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
|
|
|
29 |
Const imgMinimise = "<IMG src='images/i_minimise.gif' alt='Hide view contents.' width=13 height=13 hspace='2' vspace='1' border='0'>"
|
|
|
30 |
Const imgForced = "<img src='images/s_forced.gif' width='19' height='17' align='absmiddle'>"
|
|
|
31 |
Const imgLocked = "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
|
|
|
32 |
Const hlColor = "#DDDDDD"
|
|
|
33 |
Const imgAdded = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Added'>"
|
|
|
34 |
Const imgRemoved = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='To Be Removed'>"
|
|
|
35 |
'------------ Variable Init -------------------
|
|
|
36 |
parOLshow = QStrPar("OLshow")
|
|
|
37 |
parBshow = QStrPar("Bshow")
|
|
|
38 |
parPshow = QStrPar("Pshow")
|
|
|
39 |
parPview = QStrPar("Pview")
|
|
|
40 |
parDview = QStrPar("Dview")
|
|
|
41 |
'----------------------------------------------
|
|
|
42 |
%>
|
|
|
43 |
|
|
|
44 |
<script language="JavaScript" type="text/javascript">
|
|
|
45 |
<!--
|
|
|
46 |
var is_ie = (navigator.userAgent.indexOf('MSIE') >= 0) ? 1 : 0;
|
|
|
47 |
var is_ie5 = (navigator.appVersion.indexOf("MSIE 5.5")!=-1) ? 1 : 0;
|
|
|
48 |
var is_opera = ((navigator.userAgent.indexOf("Opera6")!=-1)||(navigator.userAgent.indexOf("Opera/6")!=-1)) ? 1 : 0;
|
|
|
49 |
//netscape, safari, mozilla behave the same???
|
|
|
50 |
var is_netscape = (navigator.userAgent.indexOf('Netscape') >= 0) ? 1 : 0;
|
|
|
51 |
|
|
|
52 |
function RequestViewContent( paramString, rowId ){
|
|
|
53 |
var requestURL = 'RequestViewContent.asp';
|
|
|
54 |
|
|
|
55 |
// Toggle div
|
|
|
56 |
ToggleDisplay( 'ENVDIV'+ rowId );
|
|
|
57 |
|
|
|
58 |
// Change display states
|
|
|
59 |
if ( (MM_findObj( 'ENVIMG'+ rowId ).src).indexOf('btn_max.gif') == -1 )
|
|
|
60 |
{
|
|
|
61 |
// View is currently minimised
|
|
|
62 |
MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_max.gif';
|
|
|
63 |
MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#808080';
|
|
|
64 |
|
|
|
65 |
// Remove from SHow View List
|
|
|
66 |
RemoveFromShowView ( rowId );
|
|
|
67 |
|
|
|
68 |
}
|
|
|
69 |
else
|
|
|
70 |
{
|
|
|
71 |
// View is currently maximised
|
|
|
72 |
MM_findObj( 'ENVIMG'+ rowId ).src = 'images/btn_min.gif';
|
|
|
73 |
MM_findObj( 'SPANVIEW'+ rowId ).style.color = '#000000';
|
|
|
74 |
|
|
|
75 |
// Add it to Show view id
|
|
|
76 |
AddToShowView ( rowId );
|
|
|
77 |
|
|
|
78 |
}
|
|
|
79 |
|
|
|
80 |
// Fix div width for ie so it does not overflow
|
|
|
81 |
if (is_ie)
|
|
|
82 |
{
|
|
|
83 |
MM_findObj( 'ENVDIV'+ rowId ).style.width = '100%';
|
|
|
84 |
}
|
|
|
85 |
|
|
|
86 |
|
|
|
87 |
|
|
|
88 |
// Set ajax divname
|
|
|
89 |
ajaxdivname = 'ENVDIV'+ rowId;
|
|
|
90 |
|
|
|
91 |
|
|
|
92 |
|
|
|
93 |
// Request data from server
|
|
|
94 |
if ( (MM_findObj( ajaxdivname ).innerHTML).indexOf('<%=enumLOADING%>') != -1 )
|
|
|
95 |
{
|
|
|
96 |
|
|
|
97 |
//Append the name to search for to the requestURL
|
|
|
98 |
var url = requestURL + paramString;
|
|
|
99 |
|
|
|
100 |
//Create the xmlHttp object to use in the request
|
|
|
101 |
//stateChangeHandler will fire when the state has changed, i.e. data is received back
|
|
|
102 |
// This is non-blocking (asynchronous)
|
|
|
103 |
xmlHttp = GetXmlHttpObject(stateChangeHandler);
|
|
|
104 |
|
|
|
105 |
//Send the xmlHttp get to the specified url
|
|
|
106 |
xmlHttp_Get(xmlHttp, url);
|
|
|
107 |
|
|
|
108 |
}
|
|
|
109 |
|
|
|
110 |
|
|
|
111 |
}
|
|
|
112 |
|
|
|
113 |
function GetXmlHttpObject(handler) {
|
|
|
114 |
var objXmlHttp = null; //Holds the local xmlHTTP object instance
|
|
|
115 |
|
|
|
116 |
//Depending on the browser, try to create the xmlHttp object
|
|
|
117 |
if (is_ie){
|
|
|
118 |
//The object to create depends on version of IE
|
|
|
119 |
//If it isn't ie5, then default to the Msxml2.XMLHTTP object
|
|
|
120 |
var strObjName = (is_ie5) ? 'Microsoft.XMLHTTP' : 'Msxml2.XMLHTTP';
|
|
|
121 |
|
|
|
122 |
//Attempt to create the object
|
|
|
123 |
try{
|
|
|
124 |
objXmlHttp = new ActiveXObject(strObjName);
|
|
|
125 |
objXmlHttp.onreadystatechange = handler;
|
|
|
126 |
}
|
|
|
127 |
catch(e){
|
|
|
128 |
//Object creation errored
|
|
|
129 |
alert('IE detected, but object could not be created. Verify that active scripting and activeX controls are enabled');
|
|
|
130 |
return;
|
|
|
131 |
}
|
|
|
132 |
}
|
|
|
133 |
else if (is_opera){
|
|
|
134 |
//Opera has some issues with xmlHttp object functionality
|
|
|
135 |
alert('Opera detected. The page may not behave as expected.');
|
|
|
136 |
return;
|
|
|
137 |
}
|
|
|
138 |
else{
|
|
|
139 |
// Mozilla | Netscape | Safari
|
|
|
140 |
objXmlHttp = new XMLHttpRequest();
|
|
|
141 |
objXmlHttp.onload = handler;
|
|
|
142 |
objXmlHttp.onerror = handler;
|
|
|
143 |
}
|
|
|
144 |
|
|
|
145 |
//Return the instantiated object
|
|
|
146 |
return objXmlHttp;
|
|
|
147 |
}
|
|
|
148 |
|
|
|
149 |
//stateChangeHandler will fire when the state has changed, i.e. data is received back
|
|
|
150 |
// This is non-blocking (asynchronous)
|
|
|
151 |
function stateChangeHandler()
|
|
|
152 |
{
|
|
|
153 |
//readyState of 4 or 'complete' represents that data has been returned
|
|
|
154 |
if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
|
|
|
155 |
//Gather the results from the callback
|
|
|
156 |
var str = xmlHttp.responseText;
|
|
|
157 |
|
|
|
158 |
//Populate the innerHTML of the div with the results
|
|
|
159 |
document.getElementById(ajaxdivname).innerHTML = str;
|
|
|
160 |
}
|
|
|
161 |
}
|
|
|
162 |
|
|
|
163 |
// XMLHttp send GET request
|
|
|
164 |
function xmlHttp_Get(xmlhttp, url) {
|
|
|
165 |
//Getting a permissions error here? Check the url string to
|
|
|
166 |
// ensure it is accurate (defined above)
|
|
|
167 |
xmlhttp.open('GET', url, true);
|
|
|
168 |
xmlhttp.send(null);
|
|
|
169 |
}
|
|
|
170 |
|
|
|
171 |
|
|
|
172 |
|
|
|
173 |
function RemoveFromShowView ( ViewId )
|
|
|
174 |
{
|
|
|
175 |
// Get current cookie settings
|
|
|
176 |
var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
|
|
|
177 |
var aShowViews = new Array();
|
|
|
178 |
|
|
|
179 |
if (us)
|
|
|
180 |
{
|
|
|
181 |
// Cookie is not empty, hence just append new value
|
|
|
182 |
var aViews = us.split(',');
|
|
|
183 |
|
|
|
184 |
// Make sure that view is not already on the list
|
|
|
185 |
for (i=0; i<aViews.length; i++)
|
|
|
186 |
{
|
|
|
187 |
if (aViews[i] != ViewId)
|
|
|
188 |
{
|
|
|
189 |
aShowViews.push(aViews[i]);
|
|
|
190 |
}
|
|
|
191 |
}
|
|
|
192 |
|
|
|
193 |
// Make a new view list to be stored in cookie
|
|
|
194 |
us = aShowViews.join(',');
|
|
|
195 |
|
|
|
196 |
}
|
|
|
197 |
else
|
|
|
198 |
{
|
|
|
199 |
us = '';
|
|
|
200 |
}
|
|
|
201 |
|
|
|
202 |
// Store to cookie
|
|
|
203 |
document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
|
|
|
204 |
|
|
|
205 |
}
|
|
|
206 |
|
|
|
207 |
function AddToShowView ( ViewId )
|
|
|
208 |
{
|
|
|
209 |
// Get current cookie settings
|
|
|
210 |
var us = GetCookie('<%=COOKIE_RELMGR_SHOW_VIEW%>');
|
|
|
211 |
var aShowViews = new Array();
|
|
|
212 |
|
|
|
213 |
//Release Manager Cookie Available on Show View
|
|
|
214 |
if ( us )
|
|
|
215 |
{
|
|
|
216 |
|
|
|
217 |
// Cookie is not empty, hence just append new value
|
|
|
218 |
var aViews = us.split(',');
|
|
|
219 |
|
|
|
220 |
// Make sure that view is not already on the list
|
|
|
221 |
for (i=0; i<aViews.length; i++)
|
|
|
222 |
{
|
|
|
223 |
if (aViews[i] != ViewId)
|
|
|
224 |
{
|
|
|
225 |
aShowViews.push(aViews[i]);
|
|
|
226 |
}
|
|
|
227 |
}
|
|
|
228 |
|
|
|
229 |
// Make a new view list to be stored in cookie
|
|
|
230 |
us = aShowViews.join(',') + ',' + ViewId;
|
|
|
231 |
|
|
|
232 |
|
|
|
233 |
}
|
|
|
234 |
else//Release Manager Cookie Not Available on Show View
|
|
|
235 |
{
|
|
|
236 |
// Cookie is empty, just add this value
|
|
|
237 |
us = ViewId;
|
|
|
238 |
|
|
|
239 |
}
|
|
|
240 |
|
|
|
241 |
|
|
|
242 |
// Store to cookie
|
|
|
243 |
document.cookie = '<%=COOKIE_RELMGR_SHOW_VIEW%>' + '=' + us;
|
|
|
244 |
|
|
|
245 |
}
|
|
|
246 |
|
|
|
247 |
|
|
|
248 |
//-->
|
|
|
249 |
</script>
|
|
|
250 |
|
|
|
251 |
<%
|
|
|
252 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
253 |
Function GetEnvTab ( sEnvTab )
|
|
|
254 |
If sEnvTab <> "" Then
|
|
|
255 |
GetEnvTab = sEnvTab
|
|
|
256 |
Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = sEnvTab
|
|
|
257 |
Else
|
|
|
258 |
If Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") <> "" Then
|
|
|
259 |
GetEnvTab = Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab")
|
|
|
260 |
Else
|
|
|
261 |
GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
|
|
|
262 |
Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
|
|
|
263 |
End If
|
|
|
264 |
End If
|
|
|
265 |
|
|
|
266 |
End Function
|
|
|
267 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
268 |
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
|
|
|
269 |
%>
|
|
|
270 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
271 |
<tr>
|
|
|
272 |
<td width="1" align="left" valign="top" bgcolor="#dad7c8"><img src="images/p_ctl.gif" width="3" height="3"></td>
|
|
|
273 |
<td width="100%" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
|
|
|
274 |
<td width="1" bgcolor="#dad7c8"><img src="images/spacer.gif" width="1" height="1"></td>
|
|
|
275 |
<td width="1" align="right" valign="top" bgcolor="#dad7c8"><img src="images/p_ctr.gif" width="3" height="3"></td>
|
|
|
276 |
</tr>
|
|
|
277 |
<tr>
|
|
|
278 |
<td align="left" valign="top" bgcolor="#dad7c8"> </td>
|
|
|
279 |
<td bgcolor="#dad7c8"><SPAN id="SPANVIEW<%=NNbase_view_id%>" <%If BBviewCollapsed Then%>class="body_scol_thin"<%Else%>class="body_txt"<%End If%>> <b><%=SSbase_view%></b></SPAN></td>
|
|
|
280 |
<td align="right" bgcolor="#dad7c8"><a href="javascript:;" onClick="RequestViewContent('?envtab=<%=nEnvTab%>&rtag_id=<%=parRtag_id%>&view_id=<%=NNbase_view_id%>&script_name=<%=ScriptName%>','<%=NNbase_view_id%>');"><img id="ENVIMG<%=NNbase_view_id%>" src="images/<%If BBviewCollapsed Then %>btn_max.gif<%Else%>btn_min.gif<%End If%>" border="0"></a></td>
|
|
|
281 |
<td align="right" valign="top" bgcolor="#dad7c8"> </td>
|
|
|
282 |
</tr>
|
|
|
283 |
</table>
|
|
|
284 |
<DIV id="ENVDIV<%=NNbase_view_id%>" class="envContent" <%If BBviewCollapsed Then %>style="display:none;"<%Else%>style="display:block;"<%End If%>>
|
|
|
285 |
<%If NOT BBviewCollapsed Then %>
|
|
|
286 |
<%=SScontents%>
|
|
|
287 |
<%Else%>
|
|
|
288 |
<%=enumLOADING%>
|
|
|
289 |
<%End If%></DIV>
|
|
|
290 |
<br>
|
|
|
291 |
<%
|
|
|
292 |
End Sub
|
|
|
293 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
294 |
Sub Print_View( NNEnvTab, SSviewtype, NNrtag_id, SSshowviews, NNuser_id )
|
|
|
295 |
Dim rsView, Query_String
|
|
|
296 |
'Dim btn1
|
|
|
297 |
Dim tmpURL
|
|
|
298 |
Dim SSscript
|
|
|
299 |
Dim qstrPar
|
|
|
300 |
Dim nViewType
|
|
|
301 |
Dim nTrueRecordCount
|
|
|
302 |
Dim nOperation
|
|
|
303 |
Dim relContentsSTR, viewCollapsed, curr_view_id, view_name
|
|
|
304 |
|
|
|
305 |
If scriptName = "find.asp" Then
|
|
|
306 |
SSscript = "dependencies.asp"
|
|
|
307 |
Else
|
|
|
308 |
SSscript = scriptName
|
|
|
309 |
End If
|
|
|
310 |
|
|
|
311 |
If SSviewtype = "guest" Then
|
|
|
312 |
nViewType = 1
|
|
|
313 |
qstrPar = "Bshow"
|
|
|
314 |
ElseIf SSviewtype = "personal" Then
|
|
|
315 |
nViewType = 2
|
|
|
316 |
qstrPar = "Pshow"
|
|
|
317 |
End If
|
|
|
318 |
|
|
|
319 |
|
|
|
320 |
OraDatabase.Parameters.Add "VIEW_TYPE", nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
321 |
'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
|
|
322 |
OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST", GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
|
|
323 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
324 |
OraDatabase.Parameters.Add "USER_ID", NNuser_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
325 |
OraDatabase.Parameters.Add "TRUE_RECORD_COUNT", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
|
|
326 |
OraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
|
|
|
327 |
|
|
|
328 |
'If it's a Deployment View
|
|
|
329 |
If parDview = "enable" Then
|
|
|
330 |
' Decide which environment list is to be displayed to the Integrators/Testers
|
|
|
331 |
Select Case CInt( NNEnvTab )
|
|
|
332 |
Case enumENVTAB_PRODRELEASE
|
|
|
333 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_PRODRELEASE_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
334 |
|
|
|
335 |
Case enumENVTAB_INTEGRATE
|
|
|
336 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_INTEGRATION_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
337 |
|
|
|
338 |
Case enumENVTAB_TEST
|
|
|
339 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_TEST_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
340 |
|
|
|
341 |
Case enumENVTAB_DEPLOY
|
|
|
342 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_DEPLOY_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
343 |
|
|
|
344 |
Case enumENVTAB_REJECT
|
|
|
345 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_REJECT_ITEMS ( :RTAG_ID, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
346 |
|
|
|
347 |
End Select
|
|
|
348 |
|
|
|
349 |
Else
|
|
|
350 |
' Decide which environment list is to be displayed
|
|
|
351 |
Select Case CInt( NNEnvTab )
|
|
|
352 |
Case enumENVTAB_WORK_IN_PROGRESS
|
|
|
353 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_WORK_IN_PROGRESS_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
354 |
|
|
|
355 |
Case enumENVTAB_PLANNED
|
|
|
356 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_PENDING_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
357 |
|
|
|
358 |
Case enumENVTAB_RELEASED
|
|
|
359 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_RELEASED_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
360 |
|
|
|
361 |
Case Else
|
|
|
362 |
OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.GET_ENVIRONMENT_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET ); END;"
|
|
|
363 |
|
|
|
364 |
End Select
|
|
|
365 |
|
|
|
366 |
End If
|
|
|
367 |
|
|
|
368 |
|
|
|
369 |
|
|
|
370 |
' Get Record set from database
|
|
|
371 |
Set rsView = OraDatabase.Parameters("RECORD_SET").Value
|
|
|
372 |
nTrueRecordCount = OraDatabase.Parameters("TRUE_RECORD_COUNT").Value
|
|
|
373 |
|
|
|
374 |
|
|
|
375 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
|
|
376 |
OraDatabase.Parameters.Remove "USER_ID"
|
|
|
377 |
OraDatabase.Parameters.Remove "VIEW_TYPE"
|
|
|
378 |
OraDatabase.Parameters.Remove "VIEW_ID_SHOW_LIST"
|
|
|
379 |
OraDatabase.Parameters.Remove "RECORD_SET"
|
|
|
380 |
OraDatabase.Parameters.Remove "TRUE_RECORD_COUNT"
|
|
|
381 |
|
|
|
382 |
|
|
|
383 |
' Initialise variables
|
|
|
384 |
If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
|
|
|
385 |
relContentsSTR = ""
|
|
|
386 |
viewCollapsed = FALSE
|
|
|
387 |
curr_view_id = rsView("view_id") ' Set current view
|
|
|
388 |
view_name = rsView("view_name")
|
|
|
389 |
End If
|
|
|
390 |
|
|
|
391 |
|
|
|
392 |
|
|
|
393 |
While ((NOT rsView.BOF) AND (NOT rsView.EOF))
|
|
|
394 |
'==== Get View Contents ====
|
|
|
395 |
If NOT IsNull(rsView.Fields("pv_id")) Then
|
|
|
396 |
tmpURL = SSscript &"?pv_id="& rsView.Fields("pv_id") &"&rtag_id="& parRtag_id
|
|
|
397 |
IMG_locked = ""
|
|
|
398 |
If rsView.Fields("dlocked") = "Y" Then IMG_locked = imgLocked
|
|
|
399 |
|
|
|
400 |
' DEVI-45275 - Normally, dlocked=Y items are denoted with a padlock icon on the web page. Since we can now merge
|
|
|
401 |
' into the pending tab, the dlocked=Y items that end up there would not give any visual indication to the user
|
|
|
402 |
' as to why they are present. So, instead of the padlock icon, display the added or removed icon to indicate
|
|
|
403 |
' what the intended action is to be, once the pending item is approved.
|
|
|
404 |
' Obviously, this functionality does not apply if we are in the deployment view, and only applies if viewing
|
|
|
405 |
' the PENDING or ALL environment tabs.
|
|
|
406 |
' With regard to the operation value, A = Added, S = Subtracted
|
|
|
407 |
nOperation = " "
|
|
|
408 |
If parDview <> "enable" AND (CInt( NNEnvTab ) = enumENVTAB_PLANNED OR CInt( NNEnvTab ) = enumENVTAB_ALL) Then
|
|
|
409 |
nOperation = rsView.Fields("operation") ' NB. this field is only availble if earlier query was GET_PENDING_ITEMS or GET_ENVIRONMENT_ITEMS
|
|
|
410 |
If nOperation = "A" Then
|
|
|
411 |
IMG_locked = imgAdded
|
|
|
412 |
ElseIf nOperation = "S" Then
|
|
|
413 |
IMG_locked = imgRemoved
|
|
|
414 |
End If
|
|
|
415 |
End If
|
|
|
416 |
|
|
|
417 |
relContentsSTR = relContentsSTR & "<tr>" & VBNewLine
|
|
|
418 |
|
|
|
419 |
|
|
|
420 |
If rsView("pkg_state") = 0 And rsView.Fields("deprecated_state") <> "" Then
|
|
|
421 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView.Fields("deprecated_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
|
|
|
422 |
Else
|
|
|
423 |
If (parDview <> "enable") AND ( ( CInt(NNEnvTab) = enumENVTAB_PLANNED ) OR ( Request("envtab") = enumENVTAB_PLANNED ) ) Then
|
|
|
424 |
|
|
|
425 |
' if package version is unlocked, rejected, or pending approval, or is to be added/subtracted to/from the release (DEVI-45275), then
|
|
|
426 |
If (rsView("dlocked") = "N") OR (rsView("dlocked") = "R") OR (rsView("dlocked") = "P") OR (nOperation = "A") OR (nOperation = "S") Then
|
|
|
427 |
checked = NULL
|
|
|
428 |
disabled = NULL
|
|
|
429 |
' disable check box if not logged in, or if not in open mode and user has no permission to approve pending
|
|
|
430 |
If objAccessControl.UserLogedIn Then
|
|
|
431 |
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
|
|
|
432 |
If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
|
|
|
433 |
disabled = "disabled"
|
|
|
434 |
End If
|
|
|
435 |
End If
|
|
|
436 |
Else
|
|
|
437 |
disabled = "disabled"
|
|
|
438 |
End If
|
|
|
439 |
|
|
|
440 |
Else ' always check and disable the checkbox
|
|
|
441 |
checked = "checked"
|
|
|
442 |
disabled = "disabled"
|
|
|
443 |
End If
|
|
|
444 |
|
|
|
445 |
relContentsSTR = relContentsSTR & " <td width='1%'><INPUT type=checkbox name='pv_id_list' value="&rsView.Fields("pv_id")&" "&checked&" "&disabled&"></td>"& VBNewLine
|
|
|
446 |
Else
|
|
|
447 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& DefineStateIcon ( rsView("pkg_state"), rsView("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE ) &"</td>"& VBNewLine
|
|
|
448 |
End If
|
|
|
449 |
End If
|
|
|
450 |
|
|
|
451 |
relContentsSTR = relContentsSTR & " <td width='100%' nowrap><a href='"& tmpURL &"' class='body_txt_drk' title="""& HTMLEncode( rsView("pv_description") ) &""">"& rsView.Fields("pkg_name") &"</a></td>" & VBNewLine
|
|
|
452 |
relContentsSTR = relContentsSTR & " <td width='1%' nowrap class='envPkg'>"& rsView.Fields("pkg_version") &"</td>" & VBNewLine
|
|
|
453 |
relContentsSTR = relContentsSTR & " <td width='1%'>"& IMG_locked &"</td>"
|
|
|
454 |
relContentsSTR = relContentsSTR & "</tr>" & VBNewLine
|
|
|
455 |
Else
|
|
|
456 |
'relContentsSTR = relContentsSTR & "<tr><td><label class='form_txt' disabled>...</label></td></tr>" ' Collapsed view displays dots
|
|
|
457 |
|
|
|
458 |
viewCollapsed = TRUE
|
|
|
459 |
End If
|
|
|
460 |
|
|
|
461 |
rsView.MoveNext
|
|
|
462 |
|
|
|
463 |
|
|
|
464 |
If ((NOT rsView.BOF) AND (NOT rsView.EOF)) Then
|
|
|
465 |
' NOT end of the record set
|
|
|
466 |
If curr_view_id <> rsView("view_id") Then
|
|
|
467 |
'====== Draw buttons =================================
|
|
|
468 |
'If InStrPipes( SSshowviews, curr_view_id ) Then
|
|
|
469 |
' btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
|
|
|
470 |
'Else
|
|
|
471 |
' btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
|
|
|
472 |
'End If
|
|
|
473 |
|
|
|
474 |
'====== Print contents ===============================
|
|
|
475 |
relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
|
|
|
476 |
Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
|
|
|
477 |
|
|
|
478 |
curr_view_id = rsView("view_id")
|
|
|
479 |
view_name = rsView("view_name")
|
|
|
480 |
relContentsSTR = "" ' Empty the contents string
|
|
|
481 |
viewCollapsed = FALSE
|
|
|
482 |
End If
|
|
|
483 |
|
|
|
484 |
Else
|
|
|
485 |
' End of the record set
|
|
|
486 |
|
|
|
487 |
'====== Draw buttons =================================
|
|
|
488 |
'If InStrPipes( SSshowviews, curr_view_id ) Then
|
|
|
489 |
' btn1 = "<a href='"& SSscript &"?"& qstrPar &"="& RemoveFromStrPipes( SSshowviews, curr_view_id ) &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"' >"& imgMinimise &"</a>"
|
|
|
490 |
'Else
|
|
|
491 |
' btn1 = "<a href='"& SSscript &"?"& qstrPar &"=|"& curr_view_id &"|"& SSshowviews &"&pv_id="& Request("pv_id") &"&rtag_id="& NNrtag_id &"'>"& imgMaximise &"</a>"
|
|
|
492 |
'End If
|
|
|
493 |
|
|
|
494 |
'====== Print contents ===============================
|
|
|
495 |
relContentsSTR = "<table width='100%' border='0' cellspacing='0' cellpadding='1'>" & relContentsSTR & "</table>"
|
|
|
496 |
Call Display_Env_BaseView ( curr_view_id, view_name, viewCollapsed, relContentsSTR )
|
|
|
497 |
|
|
|
498 |
End If
|
|
|
499 |
|
|
|
500 |
WEnd
|
|
|
501 |
|
|
|
502 |
|
|
|
503 |
|
|
|
504 |
If relContentsSTR <> "" Then
|
|
|
505 |
Response.write "<a href='help/icons_F017.asp' target='_blank' class='body_scol'>Icon Legend...</a><br>"
|
|
|
506 |
End If
|
|
|
507 |
|
|
|
508 |
If nTrueRecordCount > 0 Then
|
|
|
509 |
If rsView.RecordCount < 1 Then
|
|
|
510 |
'If qstrPar = "Bshow" Then
|
|
|
511 |
' 'Release is empty. Draw default box for Base view
|
|
|
512 |
' Call DisplayInfo ( "EMPTY_RELEASE_CONTENTS", "100%" )
|
|
|
513 |
'
|
|
|
514 |
'End If
|
|
|
515 |
|
|
|
516 |
If qstrPar = "Pshow" Then
|
|
|
517 |
'Release is empty. Draw default box for Personal view
|
|
|
518 |
Call DisplayInfo ( "PERSONAL_VIEW_NOT_SETUP", "100%" )
|
|
|
519 |
End If
|
|
|
520 |
|
|
|
521 |
End If
|
|
|
522 |
End If
|
|
|
523 |
|
|
|
524 |
|
|
|
525 |
' Destroy
|
|
|
526 |
rsView.Close
|
|
|
527 |
Set rsView = nothing
|
|
|
528 |
|
|
|
529 |
End Sub
|
|
|
530 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
531 |
Sub PopulateGetShowViews ( ByRef outShowView )
|
|
|
532 |
|
|
|
533 |
If Session(SESSION_SHOW_BASE_VIEW) <> "" Then
|
|
|
534 |
Set outShowView = Session(SESSION_SHOW_BASE_VIEW)
|
|
|
535 |
|
|
|
536 |
End If
|
|
|
537 |
End Sub
|
|
|
538 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
539 |
Function GetShowViewList ()
|
|
|
540 |
'If SSparshow <> "" Then
|
|
|
541 |
' ' get list from query string
|
|
|
542 |
' ShowView = SSparshow
|
|
|
543 |
'ElseIf Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype ) <> "" Then
|
|
|
544 |
' ' get list from cookie
|
|
|
545 |
' ShowView = Request.Cookies("RELEASEMANAGER_VIEW_SHOW")( SSviewtype )
|
|
|
546 |
'Else
|
|
|
547 |
' ' no list i.e. collapse all views
|
|
|
548 |
' ShowView = -1
|
|
|
549 |
'End If
|
|
|
550 |
|
|
|
551 |
'If oShowView.Count = 0 Then
|
|
|
552 |
' GetShowViewList = -1
|
|
|
553 |
'Else
|
|
|
554 |
' GetShowViewList = Join( oShowView.Keys, "," )
|
|
|
555 |
'End If
|
|
|
556 |
|
|
|
557 |
If Request.Cookies(COOKIE_RELMGR_SHOW_VIEW) = "" Then
|
|
|
558 |
GetShowViewList = -1
|
|
|
559 |
Else
|
|
|
560 |
GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
|
|
|
561 |
End If
|
|
|
562 |
|
|
|
563 |
End Function
|
|
|
564 |
'------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
565 |
%>
|
|
|
566 |
<%
|
|
|
567 |
If CBool(Request("action")) Then
|
|
|
568 |
|
|
|
569 |
aFullList = Split ( Replace( Request("pv_id_list"), " ", "" ), "," )
|
|
|
570 |
|
|
|
571 |
For Each pvIdInList In aFullList
|
|
|
572 |
If IsNumeric(pvIdInList) Then
|
|
|
573 |
'Response.Write pvId
|
|
|
574 |
Call MakeRelease(pvIdInList)
|
|
|
575 |
End If
|
|
|
576 |
Next
|
|
|
577 |
|
|
|
578 |
End If
|
|
|
579 |
|
|
|
580 |
|
|
|
581 |
'------------------------- MAIN LINE ---------------------------
|
|
|
582 |
%>
|
|
|
583 |
|
|
|
584 |
<%If parRtag_Id <> "" Then%>
|
|
|
585 |
<!-- RELEASE ACTION BUTTONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
586 |
|
|
|
587 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
588 |
<tr>
|
|
|
589 |
<td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="35"></td>
|
|
|
590 |
<td width="100%" nowrap background="images/bg_action_norm.gif" >
|
|
|
591 |
|
|
|
592 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
593 |
<tr>
|
|
|
594 |
<%
|
|
|
595 |
Dim rsTest
|
|
|
596 |
Set rsTest = OraDataBase.DbCreateDynaset( "SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id , ORADYN_DEFAULT )
|
|
|
597 |
|
|
|
598 |
|
|
|
599 |
If (((ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE)) AND objAccessControl.IsActive("AddDeletePackageInRestrictiveMode") And objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "EditProjects")) OR (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) Then
|
|
|
600 |
Response.write "<td width='1'><a href='form_search_pkgs.asp?rtag_id="& Request("rtag_id") &"&add_type="& enum_ADD_PACKAGES &"' title='Add package to this release'><img src='images/abtn_add_pkg.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
601 |
'Response.write "<td width='1'><a href='_remove_package.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"' title='Remove package from this release'><img src='images/abtn_remove_pkg.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
|
|
|
602 |
Else
|
|
|
603 |
Response.write "<td width='1'><img src='images/abtn_add_pkg_off.gif' alt='Add package to this release' width='26' height='26' hspace='1' border='0'></td>"
|
|
|
604 |
'Response.write "<td width='1'><img src='images/abtn_remove_pkg_off.gif' alt='Remove package from this release' width='26' height='26' hspace='1' border='0'></td>"
|
|
|
605 |
End If
|
|
|
606 |
|
|
|
607 |
If (pkgInfoHash.Item("dlocked") <> "Y") AND (objAccessControl.UserLogedIn) AND (Request("pv_id") <> "") Then
|
|
|
608 |
If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (objAccessControl.IsActive("DestroyPackageFromRelease")) ) Then
|
|
|
609 |
Response.write "<td width='1'><a href='_destroy_package.asp?rtag_id="& Request("rtag_id") &"&bfile="& ScriptName &"&pkg_id="& pkgInfoHash.Item("pkg_id") &"&pv_id="& Request("pv_id") &"' title='Destroy the selected Package Version' onClick='return confirmAction(""You are about to destroy ["& pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version") &"]. You cannot undo this operation.\nDo you want to proceed?"");'><img src='icons/i_destroy_package.gif' alt='Destroy the selected Package Version' width='26' height='26' hspace='1' border='0'></td>"
|
|
|
610 |
End If
|
|
|
611 |
End If
|
|
|
612 |
|
|
|
613 |
If objAccessControl.IsActive("CreateNewRelease") Then
|
|
|
614 |
Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id_list="&parRtag_id&"&proj_id="&rsTest("proj_id")&"' title='Release properties'><img src='images/abtn_release_properties.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
615 |
End If
|
|
|
616 |
|
|
|
617 |
Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
|
|
|
618 |
If objAccessControl.UserLogedIn Then
|
|
|
619 |
If QStrPar("Pview") = "disable" Then
|
|
|
620 |
Response.write "<td width='1'><a href='"& scriptName &"?Pview=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
621 |
Else
|
|
|
622 |
Response.write "<td width='1'><a href='"& scriptName &"?Pview=disable&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
623 |
End If
|
|
|
624 |
Else
|
|
|
625 |
Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
|
|
|
626 |
End If
|
|
|
627 |
|
|
|
628 |
If QStrPar("Dview") = "enable" Then
|
|
|
629 |
Response.write "<td width='1'><a href='"& scriptName &"?Dview=&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
630 |
Else
|
|
|
631 |
Response.write "<td width='1'><a href='"& scriptName &"?Dview=enable&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif' width='25' height='25' hspace='1' border='0'></a></td>"
|
|
|
632 |
End If
|
|
|
633 |
|
|
|
634 |
|
|
|
635 |
Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
|
|
|
636 |
|
|
|
637 |
Response.write "<td width='1'><a href='javascript:;' title='Reference other releases...' onClick='ToggleDisplay(""DIV_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES_ON""); ' ><SPAN name='SPAN_RELEASE_REFERENCES' id='SPAN_RELEASE_REFERENCES' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_REFERENCES_ON' id='SPAN_RELEASE_REFERENCES_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
|
|
|
638 |
|
|
|
639 |
Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
|
|
|
640 |
|
|
|
641 |
Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
|
|
|
642 |
|
|
|
643 |
If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
|
|
|
644 |
If objAccessControl.UserLogedIn Then
|
|
|
645 |
If ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
|
|
|
646 |
If objAccessControl.IsActive("ApproveForAutoBuild") Then
|
|
|
647 |
Response.write "<td width='1'><input name='btn' type='image' src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
|
|
|
648 |
End If
|
|
|
649 |
Else
|
|
|
650 |
Response.write "<td width='1'><input name='btn' type='image' src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
|
|
|
651 |
End If
|
|
|
652 |
End If
|
|
|
653 |
End If
|
|
|
654 |
rsTest.Close()
|
|
|
655 |
Set rsTest = nothing
|
|
|
656 |
%>
|
|
|
657 |
<td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
|
|
|
658 |
</tr>
|
|
|
659 |
</table>
|
|
|
660 |
|
|
|
661 |
</td>
|
|
|
662 |
<td width="1" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="10" height="8"></td>
|
|
|
663 |
</tr>
|
|
|
664 |
</table>
|
|
|
665 |
|
|
|
666 |
<!-- ADVANCED SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
667 |
<DIV name="DIV_ADVANCED_SEARCH" id="DIV_ADVANCED_SEARCH" style="display:none;">
|
|
|
668 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
669 |
<form name="advancedsearch" method="get" action="find.asp">
|
|
|
670 |
<tr>
|
|
|
671 |
<td nowrap class="form_txt" valign="middle">
|
|
|
672 |
<%
|
|
|
673 |
Dim FindPackageCheck, FindFileCheck
|
|
|
674 |
|
|
|
675 |
FindPackageCheck = ""
|
|
|
676 |
FindFileCheck = ""
|
|
|
677 |
|
|
|
678 |
If Request("searchtype") = "2" Then
|
|
|
679 |
FindFileCheck = "checked"
|
|
|
680 |
Else
|
|
|
681 |
FindPackageCheck = "checked"
|
|
|
682 |
End If
|
|
|
683 |
|
|
|
684 |
%>
|
|
|
685 |
<fieldset><legend class="body_colb"><img src="images/i_mglass.gif" width="17" height="17" border="0" align="absmiddle"> Advanced Search</legend>
|
|
|
686 |
<input name="searchtype" id="searchtype1" type="radio" value="1" <%=FindPackageCheck%>>
|
|
|
687 |
<a href="javascript:;" onClick="MM_findObj('searchtype1').checked=true;" class="body_txt">Find a Package</a><br>
|
|
|
688 |
<input name="searchtype" id="searchtype2" type="radio" value="2" <%=FindFileCheck%>>
|
|
|
689 |
<a href="javascript:;" onClick="MM_findObj('searchtype2').checked=true;" class="body_txt">Find a File</a><br><br>
|
|
|
690 |
<%If CInt(nEnvTab) = enumENVTAB_WORK_IN_PROGRESS Then%>
|
|
|
691 |
Find in Work In Progress<br>
|
|
|
692 |
<%ElseIf CInt(nEnvTab) = enumENVTAB_PLANNED Then%>
|
|
|
693 |
Find in Pending<br>
|
|
|
694 |
<%ElseIf CInt(nEnvTab) = enumENVTAB_RELEASED Then%>
|
|
|
695 |
Find in Released<br>
|
|
|
696 |
<%End If%>
|
|
|
697 |
<input type="text" name="keyword" size="25" class="form_ivaluew" value="<%=Request("keyword")%>">
|
|
|
698 |
<input type="submit" name="btn" value="Find" class="form_ivalue">
|
|
|
699 |
|
|
|
700 |
<input type="hidden" name="envtab" value="<%=nEnvTab%>">
|
|
|
701 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
|
|
702 |
</fieldset>
|
|
|
703 |
<br>
|
|
|
704 |
</td>
|
|
|
705 |
</tr>
|
|
|
706 |
</form>
|
|
|
707 |
</table>
|
|
|
708 |
</DIV>
|
|
|
709 |
|
|
|
710 |
<script language="JavaScript" type="text/javascript">
|
|
|
711 |
<!--
|
|
|
712 |
function ToggleAdvancedSearch( )
|
|
|
713 |
{
|
|
|
714 |
if ( MM_findObj("DIV_ADVANCED_SEARCH").style.display == 'none')
|
|
|
715 |
{
|
|
|
716 |
MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'block';
|
|
|
717 |
MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'none';
|
|
|
718 |
MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'block';
|
|
|
719 |
|
|
|
720 |
}
|
|
|
721 |
else
|
|
|
722 |
{
|
|
|
723 |
MM_findObj("DIV_ADVANCED_SEARCH").style.display = 'none';
|
|
|
724 |
MM_findObj("SPAN_ADVANCED_SEARCH").style.display = 'block';
|
|
|
725 |
MM_findObj("SPAN_ADVANCED_SEARCH_ON").style.display = 'none';
|
|
|
726 |
}
|
|
|
727 |
|
|
|
728 |
document.cookie = 'RELMGR_DIV_ADVANCED_SEARCH' + '=' + MM_findObj("DIV_ADVANCED_SEARCH").style.display;
|
|
|
729 |
}
|
|
|
730 |
|
|
|
731 |
// Run this on page render for default setting
|
|
|
732 |
if (GetCookie('RELMGR_DIV_ADVANCED_SEARCH') == 'block')
|
|
|
733 |
{
|
|
|
734 |
ToggleAdvancedSearch();
|
|
|
735 |
}
|
|
|
736 |
|
|
|
737 |
//-->
|
|
|
738 |
</script>
|
|
|
739 |
|
|
|
740 |
<!-- RELEASE REFERENCES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
741 |
<DIV name="DIV_RELEASE_REFERENCES" id="DIV_RELEASE_REFERENCES" style="display:none;">
|
|
|
742 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
743 |
<form name="relref" method="get" action="_remove_release_reference.asp" onSubmit="ToggleDisplay('RelRefProgressBar');">
|
|
|
744 |
<tr>
|
|
|
745 |
<td width="100%" nowrap class="form_txt">
|
|
|
746 |
<fieldset><legend class="body_colb"><img src="images/i_releaseref.gif" border="0" align="absmiddle"> Release References</legend>
|
|
|
747 |
<DIV id="RelRefProgressBar" name="RelRefProgressBar" style="display:none;" class="class="body_scol""><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</DIV>
|
|
|
748 |
|
|
|
749 |
<b>References</b>
|
|
|
750 |
<hr noshade size="1">
|
|
|
751 |
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) Then%>
|
|
|
752 |
<input <%=objAccessControl.IsComponentDisabled("AddReleaseReference")%> type="reset" name="btn" value="Add.." class="form_ivalue" onClick="MM_openBrWindow('_wform_reference_release.asp?ToRtag_id=<%=parRtag_id%>&rfile=<%=ScriptName%>&rtag_id=<%=parRtag_id%>','ReferenceRelease','scrollbars=yes,resizable=yes,width=400,height=200')">
|
|
|
753 |
<input <%=objAccessControl.IsComponentDisabled("RemoveReleaseReference")%> type="submit" name="btn" value="Remove" class="form_ivalue"><br><br>
|
|
|
754 |
<%End If%>
|
|
|
755 |
|
|
|
756 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
|
|
757 |
|
|
|
758 |
<table width="100%" border="0" cellspacing="0" cellpadding="1">
|
|
|
759 |
<tr>
|
|
|
760 |
<td bgcolor="#999999">
|
|
|
761 |
|
|
|
762 |
<table width="100%" border="0" cellspacing="0" cellpadding="1">
|
|
|
763 |
<%
|
|
|
764 |
OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
765 |
|
|
|
766 |
Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferences.sql"), 0 )
|
|
|
767 |
|
|
|
768 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
|
|
769 |
%>
|
|
|
770 |
|
|
|
771 |
<%If rsEnvQry.RecordCount = 0 Then%>
|
|
|
772 |
<tr>
|
|
|
773 |
<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
|
|
|
774 |
No references used.
|
|
|
775 |
</td>
|
|
|
776 |
</tr>
|
|
|
777 |
<%End If%>
|
|
|
778 |
|
|
|
779 |
|
|
|
780 |
<%
|
|
|
781 |
While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
|
|
|
782 |
If rsEnvQry("official") = "Y" Then
|
|
|
783 |
IMG_locked = imgLocked
|
|
|
784 |
Else
|
|
|
785 |
IMG_locked = ""
|
|
|
786 |
End If
|
|
|
787 |
%>
|
|
|
788 |
<tr>
|
|
|
789 |
<td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>"></td>
|
|
|
790 |
<td bgcolor="#FFFFFF" class="body_txt" nowrap>
|
|
|
791 |
<a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release..."><%=rsEnvQry("proj_name")%> > <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>
|
|
|
792 |
</td>
|
|
|
793 |
</tr>
|
|
|
794 |
<%rsEnvQry.MoveNext()
|
|
|
795 |
WEnd
|
|
|
796 |
%>
|
|
|
797 |
<tr>
|
|
|
798 |
<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
|
|
|
799 |
<br><br><br>
|
|
|
800 |
</td>
|
|
|
801 |
</tr>
|
|
|
802 |
</table>
|
|
|
803 |
|
|
|
804 |
</td>
|
|
|
805 |
</tr>
|
|
|
806 |
</table>
|
|
|
807 |
|
|
|
808 |
|
|
|
809 |
|
|
|
810 |
<br><br>
|
|
|
811 |
|
|
|
812 |
|
|
|
813 |
<b>Referenced By</b>
|
|
|
814 |
<hr noshade size="1">
|
|
|
815 |
|
|
|
816 |
<table width="100%" border="0" cellspacing="0" cellpadding="1">
|
|
|
817 |
<tr>
|
|
|
818 |
<td bgcolor="#999999">
|
|
|
819 |
|
|
|
820 |
<table width="100%" border="0" cellspacing="0" cellpadding="1">
|
|
|
821 |
<%
|
|
|
822 |
OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
823 |
|
|
|
824 |
Set rsEnvQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseReferencedBy.sql"), 0 )
|
|
|
825 |
|
|
|
826 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
|
|
827 |
%>
|
|
|
828 |
|
|
|
829 |
<%If rsEnvQry.RecordCount = 0 Then%>
|
|
|
830 |
<tr>
|
|
|
831 |
<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
|
|
|
832 |
Not referenced anywhere.
|
|
|
833 |
</td>
|
|
|
834 |
</tr>
|
|
|
835 |
<%End If%>
|
|
|
836 |
|
|
|
837 |
|
|
|
838 |
<%
|
|
|
839 |
While (NOT rsEnvQry.EOF) AND (NOT rsEnvQry.BOF)
|
|
|
840 |
If rsEnvQry("official") = "Y" Then
|
|
|
841 |
IMG_locked = imgLocked
|
|
|
842 |
Else
|
|
|
843 |
IMG_locked = ""
|
|
|
844 |
End If
|
|
|
845 |
%>
|
|
|
846 |
<tr>
|
|
|
847 |
<td bgcolor="#FFFFFF" class="body_txt"><input type="checkbox" name="refrtag_id" value="<%=rsEnvQry("rtag_id")%>" disabled></td>
|
|
|
848 |
<td bgcolor="#FFFFFF" class="body_txt" nowrap>
|
|
|
849 |
<a href="dependencies.asp?rtag_id=<%=rsEnvQry("rtag_id")%>" class="body_link" title="Go to this release..."><%=rsEnvQry("proj_name")%> > <%=rsEnvQry("rtag_name")%><%=IMG_locked%></a>
|
|
|
850 |
</td>
|
|
|
851 |
</tr>
|
|
|
852 |
<%rsEnvQry.MoveNext()
|
|
|
853 |
WEnd
|
|
|
854 |
%>
|
|
|
855 |
<tr>
|
|
|
856 |
<td colspan="2" bgcolor="#FFFFFF" class="body_txt_gray">
|
|
|
857 |
<br><br><br>
|
|
|
858 |
</td>
|
|
|
859 |
</tr>
|
|
|
860 |
</table>
|
|
|
861 |
|
|
|
862 |
</td>
|
|
|
863 |
</tr>
|
|
|
864 |
</table>
|
|
|
865 |
|
|
|
866 |
<br>
|
|
|
867 |
|
|
|
868 |
</fieldset>
|
|
|
869 |
<br>
|
|
|
870 |
</td>
|
|
|
871 |
</tr>
|
|
|
872 |
|
|
|
873 |
|
|
|
874 |
</form>
|
|
|
875 |
</table>
|
|
|
876 |
</DIV>
|
|
|
877 |
<!-- END OF RELEASE REFERENCES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
878 |
<%
|
|
|
879 |
'-- FORM START --------------------------------------------------------------------------------------------------------------
|
|
|
880 |
objFormComponent.FormName = "FormName"
|
|
|
881 |
objFormComponent.Action = SCRIPT_NAME
|
|
|
882 |
objFormComponent.OnSubmit = "ShowProgress();"
|
|
|
883 |
Call objFormComponent.FormStart()
|
|
|
884 |
%>
|
|
|
885 |
|
|
|
886 |
<!-- PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
887 |
|
|
|
888 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
889 |
<tr>
|
|
|
890 |
<td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="25"></td>
|
|
|
891 |
<td width="100%" bgcolor="#999999" valign="bottom">
|
|
|
892 |
<!-- TAB CONTROLS ++++++++++++++++++++++ -->
|
|
|
893 |
<%
|
|
|
894 |
Set objTabControl = New TabControl
|
|
|
895 |
objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleDreamWeaver/dreamweaver_style.html") ) ' Supply tab style definition
|
|
|
896 |
objTabControl.TabStyle = "StyleDreamWeaver"
|
|
|
897 |
If QStrPar("Dview") = "enable" Then
|
|
|
898 |
objTabControl.AddTabDefnition ( arrProductEnv ) '- Integration/Test/Deploy
|
|
|
899 |
Else
|
|
|
900 |
objTabControl.AddTabDefnition ( arrEnv )
|
|
|
901 |
End If
|
|
|
902 |
objTabControl.SelectByIndex ( nEnvTab )
|
|
|
903 |
objTabControl.Render ()
|
|
|
904 |
%>
|
|
|
905 |
<!-- END OF TAB CONTROLS +++++++++++++++ -->
|
|
|
906 |
</td>
|
|
|
907 |
<td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="1"></td>
|
|
|
908 |
</tr>
|
|
|
909 |
<tr>
|
|
|
910 |
<td></td>
|
|
|
911 |
<td>
|
|
|
912 |
|
|
|
913 |
<br>
|
|
|
914 |
<%
|
|
|
915 |
Dim tempTimer
|
|
|
916 |
tempTimer = Timer
|
|
|
917 |
%>
|
|
|
918 |
<%'Response.write "TOTAL TIME: "& Timer - tempTimer%>
|
|
|
919 |
<%
|
|
|
920 |
|
|
|
921 |
'--- Render Environment ---
|
|
|
922 |
If objAccessControl.UserLogedIn AND (parPview <> "disable") Then
|
|
|
923 |
'Personal View
|
|
|
924 |
Call Print_View( nEnvTab, "personal", parRtag_id, parPshow, objAccessControl.UserId )
|
|
|
925 |
Else
|
|
|
926 |
' Guest view
|
|
|
927 |
Call Print_View( nEnvTab, "guest", parRtag_id, parBshow, empty )
|
|
|
928 |
End If
|
|
|
929 |
|
|
|
930 |
%>
|
|
|
931 |
|
|
|
932 |
|
|
|
933 |
|
|
|
934 |
|
|
|
935 |
<%'Response.write "TOTAL TIME: "& Timer - tempTimer%>
|
|
|
936 |
<br>
|
|
|
937 |
</td>
|
|
|
938 |
<td></td>
|
|
|
939 |
</tr>
|
|
|
940 |
</table>
|
|
|
941 |
<input type="hidden" name="pv_id_list" value=<%=Request("pv_id_list")%>>
|
|
|
942 |
<input type="hidden" name="action" value="true">
|
|
|
943 |
|
|
|
944 |
<!--END OF PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
945 |
|
|
|
946 |
<%End If%>
|
|
|
947 |
<%
|
|
|
948 |
Call objFormComponent.FormEnd()
|
|
|
949 |
'-- FROM END ----------------------------------------------------------------------------------------------------------------
|
|
|
950 |
%>
|