Subversion Repositories DevTools

Rev

Rev 119 | 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 - DEPENDENCIES
'=====================================================
%>
<!--#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_general.asp"-->
<%
'------------ Variable Definition -------------
Dim rsSQL
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------------
Function DBGet_Build_Dependencies ( nPv_id )
        DBGet_Build_Dependencies = _
        "   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, pv.dlocked,"&_
        "              pv.modified_stamp, usr.full_name, usr.user_email"&_
        "         FROM PACKAGE_VERSIONS pv, PACKAGE_DEPENDENCIES dep, PACKAGES pkg, USERS usr"&_
        "        WHERE dep.dpv_id = pv.pv_id"&_
        "          AND pv.pkg_id = pkg.pkg_id"&_
        "          AND pv.modifier_id = usr.user_id"&_
        "          AND dep.pv_id = "& nPv_id &_
        "       ORDER BY UPPER(pkg.pkg_name)"
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
%>
<!--#include file="_menu_def.asp"-->
<html>
<head>
<title>Release Manager</title>
<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" type="text/css">
<link rel="stylesheet" href="images/navigation.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function setLayerHeight () {
        var h = screen.height;
        MM_findObj("LayerDetails").style.height = (h-300)/2 +"px";
        MM_findObj("LayerVersions").style.height = (h-300)/2 +"px";
}       
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();">
<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="right" background="images/bg_lght_gray.gif"><br> 
            <!-- TABS ------------------------------------------->
            <%
                        If IsEmpty( Request("pv_id") ) Then
                                Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
                        Else
                                Call Generate_Tab_Menu ( TABarray5, "Dependencies", "blue" )
                        End If
                        %>
            <!------------------------------------------------------------->
          </td>
        </tr>
        <tr>
          <td background="images/lbox_bg_blue.gif">&nbsp;</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="2">
                <tr> 
                                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Name&nbsp;&nbsp;</td>
                  <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Versions&nbsp;&nbsp;</td>
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Last Modified</td>
                </tr>
                                <%Set rsSQL = OraDatabase.DbCreateDynaset( DBGet_Build_Dependencies ( parPv_id ), cint(0))%>
                                <%If rsSQL.RecordCount < 1 Then%>
                                <tr> 
                                  <td background="images/bg_form_lightgray.gif">&nbsp;</td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
                </tr>
                                <%End If%>
                                <%While (NOT rsSQL.BOF) AND (NOT rsSQL.EOF)%>
                                <%
                                anchorName = "ANC_"& rsSQL("pv_id")
                                URLstring = scriptName &"?"& Persists_Query_String( "pv_id="& rsSQL("pv_id") &"&pkg_id="& rsSQL("pkg_id") &"&filter_reset=true" ) &"#"& anchorName
                                %>
                <tr> 
                                  <td background="images/bg_form_lightgray.gif"><%If rsSQL("dlocked") = "Y" Then%><%=IMG_OFFICIAL%><%Else%><%=IMG_NOT_OFFICIAL%><%End If%></td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><a href="<%=URLstring%>" class="txt_linked"><%=rsSQL("pkg_name")%></a></td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsSQL("pkg_version")%></td>
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsSQL("modified_stamp") )%> by <a href="mailto:<%=rsSQL("user_email")%>" class="txt_linked"><%=rsSQL("full_name")%></a></td>
                </tr>
                                <%rsSQL.MoveNext
                                  WEnd%>
              </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"-->