Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
5 
%>
6 
<%
7 
'=====================================================
8 
'			VERSIONS HISTORY - RUNTIME
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 
%>
22 
<!--#include file="_access_control_general.asp"-->
23 
<%
24 
'------------ Variable Definition -------------
25 
Dim rsSQL
26 
'------------ Constants Declaration -----------
27 
'------------ Variable Init -------------------
28 
'----------------------------------------------
29 
%>
30 
<%
31 
'-----------------------------------------------------------------------------------------------------------------------------------
32 
Function DBGet_Runtime_Dependencies ( nPv_id )
33 
	DBGet_Runtime_Dependencies = _
34 
	"   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments,"&_
35 
	"	       rtd.rtd_url, rtd.mod_date, usr.full_name, usr.user_email"&_
36 
	"	  FROM RUNTIME_DEPENDENCIES rtd, PACKAGES pkg, PACKAGE_VERSIONS pv, USERS usr"&_
37 
	"	 WHERE rtd.rtd_id = pv.pv_id"&_
38 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
39 
	"	   AND rtd.mod_user = usr.user_id"&_
40 
	"	   AND rtd.pv_id = "& nPv_id &_
41 
	"	ORDER BY UPPER(pkg.pkg_name)"
42 
End Function
43 
'-----------------------------------------------------------------------------------------------------------------------------------
44 
%>
45 
<!--#include file="_menu_def.asp"-->
46 
<html>
47 
<head>
48 
<title>Release Manager</title>
49 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
50 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
51 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
52 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
53 
<script language="JavaScript" src="images/common.js"></script>
54 
<script language="JavaScript" type="text/JavaScript">
55 
<!--
56 
function setLayerHeight () {
57 
	var h = screen.height;
58 
	MM_findObj("LayerDetails").style.height = (h-300)/2 +"px";
59 
	MM_findObj("LayerVersions").style.height = (h-300)/2 +"px";
60 
}
61 
//-->
62 
</script>
63 
</head>
64 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();">
65 
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
66 
  <tr>
67 
    <td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
68 
    <td width="100%" valign="top" background="images/bg_lght_gray.gif">
69 
	  <!--#include file="_version_browser.asp"-->
70 
    </td>
71 
  </tr>
72 
  <tr>
73 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td>
74 
    <td valign="top">
75 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
76 
        <tr>
77 
          <td align="right" background="images/bg_lght_gray.gif"><br>
78 
            <!-- TABS ------------------------------------------->
79 
            <%
80 
			If IsEmpty( Request("pv_id") ) Then
81 
				Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
82 
			Else
83 
				Call Generate_Tab_Menu ( TABarray5, "Runtime", "blue" )
84 
			End If
85 
			%>
86 
            <!------------------------------------------------------------->
87 
          </td>
88 
        </tr>
89 
        <tr>
90 
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
91 
        </tr>
92 
      </table>
93 
	  <!----------------------------------------------  DETAILS --------------------------------------------------->
94 
	  <%If NOT IsEmpty( Request("pv_id") ) Then%>
95 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
96 
        <tr>
97 
          <td>
98 
		  <div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails">
99 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
100 
                <tr>
101 
				  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Product&nbsp;&nbsp;</td>
102 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Versions&nbsp;&nbsp;</td>
103 
                  <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Comments&nbsp;&nbsp;</td>
104 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">URL</td>
105 
				  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Added</td>
106 
                </tr>
107 
				<%Set rsSQL = OraDatabase.DbCreateDynaset( DBGet_Runtime_Dependencies ( parPv_id ), cint(0))%>
108 
				<%If rsSQL.RecordCount < 1 Then%>
109 
				<tr>
110 
				  <td background="images/bg_form_lightgray.gif">&nbsp;</td>
111 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
112 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
113 
				  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
114 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
115 
                </tr>
116 
				<%End If%>
117 
				<%While (NOT rsSQL.BOF) AND (NOT rsSQL.EOF)%>
118 
                <tr>
119 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsSQL("pkg_name")%></td>
120 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsSQL("pkg_version")%></td>
121 
				  <td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR ( To_HTML( rsSQL("rtd_comments") ) )%></td>
122 
				  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If NOT IsNull(rsSQL("rtd_url")) Then Response.write "<a href='http://"& rsSQL("rtd_url") &"' target='_blank'><img src='images/i_url.gif' width='15' height='15' hspace='3' vspace='3' border='0' alt='"& rsSQL("rtd_url") &"'></a>"%></td>
123 
                  <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=EuroDate ( rsSQL("mod_date") )%> by <a href="mailto:<%=rsSQL("user_email")%>" class="txt_linked"><%=rsSQL("full_name")%></a></td>
124 
                </tr>
125 
				<%rsSQL.MoveNext
126 
				  WEnd%>
127 
              </table>
128 
            </div>
129 
		  </td>
130 
        </tr>
131 
      </table>
132 
	  <%End If%>
133 
	  <!----------------------------------------------  END DETAILS --------------------------------------------------->
134 
	  </td>
135 
  </tr>
136 
  <tr>
137 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
138 
    <td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
139 
  </tr>
140 
</table>
141 
</body>
142 
</html>
143 
 
144 
<!-- DESTRUCTOR ------->
145 
<!--#include file="common/destructor.asp"-->