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>
136 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
137 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
138 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
139 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
140 
<script language="JavaScript" src="images/common.js"></script>
141 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
5085 dpurdie 142 
<!--#include file="_jquery_includes.asp"-->
119 ghuddy 143 
<script language="javascript">
144 
<!--
145 
function checkUncheckAll(theElement) {
129 ghuddy 146 
   var theForm = theElement.form, z = 0;
147 
   for(z=0; z<theForm.length;z++){
119 ghuddy 148 
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
129 ghuddy 149 
         theForm[z].checked = theElement.checked;
150 
      }
151 
   }
152 
}
119 ghuddy 153 
//-->
154 
</script>
155 
<!-- DROPDOWN MENUS -->
156 
<!--#include file="_menu_def.asp"-->
157 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
158 
<script language="JavaScript" type="text/javascript">
159 
<!--
160 
 
161 
function RequestUsedByThisProject( paramString, rowId ){
129 ghuddy 162 
   var requestURL = 'RequestUsedByThisProject.asp';
119 ghuddy 163 
 
129 ghuddy 164 
   // Show div
165 
   ToggleDisplay( 'PROJECT_'+ rowId, 'IMG_EXPAND_USED_BY_' + rowId, 'IMG_COLLAPSE_USED_BY_' + rowId );
119 ghuddy 166 
 
129 ghuddy 167 
   // Set ajax divname
168 
   ajaxdivname = 'PROJECT_'+ rowId;
119 ghuddy 169 
 
129 ghuddy 170 
   if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
171 
   {
172 
      //Append the name to search for to the requestURL
173 
      var url = requestURL + paramString;
119 ghuddy 174 
 
129 ghuddy 175 
      //Create the xmlHttp object to use in the request
176 
      //stateChangeHandler will fire when the state has changed, i.e. data is received back
177 
      // This is non-blocking (asynchronous)
178 
      xmlHttp = GetXmlHttpObject(stateChangeHandler);
119 ghuddy 179 
 
129 ghuddy 180 
      //Send the xmlHttp get to the specified url
181 
      xmlHttp_Get(xmlHttp, url);
182 
   }
119 ghuddy 183 
}
184 
 
185 
//-->
186 
</script>
187 
</head>
188 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
189 
<!-- MENU LAYERS -------------------------------------->
129 ghuddy 190 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
119 ghuddy 191 
  <!----------------------------------------------------->
192 
</div>
193 
<!-- HEADER -->
194 
<!--#include file="_header.asp"-->
195 
<!-- BODY ---->
196 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 197 
   <tr>
198 
      <td valign="top" width="1" background="images/bg_bage.gif">
199 
         <!-- LEFT -->
200 
         <!--#include file="_environment.asp"-->
201 
      </td>
202 
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
203 
      <td valign="top" width="100%">
204 
         <!-- MIDDLE -->
205 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
206 
            <tr>
207 
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
185 brianf 208 
		       <td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
129 ghuddy 209 
               <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
210 
            </tr>
211 
            <tr>
183 brianf 212 
              <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
187 brianf 213 
              <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
183 brianf 214 
              <td background="images/bg_lght_gray.gif">&nbsp;</td>
215 
            </tr>
216 
            <tr>
129 ghuddy 217 
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
218 
               <td valign="bottom" background="images/bg_lght_gray.gif">
219 
                  <table width="100" border="0" cellspacing="0" cellpadding="0">
220 
                     <tr>
4687 dpurdie 221 
                        <td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td>
129 ghuddy 222 
                        <td>
223 
                           <!-- TABS ------------------------------------->
224 
                           <%Call Generate_Tab_Menu ( TABarray1, "Used by", "orange" )%>
225 
                        </td>
226 
                     </tr>
227 
                  </table>
228 
               </td>
229 
               <td background="images/bg_lght_gray.gif">&nbsp;</td>
230 
            </tr>
231 
            <tr>
232 
               <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
233 
               <td background="images/lbox_bg_orange.gif">
