Subversion Repositories DevTools

Rev

Rev 5632 | Rev 5926 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
5442 dpurdie 4 
'   used_by.asp
119 ghuddy 5 
'=====================================================
6 
%>
7 
<%
8 
Option explicit
9 
' Good idea to set when using redirect
129 ghuddy 10 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 11 
%>
12 
<!--#include file="common/conf.asp"-->
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/formating.asp"-->
15 
<!--#include file="common/qstr.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
17 
<!--#include file="common/common_dbedit.asp"-->
18 
<!--#include file="_tabs.asp"-->
19 
<!--#include file="common/_package_common.asp"-->
20 
<%
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsTemp, rsState
27 
Dim projId
5925 dpurdie 28 
Dim pkgId
145 ghuddy 29 
Dim rsQry
30 
Dim isDaemonEnabledRelease
119 ghuddy 31 
'------------ 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'>"
36 
'------------ Variable Init -------------------
37 
'----------------------------------------------
38 
%>
39 
<%
40 
'-----------------------------------------------------------------------------------------------------------------------------
41 
 
145 ghuddy 42 
isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
43 
 
119 ghuddy 44 
If Request("action") <> "" Then
129 ghuddy 45 
   %>
46 
   <!--#include file="_access_control_login.asp"-->
47 
   <!--#include file="_access_control_project.asp"-->
48 
   <%
49 
   If ( parRtag_id <> "") AND (parPv_id <> "") Then
145 ghuddy 50 
 
129 ghuddy 51 
      Dim posComma, txt, posUnderscore, dpvId, pvId, value, pvIdList, apvIdList, strList
119 ghuddy 52 
 
145 ghuddy 53 
      If isDaemonEnabledRelease = FALSE Then
119 ghuddy 54 
 
145 ghuddy 55 
         Set pvIdList = CreateObject("Scripting.Dictionary")
56 
         'On Error Resume Next
57 
         txt = Mid(Request("ignore_warnings"), 1, len(Request("ignore_warnings")))
129 ghuddy 58 
         posComma = InStr(txt, ",")
119 ghuddy 59 
 
145 ghuddy 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)
119 ghuddy 66 
 
145 ghuddy 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
119 ghuddy 72 
 
145 ghuddy 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
119 ghuddy 80 
 
145 ghuddy 81 
         apvIdList = pvIdList.Keys
119 ghuddy 82 
 
145 ghuddy 83 
      End If
84 
 
129 ghuddy 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
4955 dpurdie 88 
      Response.write QSTR_FullQuery
129 ghuddy 89 
   End If
119 ghuddy 90 
End If
91 
%>
92 
<html>
93 
<title><%=Title(Request("rtag_id"))%></title>
5357 dpurdie 94 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
119 ghuddy 95 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
96 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
97 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
98 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
99 
<script language="JavaScript" src="images/common.js"></script>
5925 dpurdie 100 
<!-- TIPS -->
101 
<script language="JavaScript" src="images/tipster.js"></script>
119 ghuddy 102 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
5085 dpurdie 103 
<!--#include file="_jquery_includes.asp"-->
119 ghuddy 104 
<script language="javascript">
105 
<!--
106 
function checkUncheckAll(theElement) {
129 ghuddy 107 
   var theForm = theElement.form, z = 0;
108 
   for(z=0; z<theForm.length;z++){
119 ghuddy 109 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
129 ghuddy 110 
         theForm[z].checked = theElement.checked;
111 
      }
112 
   }
113 
}
119 ghuddy 114 
//-->
115 
</script>
116 
<!-- DROPDOWN MENUS -->
117 
<!--#include file="_menu_def.asp"-->
118 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
119 
<script language="JavaScript" type="text/javascript">
120 
<!--
5925 dpurdie 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' );
119 ghuddy 123 
 
124 
function RequestUsedByThisProject( paramString, rowId ){
129 ghuddy 125 
   var requestURL = 'RequestUsedByThisProject.asp';
119 ghuddy 126 
 
129 ghuddy 127 
   // Show div
128 
   ToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );
119 ghuddy 129 
 
