Subversion Repositories DevTools

Rev

Rev 6579 | Rev 6790 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 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="common/common_dbedit.asp"-->
17 
<!--#include file="_tabs.asp"-->
18 
<!--#include file="_wform_versions_history_main.asp"-->
19 
<!--#include file="common/_popup_window_common.asp"-->
20 
<%
21 
'------------ ACCESS CONTROL ------------------
22 
%>
6181 dpurdie 23 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 24 
<!--#include file="_access_control_general.asp"-->
25 
<%
26 
'------------ Variable Definition -------------
27 
Dim rsSQL
28 
Dim retVal
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
31 
'----------------------------------------------
32 
%>
33 
<%
34 
'-----------------------------------------------------------------------------------------------------------------------------------
35 
Function DBGet_Runtime_Dependencies ( nPv_id )
36 
	DBGet_Runtime_Dependencies = _
37 
	"   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments,"&_
38 
	"	       rtd.rtd_url, rtd.mod_date, usr.full_name, usr.user_email"&_
39 
	"	  FROM RUNTIME_DEPENDENCIES rtd, PACKAGES pkg, PACKAGE_VERSIONS pv, USERS usr"&_
40 
	"	 WHERE rtd.rtd_id = pv.pv_id"&_
41 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
42 
	"	   AND rtd.mod_user = usr.user_id"&_
43 
	"	   AND rtd.pv_id = "& nPv_id &_
44 
	"	ORDER BY UPPER(pkg.pkg_name)"
45 
End Function
46 
'-----------------------------------------------------------------------------------------------------------------------------------
47 
%>
48 
<!--#include file="_menu_def.asp"-->
49 
<html>
50 
<head>
51 
<title>Release Manager</title>
52 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
53 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
54 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 55 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
56 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
57 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 58 
<!--#include file="_jquery_includes.asp"-->
6610 dpurdie 59 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 60 
</head>
5933 dpurdie 61 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();scrollToPvId();">
5357 dpurdie 62 
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
63 
  <tr>
64 
    <td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
65 
    <td width="100%" valign="top" background="images/bg_lght_gray.gif">
66 
	  <!--#include file="_version_browser.asp"-->
67 
    </td>
68 
  </tr>
69 
  <tr>
70 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td>
71 
    <td valign="top">
72 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
73 
        <tr>
74 
          <td align="right" background="images/bg_lght_gray.gif"><br>
75 
            <!-- TABS ------------------------------------------->
76 
            <%
77 
			If IsEmpty( Request("pv_id") ) Then
78 
				Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
79 
			Else
80 
				Call Generate_Tab_Menu ( TABarray5, "Documentation", "blue" )
81 
			End If
82 
			%>
83 
            <!------------------------------------------------------------->
84 
          </td>
85 
        </tr>
86 
        <tr>
87 
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
88 
        </tr>
89 
      </table>
90 
	  <!----------------------------------------------  DETAILS --------------------------------------------------->
91 
	  <%If NOT IsEmpty( Request("pv_id") ) Then%>
92 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
93 
        <tr>
94 
          <td>
95 
		  <div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails">
96 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
97 
                          <tr>
98 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;Download&nbsp;</td>
99 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Title&nbsp;&nbsp;</td>
100 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Document Number&nbsp;&nbsp;</td>
101 
							<td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Version&nbsp;&nbsp;</td>
102 
                            <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Created&nbsp;&nbsp;</td>
103 
                          </tr>
104 
                          <%
105 
						  Dim sDocTitle, sDoc_version, dDoc_created
106 
						  OraDatabase.Parameters.Add "PV_ID", parPv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
107 
 
108 
						  Set rsSQL = OraDatabase.DbCreateDynaset( GetQuery("PackageDocumentation.sql"), cint(0))
109 
						  %>
110 
                          <%If rsSQL.RecordCount < 1 Then%>
111 
                          <tr>
112 
                            <td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
113 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
114 
                            <td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
115 
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
116 
							<td background="images/bg_form_lightgray.gif" class="form_item">&nbsp;</td>
117 
                          </tr>
118 
                          <%End If%>
119 
                          <%Do While ((NOT rsSQL.BOF) AND (NOT rsSQL.EOF))%>
120 
						  	<%
121 
							If IsNull(rsSQL("is_latest")) Then
122 
								retVal =  Short_Document_Details ( rsSQL("doc_id"), sDocTitle, sDoc_version, dDoc_created  )
123 
							Else
124 
								retVal =  Lookup_Document ( rsSQL("doc_num"), sDocTitle, NULL, NULL, dDoc_created  )
125 
								sDoc_version = "Latest"
126 
							End If
127 
 
128 
							If retVal <> 0 Then Exit Do
129 
							%>
130 
                          <tr>
131 
							<td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="<%=DocRepositiryLink%><%=rsSQL("doc_num")%>" target="_blank"><img src="images/i_download_small.gif" width="16" height="16" border="0" title="Download document from repository"></a></td>
132 
                            <td nowrap background="images/bg_form_lightgray.gif" valign="top" class="form_item"><a href="<%=DocRepositiryLink%><%=rsSQL("doc_num")%>" class="txt_linked" target="_blank"><%=sDocTitle%></a>&nbsp;&nbsp;</td>
133 
                            <td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsSQL("doc_num")%></td>
134 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=FormatVersion( sDoc_version )%></td>
5632 dpurdie 135 
							<td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=DisplayDateTime ( dDoc_created ) %></td>
5357 dpurdie 136 
                          </tr>
137 
                          <%rsSQL.MoveNext
138 
						  Loop
139 
						  rsSQL.Close
140 
						  Set rsSQL = nothing
141 
						  OraDatabase.Parameters.Remove "PV_ID"
142 
 
143 
						  %>
144 
                        </table>
145 
						<%If retVal <> 0 Then Response.write enumMSSQL_ERROR%>
146 
            </div>
147 
		  </td>
148 
        </tr>
149 
      </table>
150 
	  <%End If%>
151 
	  <!----------------------------------------------  END DETAILS --------------------------------------------------->
152 
	  </td>
153 
  </tr>
154 
  <tr>
155 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
156 
    <td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
157 
  </tr>
158 
</table>
159 
</body>
160 
</html>
161 
<!-- DESTRUCTOR ------->
119 ghuddy 162 
<!--#include file="common/destructor.asp"-->