234 
                  <!-- TAB ACTION BUTTONS ------------------------------------->
235 
               </td>
236 
               <td background="images/lbox_bg_orange.gif">&nbsp;</td>
237 
            </tr>
238 
            <tr>
239 
               <td></td>
240 
               <td valign="top">
241 
                  <!-- DETAILS ------------------------------------------------->
242 
                  <%
243 
                  '-- FROM START ---------------------------------------------------------------------------------------------------------
244 
                  objFormComponent.FormName = "FormName"
245 
                  objFormComponent.Action = ScriptName&"?pv_id="&Request("pv_id")&"&rtag_id="&parRtag_id
246 
                  Call objFormComponent.FormStart()
247 
                  %>
248 
                  <%If Request("rtag_id") <> "" Then%>
249 
                     <br>
250 
                     <span class="body_sect">Used by Packages In This Release</span>         <br>
251 
                     <!-- USED BY ------------------------------------------------>
252 
                     <table width="100%" border="0" cellspacing="1" cellpadding="3">
253 
                        <tr>
145 ghuddy 254 
                           <%If isDaemonEnabledRelease = FALSE Then%>
255 
                              <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>
256 
                           <%End If%>
129 ghuddy 257 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1"></td>
258 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Name</td>
259 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version</td>
260 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Location</td>
261 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"></td>
262 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Version Used</td>
263 
                           <td background="images/bg_form_lightbluedark.gif" nowrap width="25%" class="form_field">Last Modified</td>
264 
                        </tr>
265 
                        <%
145 ghuddy 266 
                        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
267 
                        OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
129 ghuddy 268 
 
269 
                        If pkgInfoHash.Item ("v_ext") <> "" Then
145 ghuddy 270 
                           OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
129 ghuddy 271 
                        Else
145 ghuddy 272 
                           OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
129 ghuddy 273 
                        End If
274 
 
275 
                        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackagesInThisRelease.sql"), cint(0))
276 
 
277 
                        OraDatabase.Parameters.Remove "RTAG_ID"
278 
                        OraDatabase.Parameters.Remove "PKG_ID"
279 
                        OraDatabase.Parameters.Remove "V_EXT"
280 
                        %>
281 
                        <%If rsTemp.RecordCount < 1 Then%>
282 
                           <tr>
145 ghuddy 283 
                              <%If isDaemonEnabledRelease = FALSE Then%>
284 
                                 <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
285 
                              <%End If%>
129 ghuddy 286 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
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><br>
290 
                              <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
291 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
292 
                              <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
293 
                           </tr>
294 
                        <%End If%>
295 
                        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
296 
                           <tr>
297 
                              <%
298 
                              Set rsState = OraDatabase.DbCreateDynaset( "select deprecated_state from release_content where rtag_id="&parRtag_id&" and pv_id="&rsTemp("pv_id"), cint(0))%>
299 
 
145 ghuddy 300 
                              <%If isDaemonEnabledRelease = FALSE Then%>
301 
                                 <%If rsTemp("dpv_id") <> parPv_id And IsNull(rsTemp("ignore_warn")) Then%>
302 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>"></td>
303 
                                 <%ElseIf rsTemp("dpv_id") = parPv_id And IsNull(rsTemp("ignore_warn")) OR NOT isNull(rsTemp("ignore_warn")) Then%>
304 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" disabled></td>
305 
                                 <%Else%>
306 
                                    <td background="images/bg_form_lightgray.gif" nowrap><input type="checkbox" name="ignore_warnings" value="<%=rsTemp("pv_id")%>_<%=rsTemp("dpv_id")%>" checked></td>
307 
                                 <%End If%>
129 ghuddy 308 
                              <%End If%>
145 ghuddy 309 
 