129 ghuddy 130 
   // Set ajax divname
131 
   ajaxdivname = 'PROJECT_'+ rowId;
119 ghuddy 132 
 
129 ghuddy 133 
   if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
134 
   {
135 
      //Append the name to search for to the requestURL
136 
      var url = requestURL + paramString;
119 ghuddy 137 
 
129 ghuddy 138 
      //Create the xmlHttp object to use in the request
139 
      //stateChangeHandler will fire when the state has changed, i.e. data is received back
140 
      // This is non-blocking (asynchronous)
141 
      xmlHttp = GetXmlHttpObject(stateChangeHandler);
119 ghuddy 142 
 
129 ghuddy 143 
      //Send the xmlHttp get to the specified url
144 
      xmlHttp_Get(xmlHttp, url);
145 
   }
119 ghuddy 146 
}
147 
 
5925 dpurdie 148 
function RequestUsedByThisPackage( paramString, rowId ){
149 
   var requestURL = 'UsedByPackageDetail.asp';
150 
 
151 
   // Show div
152 
   ToggleDisplay( 'PKGID_'+ rowId, 'IMG_EXPAND_PKGID_' + rowId, 'IMG_COLLAPSE_PKGID_' + rowId );
153 
 
154 
   // Set ajax divname
155 
   ajaxdivname = 'PKGID_'+ rowId;
156 
 
157 
   if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
158 
   {
159 
      //Append the name to search for to the requestURL
160 
      var url = requestURL + paramString;
161 
 
162 
      //Create the xmlHttp object to use in the request
163 
      //stateChangeHandler will fire when the state has changed, i.e. data is received back
164 
      // This is non-blocking (asynchronous)
165 
      xmlHttp = GetXmlHttpObject(stateChangeHandler);
166 
 
167 
      //Send the xmlHttp get to the specified url
168 
      xmlHttp_Get(xmlHttp, url);
169 
   }
170 
}
171 
 
119 ghuddy 172 
//-->
173 
</script>
174 
</head>
175 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
176 
<!-- MENU LAYERS -------------------------------------->
129 ghuddy 177 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
119 ghuddy 178 
  <!----------------------------------------------------->
179 
</div>
180 
<!-- HEADER -->
181 
<!--#include file="_header.asp"-->
182 
<!-- BODY ---->
183 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 184 
   <tr>
185 
      <td valign="top" width="1" background="images/bg_bage.gif">
186 
         <!-- LEFT -->
187 
         <!--#include file="_environment.asp"-->
188 
      </td>
189 
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
190 
      <td valign="top" width="100%">
191 
         <!-- MIDDLE -->
192 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
193 
            <tr>
194 
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
185 brianf 195 
		       <td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
129 ghuddy 196 
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
197 
            </tr>
198 
            <tr>
183 brianf 199 
              <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
187 brianf 200 
              <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
183 brianf 201 
              <td background="images/bg_lght_gray.gif">&nbsp;</td>
202 
            </tr>
203 
            <tr>
129 ghuddy 204 
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
205 
               <td valign="bottom" background="images/bg_lght_gray.gif">
206 
                  <table width="100" border="0" cellspacing="0" cellpadding="0">
207 
                     <tr>
4687 dpurdie 208 
                        <td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td>
129 ghuddy 209 
                        <td>
210 
                           <!-- TABS ------------------------------------->
211 
                           <%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
212 
                        </td>
213 
                     </tr>
214 
                  </table>
215 
               </td>
216 
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
217 
            </tr>
218 
            <tr>
219 
               <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
220 
               <td background="images/lbox_bg_orange.gif">
221 
                  <!-- TAB ACTION BUTTONS ------------------------------------->
222 
               </td>
223 
               <td background="images/lbox_bg_orange.gif">&nbsp;</td>
224 
            </tr>
225 
            <tr>
226 
               <td></td>
227 
               <td valign="top">
228 
                  <!-- DETAILS ------------------------------------------------->
229 
                  <%
230 
                  '-- FROM START ---------------------------------------------------------------------------------------------------------
231 
                  objFormComponent.FormName = "FormName"
232 
                  objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
