Subversion Repositories DevTools

Rev

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