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