233 
                  Call objFormComponent.FormStart()
234 
                  %>
235 
                  <%If Request("rtag_id") <> "" Then%>
236 
                     <br>
237 
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
238 
                     <!-- USED BY ------------------------------------------------>
239 
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
240 
                        <tr>
145 ghuddy 241 
                           <%If isDaemonEnabledRelease = FALSE Then%>
242 
                              <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>
243 
                           <%End If%>
129 ghuddy 244 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
245 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
246 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
247 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
248 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
249 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
250 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
251 
                        </tr>
252 
                        <%
145 ghuddy 253 
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
254 
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
129 ghuddy 255 
 
256 
                        If pkgInfoHash.Item ("v_ext") <> "" Then
145 ghuddy 257 
                           OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
129 ghuddy 258 
                        Else
145 ghuddy 259 
                           OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
129 ghuddy 260 
                        End If
261 
 
262 
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
263 
 
264 
                        OraDatabase.Parameters.Remove "RTAG_ID"
265 
                        OraDatabase.Parameters.Remove "PKG_ID"
266 
                        OraDatabase.Parameters.Remove "V_EXT"
267 
                        %>
268 
                        <%If rsTemp.RecordCount < 1 Then%>
269 
                           <tr>
145 ghuddy 270 
                              <%If isDaemonEnabledRelease = FALSE Then%>
271 
                                 <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
272 
                              <%End If%>
129 ghuddy 273 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
274 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
275 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
276 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td><br>
277 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
278 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
279 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
280 
                           </tr>
281 
                        <%End If%>
282 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
283 
                           <tr>
284 
                              <%
285 
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
286 
 
145 ghuddy 287 
                              <%If isDaemonEnabledRelease = FALSE Then%>
288 
                                 <%If rsTemp("dpv_id") <> parPv_id And 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")%>"></td>
290 
                                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
291 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
292 
                                 <%Else%>
293 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
294 
                                 <%End If%>
129 ghuddy 295 
                              <%End If%>
145 ghuddy 296 
 
297 
                              <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
129 ghuddy 298 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
299 
                              <%Else%>
300 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
301 
                              <%End If%>
145 ghuddy 302 
 
129 ghuddy 303 
                              <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>
304 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
305 
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
306 
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
307 
                              <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>
5632 dpurdie 308 
                              <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>
129 ghuddy 309 
                           </tr>
310 
                           <%rsTemp.MoveNext
311 
                           rsTemp.Close()
312 
                           rsState.Close()
313 
 
314 
                           Set rsState = nothing
315 
                        WEnd
316 
                        Set rsTemp = nothing
317 
                        %>
318 
                     </table>
145 ghuddy 319 
                     <%If isDaemonEnabledRelease = FALSE Then%>
320 
                        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
321 
                        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
322 
                     <%End If%>
129 ghuddy 323 
                     <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>
324 
                     <br><br>
325 
                     <input type="hidden" name="action" value="true">
326 
                  <%End If%>
327 
                  <%
328 
                  Call objFormComponent.FormEnd()
329 
                  '-- FROM END ----------------------------------------------------------------------------------------------------------------
330 
                  %>
331 
                  <!------------------------------------------------------------>
332 
                  <br>
5925 dpurdie 333 
                  <span class="body_sect">Used by Projects</span><%=Quick_Help("thisproject")%>
129 ghuddy 334 
                  <table width="100%"  border="0" cellspacing="1" cellpadding="4">
335 
                     <tr>
336 
                        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
337 
                        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
338 
                     </tr>
339 
                     <%
340 
                     Dim currWorld, bgColor, linkSync
341 
                     currWorld = -1
342 
 
343 
                     OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,    ORAPARM_INPUT, ORATYPE_NUMBER
344 
                     OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
345 
 
346 
                     If pkgInfoHash.Item ("v_ext") <> "" Then
347 
                        OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
348 
                     Else
349 
                        OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
350 
                     End If
351 
 
352 
                     Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
353 
 
354 
                     OraDatabase.Parameters.Remove "RTAG_ID"
355 
                     OraDatabase.Parameters.Remove "PKG_ID"
