Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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