Subversion Repositories DevTools

Rev

Rev 5190 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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

            172