Subversion Repositories DevTools

Rev

Rev 6790 | 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 - DEPENDENCIES
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 
%>
6181 dpurdie 22 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsSQL
27 
'------------ Constants Declaration -----------
28 
'------------ Variable Init -------------------
29 
'----------------------------------------------
30 
%>
31 
<%
32 
'-----------------------------------------------------------------------------------------------------------------------------------
33 
Function DBGet_Build_Dependencies ( nPv_id )
34 
	DBGet_Build_Dependencies = _
35 
	"   SELECT pv.pv_id, pv.pkg_id, pkg.pkg_name, pv.pkg_version, pv.dlocked,"&_
36 
	"	       pv.modified_stamp, usr.full_name, usr.user_email"&_
37 
	"	  FROM PACKAGE_VERSIONS pv, PACKAGE_DEPENDENCIES dep, PACKAGES pkg, USERS usr"&_
38 
	"	 WHERE dep.dpv_id = pv.pv_id"&_
39 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
40 
	"	   AND pv.modifier_id = usr.user_id"&_
41 
	"	   AND dep.pv_id = "& nPv_id &_
42 
	"	ORDER BY UPPER(pkg.pkg_name)"
43 
End Function
44 
'-----------------------------------------------------------------------------------------------------------------------------------
45 
%>
46 
<!--#include file="_menu_def.asp"-->
47 
<html>
48 
<head>
49 
<title>Release Manager</title>
50 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
51 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
52 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 53 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
54 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
55 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 56 
<!--#include file="_jquery_includes.asp"-->
6610 dpurdie 57 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 58 
</head>
5933 dpurdie 59 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();setLayerHeight();scrollToPvId();">
5357 dpurdie 60 
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
61 
  <tr>
62 
    <td width="1%" background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
63 
    <td width="100%" valign="top" background="images/bg_lght_gray.gif">
64 
	  <!--#include file="_version_browser.asp"-->
65 
    </td>
66 
  </tr>
67 
  <tr>
68 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="300"></td>
69 
    <td valign="top">
70 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
71 
        <tr>
6977 dpurdie 72 
          <td align="left" background="images/bg_lght_gray.gif">
5357 dpurdie 73 
            <!-- TABS ------------------------------------------->
74 
            <%
75 
			If IsEmpty( Request("pv_id") ) Then
76 
				Call Generate_Tab_Menu ( TABarray5D, Empty, "blue" )
77 
			Else
78 
				Call Generate_Tab_Menu ( TABarray5, "Dependencies", "blue" )
79 
			End If
80 
			%>
81 
            <!------------------------------------------------------------->
82 
          </td>
83 
        </tr>
84 
        <tr>
85 
          <td background="images/lbox_bg_blue.gif">&nbsp;</td>
86 
        </tr>
87 
      </table>
88 
	  <!----------------------------------------------  DETAILS --------------------------------------------------->
89 
	  <%If NOT IsEmpty( Request("pv_id") ) Then%>
90 
      <table width="100%" border="0" cellspacing="0" cellpadding="10">
91 
        <tr>
92 
          <td>
93 
		  <div id="LayerDetails" style="height: 350px; overflow: auto;" name="LayerDetails">
6790 dpurdie 94 
              <table width="100%" border="0" cellspacing="1" cellpadding="2" class='stdGrey'>
95 
                  <thead>
96 
                    <tr>
97 
                      <th width="1%"   nowrap></th>
98 
                      <th width="1%"   nowrap>Name</th>
99 
                      <th width="100%" nowrap>Versions</th>
100 
                      <th width="1%"   nowrap>Last Modified</th>
101 
                  </thead>
5357 dpurdie 102 
                </tr>
103 
				<%Set rsSQL = OraDatabase.DbCreateDynaset( DBGet_Build_Dependencies ( parPv_id ), cint(0))%>
104 
				<%If rsSQL.RecordCount < 1 Then%>
105 
				<tr>
6790 dpurdie 106 
				  <td>&nbsp;</td>
107 
                  <td nowrap>&nbsp;</td>
108 
                  <td nowrap>&nbsp;</td>
109 
                  <td nowrap>&nbsp;</td>
5357 dpurdie 110 
                </tr>
111 
				<%End If%>
112 
				<%While (NOT rsSQL.BOF) AND (NOT rsSQL.EOF)%>
113 
				<%
5933 dpurdie 114 
				URLstring = scriptName &"?"& Persists_Query_String( "pv_id="& rsSQL("pv_id") &"&pkg_id="& rsSQL("pkg_id") &"&filter_reset=true" )
5357 dpurdie 115 
				%>
116 
                <tr>
6790 dpurdie 117 
				  <td><%If rsSQL("dlocked") = "Y" Then%><%=IMG_OFFICIAL%><%Else%><%=IMG_NOT_OFFICIAL%><%End If%></td>
118 
                  <td nowrap><a href="<%=URLstring%>" class="txt_linked"><%=rsSQL("pkg_name")%></a></td>
119 
                  <td nowrap><%=rsSQL("pkg_version")%></td>
120 
                  <td nowrap><%=DisplayShortDateTime ( rsSQL("modified_stamp") )%> by <%=emailField(enum_imgUser & rsSQL("full_name"), rsSQL("user_email"))%></td>
6612 dpurdie 121 
                  </tr>
5357 dpurdie 122 
				<%rsSQL.MoveNext
123 
				  WEnd%>
124 
              </table>
125 
            </div>
126 
		  </td>
127 
        </tr>
128 
      </table>
129 
	  <%End If%>
130 
	  <!----------------------------------------------  END DETAILS --------------------------------------------------->
131 
	  </td>
132 
  </tr>
133 
  <tr>
134 
    <td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
135 
    <td background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
136 
  </tr>
137 
</table>
138 
</body>
139 
</html>
140 
<!-- DESTRUCTOR ------->
119 ghuddy 141 
<!--#include file="common/destructor.asp"-->