Subversion Repositories DevTools

Rev

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

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0    ' always load the page, dont store
%>
<%
'=====================================================
'           VERSIONS HISTORY - RUNTIME
'=====================================================
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="_tabs.asp"-->
<!--#include file="_wform_versions_history_main.asp"-->
<!--#include file="common/_popup_window_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login_optional.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim rsSQL
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------------
Function DBGet_Runtime_Dependencies ( nPv_id )
    DBGet_Runtime_Dependencies = _
    "   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments,"&_
    "          rtd.rtd_url, rtd.mod_date, usr.full_name, usr.user_email"&_
    "     FROM RUNTIME_DEPENDENCIES rtd, PACKAGES pkg, PACKAGE_VERSIONS pv, USERS usr"&_
    "    WHERE rtd.rtd_id = pv.pv_id"&_
    "      AND pv.pkg_id = pkg.pkg_id"&_
    "      AND rtd.mod_user = usr.user_id"&_
    "      AND rtd.pv_id = "& nPv_id &_
    "   ORDER BY UPPER(pkg.pkg_name)"
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
%>
<!--#include file="_menu_def.asp"-->
<html>
<head>
<title>Release Manager</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
<!--#include file="_jquery_includes.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();scrollToPvId();">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
    <td width="100%" valign="top" background="images/bg_lght_gray.gif">
      <!--#include file="_version_browser.asp"-->
    </td>
  </tr>
  <tr> 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td>
    <td valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="left" background="images/bg_lght_gray.gif">
            <!-- TABS ------------------------------------------->
            <%
            If IsEmpty( Request("pv_id") ) Then
                Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
            Else
                Call Generate_Tab_Menu ( TABarray5, "Action Log", "blue" )
            End If
            %>
            <!------------------------------------------------------------->
          </td>
        </tr>
        <tr>
          <td background="images/lbox_bg_blue.gif"></td>
        </tr>
      </table>
      <!----------------------------------------------  DETAILS --------------------------------------------------->
      <%If NOT IsEmpty( Request("pv_id") ) Then%>
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr>
          <td>
          <div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails"> 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3" class='stdGrey'>
                            <thead>
                              <tr> 
                                <th nowrap width="1%">Date</th>
                                <th nowrap width="1%">Who</th>
                                <th nowrap width="1%">Action</th>
                                <th nowrap width="100%">Description</th>
                              </tr>
                            </thead>
                          <%
                          
                          OraDatabase.Parameters.Add "PV_ID", parPv_id,     ORAPARM_INPUT, ORATYPE_NUMBER 
                          
                          Set rsSQL = OraDatabase.DbCreateDynaset( GetQuery("PackageActionLog.sql"), cint(0))
                          %>
                          <%If rsSQL.RecordCount < 1 Then%>
                          <tr> 
                            <td nowrap></td>
                            <td></td>
                            <td></td>
                            <td></td>
                          </tr>
                          <%End If%>
                          <%While ((NOT rsSQL.BOF) AND (NOT rsSQL.EOF))%>
                          <tr>
                            <td nowrap valign="top"><%=rsSQL("action_timestamp")%></td>
                            <td nowrap valign="top">by <%=emailField(rsSQL("FULL_NAME"),rsSQL("user_email"))%></td>
                            <td nowrap valign="top"><%=rsSQL("acttype")%></td>
                            <td nowrap valign="top"><%=NewLine_To_BR( To_HTML ( rsSQL("description") ) )%></td>
                          </tr>
                          <%rsSQL.MoveNext
                          WEnd
                          rsSQL.Close
                          Set rsSQL = nothing
                          
                          OraDatabase.Parameters.Remove "PV_ID"
                          %>
                        </table>
            </div>
          </td>
        </tr>
      </table>
      <%End If%>
      <!----------------------------------------------  END DETAILS --------------------------------------------------->
      </td>
  </tr>
  <tr> 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
    <td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
  </tr>
</table>
</body>
</html>
<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->