Subversion Repositories DevTools

Rev

Rev 5939 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5925 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|	           RequestUsedByThisProject.asp     	 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
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/_rtree_common.asp"-->
20
<%
21
'------------ Variable Definition -------------
22
Dim rsTemp
23
Dim pkgId
24
'------------ Constants Declaration -----------
25
'------------ Variable Init -------------------
26
pkgId = Request ("pkg_id")
27
'----------------------------------------------
28
%>
29
<%
30
'------------------------------------------------------------------------------------------------------------------------
31
%>
32
<%
33
'------------------------ MAIN LINE ---------------------------------
34
'--------------------------------------------------------------------
35
%>
36
<table width="100%" border="0" cellspacing="0" cellpadding="0">
37
	<tr>
38
	 <td background="images/bg_form_lightbluedark.gif">		
39
 
40
						<table width="100%" border="0" cellspacing="1" cellpadding="1">
41
                          <tr>
42
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Package</td>
43
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Version</td>
44
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
45
						    <td width="1" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Last&nbsp;Modified</td>
46
						  </tr>
47
                          <%
48
						  OraDatabase.Parameters.Add "PV_ID",  Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER 
49
						  OraDatabase.Parameters.Add "PKG_ID", pkgId, ORAPARM_INPUT, ORATYPE_NUMBER 
50
 
51
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageDetail.sql"), cint(0))
52
 
53
						  OraDatabase.Parameters.Remove "PV_ID"
54
						  OraDatabase.Parameters.Remove "PKG_ID"
55
 
56
						  %>
57
						  <%If rsTemp.RecordCount < 1 Then%>
58
						  <tr> 
59
						    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
60
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
61
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
62
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
63
                          </tr>
64
						  <%End If%>
65
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
66
                          <tr> 
67
                            <td background="images/bg_form_lightgray.gif" nowrap>
68
                                <%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%>
69
                                <a href="view_by_version.asp?pkg_id=<%=pkgId%>&listby=1" class="txt_linked">
70
                                    <%=rsTemp("pkg_name")%>
71
                                </a>
72
                            </td>
73
                            <td background="images/bg_form_lightgray.gif" nowrap>
74
                              <a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>" class="txt_linked">
75
                                    <%=rsTemp("pkg_version")%>
76
                            </td>
77
                            <td background="images/bg_form_lightgray.gif" nowrap>
78
                            </td>
79
                            <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
80
                              <a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>
81
                                &nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%>
82
                            </td>
83
                          </tr>
84
                          <%rsTemp.MoveNext
85
						  WEnd
86
						  rsTemp.Close
87
						  Set rsTemp = nothing%>
88
                        </table>
89
    </td>						
90
  </tr>
91
</table>
92
						<br>
93
 
94
<%
95
Call Destroy_All_Objects
96
%>