310 
                              <%If rsState("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
129 ghuddy 311 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsState("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
312 
                              <%Else%>
313 
                                 <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
314 
                              <%End If%>
145 ghuddy 315 
 
129 ghuddy 316 
                              <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>
317 
                              <td background="images/bg_form_lightgray.gif" class="form_item"><%=rsTemp("pkg_version")%></td>
318 
                              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap><%=GetEnvName(rsTemp("env_area"))%></td>
319 
                              <td background="images/bg_form_lightgray.gif"><%=DefineStateIcon ( 0, "Y", rsTemp("ignore_warn"), rsTemp("is_patch_ignore"), pkgInfoHash.Item("build_type"), TRUE )%></td>
320 
                              <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>
321 
                              <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>
322 
                           </tr>
323 
                           <%rsTemp.MoveNext
324 
                           rsTemp.Close()
325 
                           rsState.Close()
326 
 
327 
                           Set rsState = nothing
328 
                        WEnd
329 
                        Set rsTemp = nothing
330 
                        %>
331 
                     </table>
145 ghuddy 332 
                     <%If isDaemonEnabledRelease = FALSE Then%>
333 
                        <input name="btn" type="submit" class="form_btn" value="Apply"><br>
334 
                        <SPAN class="rep_small">NOTE: Click on Apply "To Ignore Warnings" On Packages Used By</SPAN><br>
335 
                     <%End If%>
129 ghuddy 336 
                     <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>
337 
                     <br><br>
338 
                     <input type="hidden" name="action" value="true">
339 
                  <%End If%>
340 
                  <%
341 
                  Call objFormComponent.FormEnd()
342 
                  '-- FROM END ----------------------------------------------------------------------------------------------------------------
343 
                  %>
344 
                  <!------------------------------------------------------------>
345 
                  <br>
346 
                  <span class="body_sect">Used by Projects</span>
347 
                  <table width="100%"  border="0" cellspacing="1" cellpadding="4">
348 
                     <tr>
349 
                        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
350 
                        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
351 
                     </tr>
352 
                     <%
353 
                     Dim currWorld, bgColor, linkSync
354 
                     currWorld = -1
355 
 
356 
                     OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,    ORAPARM_INPUT, ORATYPE_NUMBER
357 
                     OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
358 
 
359 
                     If pkgInfoHash.Item ("v_ext") <> "" Then
360 
                        OraDatabase.Parameters.Add "V_EXT",   pkgInfoHash.Item ("v_ext"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
361 
                     Else
362 
                        OraDatabase.Parameters.Add "V_EXT",   NULL,       ORAPARM_INPUT, ORATYPE_VARCHAR2
363 
                     End If
364 
 
365 
                     Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByProjects.sql"), cint(0) )
366 
 
367 
                     OraDatabase.Parameters.Remove "RTAG_ID"
368 
                     OraDatabase.Parameters.Remove "PKG_ID"
369 
                     OraDatabase.Parameters.Remove "V_EXT"
370 
                     %>
371 
                     <%If rsTemp.RecordCount < 1 Then%>
372 
                        <tr>
373 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
374 
                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
375 
                        </tr>
376 
                     <%End If%>
377 
                     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
378 
                        projId = rsTemp("proj_id")
379 
                        %>
380 
                        <tr>
381 
                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
382 
                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
383 
                              <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>
384 
                              <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>
385 
 
386 
                              <DIV id="PROJECT_<%=projId%>" name="PROJECT_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
387 
                           </td>
388 
                        </tr>
389 
 
390 
                        <%rsTemp.MoveNext
391 
                     WEnd
392 
                     rsTemp.Close
393 
                     Set rsTemp = nothing%>
394 
 
395 
                  </table><br>
396 
                  <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>
397 
                  <br>
398 
                  <!-- END DETAILS ------------------------------------------------->
399 
               </td>
400 
               <td>&nbsp;</td>
401 
            </tr>
402 
         </table>
403 
         <!-- END MIDDLE -------->
404 
      </td>
405 
   </tr>
119 ghuddy 406 
</table>
407 
<!-- FOOTER -->
408 
<!--#include file="_footer.asp"-->
409 
</body>
410 
</html>
411 
<%
412 
Call Destroy_All_Objects
413 
%>