Subversion Repositories DevTools

Rev

Rev 6790 | Rev 6873 | 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 
'=====================================================
4 
'|                                                   |
5 
'|		           Run Time Dependencies             |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/common_dbedit.asp"-->
20 
<!--#include file="_tabs.asp"-->
21 
<!--#include file="_action_buttons.asp"-->
22 
<!--#include file="common/_package_common.asp"-->
23 
<%
24 
'------------ ACCESS CONTROL ------------------
25 
%>
6181 dpurdie 26 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 27 
<!--#include file="_access_control_general.asp"-->
28 
<%
29 
'------------ Variable Definition -------------
30 
Dim rsTemp
31 
Dim	rsQry
32 
Dim criticalSectionIsEditable
6788 dpurdie 33 
Dim canEdit
5357 dpurdie 34 
'------------ Constants Declaration -----------
35 
'------------ Variable Init -------------------
6788 dpurdie 36 
criticalSectionIsEditable = Is_Critical_Section_Editable ( pkgInfoHash.Item ("dlocked") )
37 
canEdit = pkgInfoHash.Item("dlocked") = "N" OR (pkgInfoHash.Item("dlocked") = "R") OR criticalSectionIsEditable
5357 dpurdie 38 
'----------------------------------------------
39 
Function Get_Runtime_Dependencies ( NNpv_id )
40 
	Get_Runtime_Dependencies = _
41 
	" SELECT rtd.rtd_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments, rtd.rtd_url, "&_
42 
	"       rtd.mod_date, usr.full_name, usr.user_email"&_
43 
	"  FROM packages pkg, package_versions pv, runtime_dependencies rtd, users usr"&_
44 
	" WHERE pv.pkg_id = pkg.pkg_id"&_
45 
	"   AND rtd.rtd_id = pv.pv_id"&_
46 
	"   AND rtd.mod_user = usr.user_id"&_
47 
	"   AND rtd.pv_id = "& NNpv_id &_
48 
	" ORDER BY UPPER(pkg.pkg_name) "
49 
End Function
50 
%>
51 
<%
52 
'------------------------- MAIN LINE ---------------------------
53 
%>
54 
<html>
55 
<head>
56 
<title><%=Title(Request("rtag_id"))%></title>
57 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
58 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
59 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 60 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
61 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
62 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
63 
<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 64 
<!--#include file="_jquery_includes.asp"-->
65 
<!-- DROPDOWN MENUS -->
66 
<!--#include file="_menu_def.asp"-->
6579 dpurdie 67 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 68 
</head>
69 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
70 
<!-- HEADER -->
71 
<!--#include file="_header.asp"-->
72 
<!-- BODY ---->
73 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
74 
	<tr>
75 
		<td valign="top" width="1" background="images/bg_bage.gif">
76 
		<!-- LEFT -->
77 
		<!--#include file="_environment.asp"-->
78 
		</td>
79 
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
80 
		<td valign="top" width="100%">
81 
		<!-- MIDDLE -->
82 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
83 
		  <tr>
84 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
85 
		    <td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td>
86 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
87 
		  </tr>
88 
          <tr>
89 
            <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
90 
            <td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td>
91 
            <td background="images/bg_lght_gray.gif">&nbsp;</td>
92 
          </tr>
93 
		  <tr>
94 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
95 
		    <td valign="bottom" background="images/bg_lght_gray.gif">
96 
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
97 
		        <tr>
98 
		          <td><IMG height="1" src="images/spacer.gif" width="0" alt="tab-left-margin" ></td>
99 
		          <td>
100 
				  <!-- TABS ------------------------------------->
101 
				  <%Call Generate_Tab_Menu ( TABarray1, "Runtime", "orange" )%>
102 
				  </td>
103 
		        </tr>
104 
		      </table>
105 
		    </td>
106 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
107 
		  </tr>
108 
		  <tr>
109 
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
110 
		    <td background="images/lbox_bg_orange.gif">
111 
			<!-- TAB ACTION BUTTONS ------------------------------------->
6788 dpurdie 112 
			<%Call Action_Buttons_State ( "Runtime Dependencies", canEdit )%>
