Subversion Repositories DevTools

Rev

Rev 5926 | Rev 5957 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5926 Rev 5927
Line 21... Line 21...
21 
'------------ ACCESS CONTROL ------------------
 21 
'------------ ACCESS CONTROL ------------------
22 
%>
 22 
%>
23 
<!--#include file="_access_control_general.asp"-->
 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
 24 
<%
25 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
26 
Dim rsTemp, rsState
 - 
 
27 
Dim projId
 - 
 
28 
Dim pkgId
 - 
 
29 
Dim rsQry
 - 
 
30 
Dim isDaemonEnabledRelease
 - 
 
31 
'------------ Constants Declaration -----------
 26 
'------------ Constants Declaration -----------
32 
Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
 - 
 
33 
Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
 - 
 
34 
Const IMG_GAP = "<img src='images/spacer.gif' width='20' height='1' border='0'>"
 - 
 
35 
Const IMG_POINTER = "<img src='images/i_pointer.gif' border='0'>"
 27 
Const  pageIsEmbedded = FALSE
36 
'------------ Variable Init -------------------
 28 
'------------ Variable Init -------------------
37 
'----------------------------------------------
 29 
'----------------------------------------------
38 
%>
 30 
%>
39 
<%
 - 
 
40 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
41 
 
 - 
 
42 
isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
 - 
 
43 
 
 - 
 
44 
If Request("action") <> "" Then
 - 
 
45 
   %>
 - 
 
46 
   <!--#include file="_access_control_login.asp"-->
 - 
 
47 
   <!--#include file="_access_control_project.asp"-->
 - 
 
48 
   <%
 - 
 
49 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
 - 
 
50 
 
 - 
 
51 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
 - 
 
52 
 
 - 
 
53 
      If isDaemonEnabledRelease = FALSE Then
 - 
 
54 
 
 - 
 
55 
         Set pvIdList = CreateObject("Scripting.Dictionary")
 - 
 
56 
         'On Error Resume Next
 - 
 
57 
         txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
 - 
 
58 
         posComma = InStr(txt, ",")
 - 
 
59 
 
 - 
 
60 
         While posComma <> 0
 - 
 
61 
            'Response.Write(txt)
 - 
 
62 
            value = Mid(txt, 1, posComma-1)
 - 
 
63 
            posUnderscore = Instr(value, "_")
 - 
 
64 
            pvId = Mid(value, 1, posUnderscore - 1)
 - 
 
65 
            dpvId = Mid(value, posUnderscore + 1, posComma-1)
 - 
 
66 
 
 - 
 
67 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
 - 
 
68 
            pvIdList.Add CStr( pvId ), Empty
 - 
 
69 
            txt = Mid(txt, posComma + 1, Len(txt))
 - 
 
70 
            posComma = InStr(txt, ",")
 - 
 
71 
         WEnd
 - 
 
72 
 
 - 
 
73 
         If posComma = 0 And Len(txt) > 0 Then
 - 
 
74 
            posUnderscore = Instr(txt, "_")
 - 
 
75 
            pvId = Mid(txt, 1, posUnderscore - 1)
 - 
 
76 
            dpvId = Mid(txt, posUnderscore + 1)
 - 
 
77 
            Call SetIgnoreWarnings(dpvId, pvId, parRtag_id)
 - 
 
78 
            pvIdList.Add CStr( pvId ), Empty
 - 
 
79 
         End if
 - 
 
80 
 
 - 
 
81 
         apvIdList = pvIdList.Keys
 - 
 
82 
 
 - 
 
83 
      End If
 - 
 
84 
 
 - 
 
85 
      Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 - 
 
86 
   Else
 - 
 
87 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 - 
 
88 
      Response.write QSTR_FullQuery
 - 
 
89 
   End If
 - 
 
90 
End If
 - 
 
91 
%>
 - 
 
92 
<html>
 31 
<html>
93 
<title><%=Title(Request("rtag_id"))%></title>
 32 
<title><%=Title(Request("rtag_id"))%></title>
94 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 33 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
95 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 34 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
96 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 35 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
Line 99... Line 38...
99 
<script language="JavaScript" src="images/common.js"></script>
 38 
<script language="JavaScript" src="images/common.js"></script>
100 
<!-- TIPS -->
 39 
<!-- TIPS -->
101 
<script language="JavaScript" src="images/tipster.js"></script>
 40 
<script language="JavaScript" src="images/tipster.js"></script>
102 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
 41 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
103 
<!--#include file="_jquery_includes.asp"-->
 42 
<!--#include file="_jquery_includes.asp"-->
104 
<script language="javascript">
 - 
 
105 
<!--
 - 
 
106 
function checkUncheckAll(theElement) {
 - 
 
107 
   var theForm = theElement.form, z = 0;
 - 
 
108 
   for(z=0; z<theForm.length;z++){
 - 
 
109 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
 - 
 
110 
         theForm[z].checked = theElement.checked;
 - 
 
111 
      }
 - 
 
112 
   }
 - 
 
113 
}
 - 
 
114 
//-->
 - 
 
115 
</script>
 - 
 
116 
<!-- DROPDOWN MENUS -->
 43 
