Subversion Repositories DevTools

Rev

Rev 6790 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
5632 dpurdie 4
Response.Expires = 0    ' always load the page, dont store
5357 dpurdie 5
%>
6
<%
7
'=====================================================
5632 dpurdie 8
'           VERSIONS HISTORY - RUNTIME
5357 dpurdie 9
'=====================================================
10
%>
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/formating.asp"-->
14
<!--#include file="common/qstr.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="_tabs.asp"-->
17
<!--#include file="_wform_versions_history_main.asp"-->
18
<!--#include file="common/_popup_window_common.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
6181 dpurdie 22
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 23
<!--#include file="_access_control_general.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim rsSQL
27
'------------ Constants Declaration -----------
28
'------------ Variable Init -------------------
29
'----------------------------------------------
30
%>
31
<%
32
'-----------------------------------------------------------------------------------------------------------------------------------
33
Function DBGet_Runtime_Dependencies ( nPv_id )
5632 dpurdie 34
    DBGet_Runtime_Dependencies = _
35
    "   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments,"&_
36
    "          rtd.rtd_url, rtd.mod_date, usr.full_name, usr.user_email"&_
37
    "     FROM RUNTIME_DEPENDENCIES rtd, PACKAGES pkg, PACKAGE_VERSIONS pv, USERS usr"&_
38
    "    WHERE rtd.rtd_id = pv.pv_id"&_
39
    "      AND pv.pkg_id = pkg.pkg_id"&_
40
    "      AND rtd.mod_user = usr.user_id"&_
41
    "      AND rtd.pv_id = "& nPv_id &_
42
    "   ORDER BY UPPER(pkg.pkg_name)"
5357 dpurdie 43
End Function
44
'-----------------------------------------------------------------------------------------------------------------------------------
45
%>
46
<!--#include file="_menu_def.asp"-->
47
<html>
48
<head>
49
<title>Release Manager</title>
50
<link rel="shortcut icon" href="<%=FavIcon%>"/>
51
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
52
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 53
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
54
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
55
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 56
<!--#include file="_jquery_includes.asp"-->
6610 dpurdie 57
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 58
</head>
5933 dpurdie 59
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();scrollToPvId();">
5357 dpurdie 60
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
61
  <tr> 
62
    <td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
63
    <td width="100%" valign="top" background="images/bg_lght_gray.gif">
5632 dpurdie 64
      <!--#include file="_version_browser.asp"-->
5357 dpurdie 65
    </td>
66
  </tr>
67
  <tr> 
68
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td>
69
    <td valign="top"> 
70
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
71
        <tr> 
6977 dpurdie 72
          <td align="left" background="images/bg_lght_gray.gif">
5357 dpurdie 73
            <!-- TABS ------------------------------------------->
74
            <%
5632 dpurdie 75
            If IsEmpty( Request("pv_id") ) Then
76
                Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
77
            Else
78
                Call Generate_Tab_Menu ( TABarray5, "Action Log", "blue" )
79
            End If
80
            %>
5357 dpurdie 81
            <!------------------------------------------------------------->
82
          </td>
83
        </tr>
84
        <tr>
6790 dpurdie 85
          <td background="images/lbox_bg_blue.gif"></td>
5357 dpurdie 86
        </tr>
87
      </table>
5632 dpurdie 88
      <!----------------------------------------------  DETAILS --------------------------------------------------->
89
      <%If NOT IsEmpty( Request("pv_id") ) Then%>
5357 dpurdie 90
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
91
        <tr>
92
          <td>
5632 dpurdie 93
          <div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails"> 
6790 dpurdie 94
                        <table width="100%" border="0" cellspacing="1" cellpadding="3" class='stdGrey'>
95
                            <thead>
96
                              <tr> 
97
                                <th nowrap width="1%">Date</th>
98
                                <th nowrap width="1%">Who</th>
99
                                <th nowrap width="1%">Action</th>
100
                                <th nowrap width="100%">Description</th>
101
                              </tr>
102
                            </thead>
5357 dpurdie 103
                          <%
5632 dpurdie 104
 
105
                          OraDatabase.Parameters.Add "PV_ID", parPv_id,     ORAPARM_INPUT, ORATYPE_NUMBER 
106
 
107
                          Set rsSQL = OraDatabase.DbCreateDynaset( GetQuery("PackageActionLog.sql"), cint(0))
108
                          %>
5357 dpurdie 109
                          <%If rsSQL.RecordCount < 1 Then%>
110
                          <tr> 
6790 dpurdie 111
                            <td nowrap></td>
112
                            <td></td>
113
                            <td></td>
114
                            <td></td>
5357 dpurdie 115
                          </tr>
116
                          <%End If%>
117
                          <%While ((NOT rsSQL.BOF) AND (NOT rsSQL.EOF))%>
118
                          <tr>
6790 dpurdie 119
                            <td nowrap valign="top"><%=rsSQL("action_timestamp")%></td>
120
                            <td nowrap valign="top">by <%=emailField(rsSQL("FULL_NAME"),rsSQL("user_email"))%></td>
121
                            <td nowrap valign="top"><%=rsSQL("acttype")%></td>
122
                            <td nowrap valign="top"><%=NewLine_To_BR( To_HTML ( rsSQL("description") ) )%></td>
5357 dpurdie 123
                          </tr>
124
                          <%rsSQL.MoveNext
5632 dpurdie 125
                          WEnd
126
                          rsSQL.Close
127
                          Set rsSQL = nothing
128
 
129
                          OraDatabase.Parameters.Remove "PV_ID"
130
                          %>
5357 dpurdie 131
                        </table>
132
            </div>
5632 dpurdie 133
          </td>
5357 dpurdie 134
        </tr>
135
      </table>
5632 dpurdie 136
      <%End If%>
137
      <!----------------------------------------------  END DETAILS --------------------------------------------------->
138
      </td>
5357 dpurdie 139
  </tr>
140
  <tr> 
141
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
142
    <td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
143
  </tr>
144
</table>
145
</body>
146
</html>
147
<!-- DESTRUCTOR ------->
119 ghuddy 148
<!--#include file="common/destructor.asp"-->