5357 dpurdie 113 
			</td>
114 
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
115 
		  </tr>
116 
		  <tr>
117 
		    <td></td>
118 
		    <td valign="top">
119 
			<!-- DETAILS ------------------------------------------------->
120 
			<br>
121 
                        <span class="body_colb">Runtime Dependencies</span><br>
6790 dpurdie 122 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3" class="stdGrey">
123 
                            <thead>
124 
                              <tr>
125 
                                <th nowrap width="1%" ></th>
126 
                                <th nowrap width="1%" >Product&nbsp;&nbsp;</th>
127 
                                <th nowrap width="1%" >Version&nbsp;&nbsp;</th>
128 
                                <th nowrap width="100%">Comments</th>
129 
                                <th nowrap width="1%" >URL</th>
130 
                                <th nowrap width="1%"  align="center">Added</th>
131 
                                <th nowrap width="1%" ></th>
132 
                              </tr>
133 
                            </thead>
5357 dpurdie 134 
                          <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Runtime_Dependencies ( parPv_id ), cint(0))%>
135 
                          <%If rsTemp.RecordCount < 1 Then%>
136 
                          <tr>
6790 dpurdie 137 
                            <td nowrap>&nbsp;</td>
138 
                            <td nowrap>&nbsp;</td>
139 
                            <td>&nbsp;</td>
140 
                            <td>&nbsp;</td>
141 
							<td>&nbsp;</td>
142 
							<td>&nbsp;</td>
143 
                            <td>&nbsp;</td>
5357 dpurdie 144 
                          </tr>
145 
                          <%End If%>
146 
                          <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%>
147 
                          <tr>
6827 dpurdie 148 
                            <%BuildActionButtonClick canEdit,"", "Edit", False, _
149 
                                        "src='images/i_edit.gif' width='12' height='12' hspace='3' vspace='3' border='0'", _
150 
                                        "MM_openVixIFrame('_wform_update_runtime_dependency.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&rtd_id=" & rsTemp("rtd_id") & "','Update Runtime Dependency')"
151 
                            %>
6790 dpurdie 152 
                            <td nowrap valign="top"><%=rsTemp("pkg_name")%></td>
153 
                            <td nowrap valign="top"><%=rsTemp("pkg_version")%></td>
154 
                            <td valign="top"><%=rsTemp("rtd_comments")%></td>
155 
							<td valign="top"><%If NOT IsNull(rsTemp("rtd_url")) Then Response.write "<a href='http://"& rsTemp("rtd_url") &"' target='_blank'><img src='images/i_url.gif' width='15' height='15' hspace='3' vspace='3' border='0' alt='"& rsTemp("rtd_url") &"'></a>"%></td>
156 
							<td nowrap valign="top"><%=DisplayDate(rsTemp("mod_date"))%> by <%=emailField(enum_imgUser & rsTemp("full_name") ,rsTemp("user_email"))%></td>
6827 dpurdie 157 
 
158 
                            <%BuildActionButtonClick canEdit, "", "Delete", false, _
159 
                                        "src='images/i_delete.gif' width='13' height='12' hspace='3' border='0'",_
160 
                                        "vixConfirm('Are you sure you want to delete this Runtime Dependency?', {url : '"& "_remove_runtime_dependency.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&rtd_id=" & rsTemp("rtd_id") &"'})"%>
5357 dpurdie 161 
                          </tr>
162 
                          <%rsTemp.MoveNext
163 
						  WEnd
164 
						  rsTemp.Close
165 
						  Set rsTemp = nothing%>
166 
                        </table>
167 
                        <!------------------------------------------------------------>
168 
           <br><br>
169 
			<!-- END DETAILS ------------------------------------------------->
170 
			</td>
171 
		    <td>&nbsp;</td>
172 
		  </tr>
173 
		</table>
174 
		<!-- END MIDDLE -------->
175 
		</td>
176 
	</tr>
177 
</table>
178 
<!-- FOOTER -->
179 
<!--#include file="_footer.asp"-->
180 
</body>
181 
</html>