<!-- DROPDOWN MENUS -->
117 
<!--#include file="_menu_def.asp"-->
 44 
<!--#include file="_menu_def.asp"-->
118 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 45 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
119 
<script language="JavaScript" type="text/javascript">
 - 
 
120 
<!--
 - 
 
121 
formTips.tips.thispackage       = stdTip(200, 'Used by this package', 'Display package and package versions that use exactly this version of this package' );
 - 
 
122 
formTips.tips.thisproject       = stdTip(200, 'Used by this project', 'Display projects that use any version of this package' );
 - 
 
123 
 
 - 
 
124 
//
 - 
 
125 
//	Load/Hide/Show an Ajax expander
 - 
 
126 
//	BaseId - Base for two IDs.
 - 
 
127 
//			 IMG_BaseId - image to to toggle
 - 
 
128 
//			 BaseId - Div to load data into
 - 
 
129 
//	url - Url used to load subcontrol
 - 
 
130 
function ToggleUsedByControl(baseId, url)
 - 
 
131 
{
 - 
 
132 
	var img, dmode;
 - 
 
133 
	var imgel = MM_findObj("IMG_" + baseId);
 - 
 
134 
	var divel = MM_findObj(baseId);
 - 
 
135 
	var showing = divel.getAttribute("data-show");
 - 
 
136 
	if(showing == 1)
 - 
 
137 
	{
 - 
 
138 
		img = "images/bt_minus.gif";
 - 
 
139 
		dmode = 'block';
 - 
 
140 
		showing = 2
 - 
 
141 
	}
 - 
 
142 
	else if(showing == 2)
 - 
 
143 
	{
 - 
 
144 
		img = "images/bt_plus.gif";
 - 
 
145 
		dmode = 'none';
 - 
 
146 
		showing = 1;
 - 
 
147 
	}
 - 
 
148 
	else
 - 
 
149 
	{
 - 
 
150 
		img = "images/bt_minus.gif";
 - 
 
151 
		dmode = 'block';
 - 
 
152 
		showing = 2;
 - 
 
153 
 
 - 
 
154 
		// Set div name for ajax loading
 - 
 
155 
		ajaxdivname = baseId;
 - 
 
156 
 
 - 
 
157 
		//Create the xmlHttp object to use in the request
 - 
 
158 
		//stateChangeHandler will fire when the state has changed, i.e. data is received back
 - 
 
159 
		// This is non-blocking (asynchronous)
 - 
 
160 
		xmlHttp = GetXmlHttpObject(stateChangeHandler);
 - 
 
161 
 
 - 
 
162 
		//Send the xmlHttp get to the specified url
 - 
 
163 
		xmlHttp_Get(xmlHttp, url);
 - 
 
164 
	}
 - 
 
165 
	// Update image and attributes
 - 
 
166 
	imgel.src = img;
 - 
 
167 
	divel.style.display = dmode;
 - 
 
168 
	divel.setAttribute("data-show", showing);
 - 
 
169 
}
 - 
 
170 
//-->
 - 
 
171 
</script>
 - 
 
172 
</head>
 46 
</head>
173 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 47 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
174 
<!-- MENU LAYERS -------------------------------------->
 48 
<!-- MENU LAYERS -------------------------------------->
175 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 49 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
176 
  <!----------------------------------------------------->
 50 
  <!----------------------------------------------------->
Line 221... Line 95...
221 
               <td background="images/lbox_bg_orange.gif">&nbsp;</td>
 95 
               <td background="images/lbox_bg_orange.gif">&nbsp;</td>
222 
            </tr>
 96 
            </tr>
223 
            <tr>
 97 
            <tr>
224 
               <td></td>
 98 
               <td></td>
225 
               <td valign="top">
 99 
               <td valign="top">
226 
                  <!-- DETAILS ------------------------------------------------->
 100 
				<!-- DETAILS ------------------------------------------------->
227 
                  <%
 - 
 
228 
                  '-- FROM START ---------------------------------------------------------------------------------------------------------
 - 
 
229 
                  objFormComponent.FormName = "FormName"
 - 
 
230 
                  objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
 - 
 
231 
                  Call objFormComponent.FormStart()
 - 
 
232 
                  %>
 - 
 
233 
                  <%If Request("rtag_id") <> "" Then%>
 - 
 
234 
                     <br>
 - 
 
235 
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
 - 
 
236 
                     <!-- USED BY ------------------------------------------------>
 - 
 
237 
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
 - 
 
238 
                        <tr>
 - 
 
239 
                           <%If isDaemonEnabledRelease = FALSE Then%>
 - 
 
240 
                              <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
 - 
 
241 
                           <%End If%>
 - 
 
242 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
 - 
 
243 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
 - 
 
244 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
 - 
 
245 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
 - 
 
246 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
 - 
 
247 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
 - 
 
248 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
 - 
 
249 
                        </tr>
 - 
 
250 
                        <%
 - 
 
251 
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
252 
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
253 
 
 - 
 
254 
                        If pkgInfoHash.Item ("v_ext") <> "" Then
 - 
 
255 
                           OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
256 
                        Else
 - 
 
