Subversion Repositories DevTools

Rev

Rev 5939 | Rev 6610 | Go to most recent revision | Details | Compare with Previous | 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
5946 dpurdie 24 
Dim parMode
5925 dpurdie 25 
'------------ Constants Declaration -----------
26 
'------------ Variable Init -------------------
27 
pkgId = Request ("pkg_id")
5946 dpurdie 28 
parMode = Request ("mode")
5925 dpurdie 29 
'----------------------------------------------
30 
%>
31 
<%
32 
'------------------------------------------------------------------------------------------------------------------------
33 
%>
34 
<%
35 
'------------------------ MAIN LINE ---------------------------------
36 
'--------------------------------------------------------------------
37 
%>
38 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
39 
	<tr>
40 
	 <td background="images/bg_form_lightbluedark.gif">
41 
 
42 
						<table width="100%" border="0" cellspacing="1" cellpadding="1">
43 
                          <tr>
5939 dpurdie 44 
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Package and Version</td>
45 
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Version Used</td>
5925 dpurdie 46 
						    <td width="33%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
47 
						    <td width="1" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Last&nbsp;Modified</td>
48 
						  </tr>
49 
                          <%
50 
						  OraDatabase.Parameters.Add "PV_ID",  Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
51 
						  OraDatabase.Parameters.Add "PKG_ID", pkgId, ORAPARM_INPUT, ORATYPE_NUMBER
5946 dpurdie 52 
						  OraDatabase.Parameters.Add "MATCH",  parMode, ORAPARM_INPUT, ORATYPE_NUMBER
5925 dpurdie 53 
 
54 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageDetail.sql"), cint(0))
55 
 
5939 dpurdie 56 
						  OraDatabase.Parameters.Remove "MATCH"
5925 dpurdie 57 
						  OraDatabase.Parameters.Remove "PV_ID"
58 
						  OraDatabase.Parameters.Remove "PKG_ID"
59 
 
60 
						  %>
61 
						  <%If rsTemp.RecordCount < 1 Then%>
62 
						  <tr>
63 
						    <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
64 
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
65 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
66 
							<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
67 
                          </tr>
68 
						  <%End If%>
69 
			  			  <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
70 
                          <tr>
71 
                            <td background="images/bg_form_lightgray.gif" nowrap>
72 
                                <%If rsTemp("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%>
73 
                                <a href="view_by_version.asp?pkg_id=<%=pkgId%>&listby=1" class="txt_linked">
5939 dpurdie 74 
                                    <%=rsTemp("pkg_name")%></a>&nbsp;<a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>" class="txt_linked"><%=rsTemp("pkg_version")%></a>
5925 dpurdie 75 
                                </a>
76 
                            </td>
77 
                            <td background="images/bg_form_lightgray.gif" nowrap>
5939 dpurdie 78 
                              <a href="dependencies.asp?pv_id=<%=rsTemp("used_pv_id")%>" class="txt_linked <%=iif(rsTemp("MATCH") <> 1,"err_alert","")%>">
79 
                                    <%=rsTemp("used_version")%>
5925 dpurdie 80 
                            </td>
81 
                            <td background="images/bg_form_lightgray.gif" nowrap>
82 
                            </td>
83 
                            <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
84 
                              <a href="mailto:<%=rsTemp("user_email")%>" class="txt_linked"><%=enum_imgUser%><%=rsTemp("full_name")%></a>
85 
                                &nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%>
86 
                            </td>
87 
                          </tr>
88 
                          <%rsTemp.MoveNext
89 
						  WEnd
90 
						  rsTemp.Close
91 
						  Set rsTemp = nothing%>
92 
                        </table>
93 
    </td>
94 
  </tr>
95 
</table>
96 
<%
97 
Call Destroy_All_Objects
98 
%>