356 
                     OraDatabase.Parameters.Remove "V_EXT"
357 
                     %>
358 
                     <%If rsTemp.RecordCount < 1 Then%>
359 
                        <tr>
360 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
361 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
362 
                        </tr>
363 
                     <%End If%>
364 
                     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
365 
                        projId = rsTemp("proj_id")
366 
                        %>
367 
                        <tr>
368 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
369 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
370 
                              <SPAN id="IMG_EXPAND_USED_BY_<%=projId%>" name="IMG_EXPAND_USED_BY_<%=projId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisProject('?pv_id=<%=pkgInfoHash.Item("pv_id")%>&proj_id=<%=projId%>', '<%=projId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
371 
                              <SPAN id="IMG_COLLAPSE_USED_BY_<%=projId%>" name="IMG_COLLAPSE_USED_BY_<%=projId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PROJECT_<%=projId%>', 'IMG_EXPAND_USED_BY_<%=projId%>', 'IMG_COLLAPSE_USED_BY_<%=projId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("proj_name") &" ("& rsTemp("used_count") &")"%></a></SPAN>
372 
 
373 
                              <DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
374 
                           </td>
375 
                        </tr>
376 
 
377 
                        <%rsTemp.MoveNext
378 
                     WEnd
379 
                     rsTemp.Close
380 
                     Set rsTemp = nothing%>
381 
 
382 
                  </table><br>
5925 dpurdie 383 
                  <!------------------------------------------------------------>
384 
                  <br>
385 
                  <span class="body_sect">Used by Packages</span><%=Quick_Help("thispackage")%>
386 
                  <table width="100%"  border="0" cellspacing="1" cellpadding="4">
387 
                     <tr>
388 
                        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
389 
                        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Package</td>
390 
                     </tr>
391 
                     <%
392 
                     'Dim currWorld, bgColor, linkSync
393 
                     currWorld = -1
394 
 
395 
                     OraDatabase.Parameters.Add "PV_ID", parPv_id,    ORAPARM_INPUT, ORATYPE_NUMBER
396 
                     Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageSummary.sql"), cint(0) )
397 
                     OraDatabase.Parameters.Remove "PV_ID"
398 
                     %>
399 
                     <%If rsTemp.RecordCount < 1 Then%>
400 
                        <tr>
401 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
402 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
403 
                        </tr>
404 
                     <%End If%>
405 
                     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
406 
                        pkgId = rsTemp("pkg_id")
407 
                        %>
408 
                        <tr>
409 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
410 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
411 
                              <SPAN id="IMG_EXPAND_PKGID_<%=pkgId%>" name="IMG_EXPAND_PKGID_<%=pkgId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisPackage('?pv_id=<%=parPv_id%>&pkg_id=<%=pkgId%>', '<%=pkgId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%></a></SPAN>
412 
                              <SPAN id="IMG_COLLAPSE_PKGID_<%=pkgId%>" name="IMG_COLLAPSE_PKGID_<%=pkgId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PKGID_<%=pkgId%>', 'IMG_EXPAND_PKGID_<%=pkgId%>', 'IMG_COLLAPSE_PKGID_<%=pkgId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%></a></SPAN>
413 
 
414 
                              <DIV id="PKGID_<%=pkgId%>" name="PKGID_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
415 
                           </td>
416 
                        </tr>
417 
 
418 
                        <%rsTemp.MoveNext
419 
                     WEnd
420 
                     rsTemp.Close
421 
                     Set rsTemp = nothing%>
422 
 
423 
                  </table><br>
424 
 
129 ghuddy 425 
                  <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>
426 
                  <br>
427 
                  <!-- END DETAILS ------------------------------------------------->
428 
               </td>
429 
               <td>&nbsp;</td>
430 
            </tr>
431 
         </table>
432 
         <!-- END MIDDLE -------->
433 
      </td>
434 
   </tr>
119 ghuddy 435 
</table>
436 
<!-- FOOTER -->
437 
<!--#include file="_footer.asp"-->
438 
</body>
439 
</html>
440 
<%
441 
Call Destroy_All_Objects
442 
%>