257 
                           OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
258 
                        End If
 - 
 
259 
 
 - 
 
260 
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
 - 
 
261 
 
 - 
 
262 
                        OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
263 
                        OraDatabase.Parameters.Remove "PKG_ID"
 - 
 
264 
                        OraDatabase.Parameters.Remove "V_EXT"
 - 
 
265 
                        %>
 - 
 
266 
                        <%If rsTemp.RecordCount < 1 Then%>
 - 
 
267 
                           <tr>
 - 
 
268 
                              <%If isDaemonEnabledRelease = FALSE Then%>
 - 
 
269 
                                 <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
270 
                              <%End If%>
 - 
 
271 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
272 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
273 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
274 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
 - 
 
275 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
276 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
 - 
 
277 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
 - 
 
278 
                           </tr>
 - 
 
279 
                        <%End If%>
 - 
 
280 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
 - 
 
281 
                           <tr>
 - 
 
282 
                              <%
 - 
 
283 
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
 - 
 
284 
 
 - 
 
285 
                              <%If isDaemonEnabledRelease = FALSE Then%>
 - 
 
286 
                                 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
 - 
 
287 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
 - 
 
288 
                                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
 - 
 
289 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
 - 
 
290 
                                 <%Else%>
 - 
 
291 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
 - 
 
292 
                                 <%End If%>
 - 
 
293 
                              <%End If%>
 - 
 
294 
 
 - 
 
295 
                              <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
 - 
 
296 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
 - 
 
297 
                              <%Else%>
 - 
 
298 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
 - 
 
299 
                              <%End If%>
 - 
 
300 
 
 - 
 
301 
                              <td background="images/bg_form_lightgray.gif" nowrap><a href="used_by.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
 - 
 
302 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
 - 
 
303 
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
 - 
 
304 
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
 - 
 
305 
                              <td background="images/bg_form_lightgray.gif" <%If rsTemp("dpv_id") <> parPv_id Then%>class="err_alert"<%Else%>class="form_item"<%End If%>><%=pkgInfoHash.Item ("pkg_name") &" "& rsTemp("dpkg_version")%></td>
 - 
 
306 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
 101 
				<!--#include file="_used_by.asp"-->
307 
                           </tr>
 - 
 
308 
                           <%rsTemp.MoveNext
 - 
 
309 
                           rsTemp.Close()
 - 
 
310 
                           rsState.Close()
 - 
 
311 
 
 - 
 
312 
                           Set rsState = nothing
 - 
 
313 
                        WEnd
 - 
 
314 
                        Set rsTemp = nothing
 - 
 
315 
                        %>
 - 
 
316 
                     </table>
 - 
 
317 
                     <%If isDaemonEnabledRelease = FALSE Then%>
 - 
 
318 
                        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
 - 
 
319 
                        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
 - 
 
320 
                     <%End If%>
 - 
 
321 
                     <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
 - 
 
322 
                     <input type="hidden" name="action" value="true">
 - 
 
323 
                  <%End If%>
 - 
 
324 
                  <%
 - 
 
325 
                  Call objFormComponent.FormEnd()
 - 
 
326 
                  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
327 
                  %>
 - 
 
328 
                  <!-- Used by Projects ---------------------------------------->
 - 
 
329 
                  <span class="body_sect" onClick="ToggleUsedByControl('PROJECT','RequestUsedByThisProjectSummary.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&pkg_id=<%=pkgInfoHash.Item ("pkg_id")%>&v_ext=<%=pkgInfoHash.Item ("v_ext")%>');">
 - 
 
330 
						<img id=IMG_PROJECT src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
 - 
 
331 
						Used by Projects
 - 
 
332 
				  </span><%=Quick_Help("thisproject")%>
 - 
 
333 
				  <DIV class="form_item" id="PROJECT" name="PROJECT" style="display:none;"><%=enumLOADING%></DIV>
 - 
 
334 
                  <!-- Used by Packages ---------------------------------------->
 - 
 
335 
                  <br>
 - 
 
336 
                  <span class="body_sect" onClick="ToggleUsedByControl('PKGSUMMARY','UsedByPackageSummary.asp?pv_id=<%=parPv_id%>');">
 - 
 
337 
						<img id=IMG_PKGSUMMARY src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
 - 
 
338 
						Used by Packages
 - 
 
339 
				  </span><%=Quick_Help("thispackage")%>
 - 
 
340 
				  <DIV class="form_item" id="PKGSUMMARY" name="PKGSUMMARY" style="display:none;"><%=enumLOADING%></DIV>
 - 
 
341 
 
 - 
 
342 
				  <p>
 - 
 
343 
                  <div class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
 - 
 
344 
                  <br>
 - 
 
345 
                  <!-- END DETAILS ------------------------------------------------->
 102 
				<!-- END DETAILS ------------------------------------------------->
346 
               </td>
 103 
               </td>
347 
               <td>&nbsp;</td>
 104 
               <td>&nbsp;</td>
348 
            </tr>
 105 
            </tr>
349 
         </table>
 106 
         </table>
350 
         <!-- END MIDDLE -------->
 107 
         <!-- END MIDDLE -------->