Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6048 | 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
'|				      EXPORT ANT  					 |
6
'|					 DEPENDENCIES					 |
7
'|                                                   |
8
'=====================================================
9
%>
10
<%
11
Option explicit
12
' Good idea to set when using redirect
13
Response.Expires = 0	' always load the page, dont store
14
%>
15
<!--#include file="common/conf.asp"-->
16
<!--#include file="common/globals.asp"-->
17
<!--#include file="common/formating.asp"-->
18
<!--#include file="common/qstr.asp"-->
19
<!--#include file="common/common_subs.asp"-->
20
<!--#include file="_tabs.asp"-->
21
<%
22
' Make sure rtag_id is always present
23
If Request("pv_id") = "" Then
5957 dpurdie 24
    Call Destroy_All_Objects
5357 dpurdie 25
	Response.Redirect("index.asp")
26
End If
27
%>
28
<%
29
'------------ ACCESS CONTROL ------------------
30
%>
31
<!--#include file="_access_control_general.asp"-->
32
<%
33
'------------ Variable Definition -------------
34
Dim parPv_id
35
'------------ Constants Declaration -----------
36
'------------ Variable Init -------------------
37
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
38
parPv_id = QStrPar("pv_id")
39
'----------------------------------------------
40
%>
41
<%
42
Function Dependency_List ( NNpv_id )
43
	On Error Resume Next
44
	Dim rsTemp, Query_String, tempSTR, Query_Release, rsRelease, prjName
45
	tempSTR = ""
46
 
47
	Query_String = _
48
	" SELECT pkg.pkg_name, pv.pkg_version"&_
49
	"	FROM packages pkg,"&_
50
	"	     package_versions pv,"&_
51
	"	     package_dependencies dep"&_
52
	"	WHERE pv.pkg_id = pkg.pkg_id"&_
53
	"	  AND dep.dpv_id = pv.pv_id"&_
54
	"	  AND dep.pv_id = "& NNpv_id &_
55
	"	ORDER BY UPPER(pkg.pkg_name)"
56
 
57
	' DEVI-34837 - provide additional name properties for external tools to make use of
58
	If request("rtag_id")	<> "" Then
59
		Query_Release = _
60
		" SELECT * FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE PRJ.PROJ_ID = RT.PROJ_ID AND RT.RTAG_ID="&request("rtag_id")
61
 
62
		Set rsRelease = OraDatabase.DbCreateDynaset( Query_Release, cint(0))
63
		prjName = rsRelease("proj_name")
64
 
65
		Response.Write("<property name=""releasemanager.releasename"" value="""& rsRelease("rtag_name") &"""/>") & VBNewLine
66
		Response.Write("<property name=""releasemanager.projectname"" value="""& prjName &"""/>") & VBNewLine & VBNewLine
67
		rsRelease.Close()
68
		Set rsRelease = Nothing
69
	End If
70
 
71
	Response.Write("<property name=""packagename"" value="""& pkgInfoHash.Item("pkg_name") &"""/>") & VBNewLine
72
 
73
	Response.Write("<property name=""packageversion"" value="""& pkgInfoHash.Item("pkg_version") &"""/>")& VBNewLine & VBNewLine
74
 
75
 
76
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
77
 
78
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
79
		tempSTR = tempSTR & To_ANT ( rsTemp("pkg_name"), rsTemp("pkg_version") ) & VBNewLine
80
		rsTemp.MoveNext
81
	WEnd
82
 
83
	Dependency_List = tempSTR
84
 
85
	rsTemp.Close
86
	Set rsTemp = nothing
87
End Function
88
%>
89
<%
90
Call Get_Pkg_Info ( parPv_id, NULL )
91
%>
92
<%Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") = "ant"%>
93
<html>
94
<head>
95
<title>Release Manager</title>
96
<link rel="shortcut icon" href="<%=FavIcon%>"/>
97
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
98
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
99
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
100
<link rel="stylesheet" href="images/navigation.css" type="text/css">
101
<script language="JavaScript" src="images/common.js"></script>
102
<!-- TIPS -->
103
<script language="JavaScript" src="images/tipster.js"></script>
104
<script language="JavaScript" src="images/_help_tips.js"></script>
5983 dpurdie 105
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 106
<!-- DROPDOWN MENUS -->
107
<!--#include file="_menu_def.asp"-->
108
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
109
 
110
</head>
111
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
112
<!-- MENU LAYERS -------------------------------------->
113
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
114
</div>
115
<!-- TIPS LAYERS -------------------------------------->
116
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
117
<!----------------------------------------------------->
118
 
119
<!-- HEADER -->
120
<!--#include file="_header.asp"-->
121
<!-- BODY ---->
122
<table width="100%" height="80%" border="0" cellpadding="0" cellspacing="0">
123
  <tr>
124
    <td align="center" valign="top" background="images/bg_lght_gray.gif">
125
		  <!-- MIDDLE -->
126
		    <table width="650" border="0" cellspacing="0" cellpadding="0">
127
			  <tr>
128
			    <td>
129
			      <table width="100%" border="0" cellspacing="0" cellpadding="0">
130
			        <tr>
131
			          <td width="1%">&nbsp;</td>
132
			          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
133
			          <td width="1%">&nbsp;</td>
134
			        </tr>
135
			        <tr>
136
			          <td width="1%">&nbsp;</td>
137
			          <td>
138
			            <table width="100%" border="0" cellspacing="0" cellpadding="0">
139
			              <tr>
140
			                <td nowrap class="form_ttl">EXPORT dependencies</td>
141
			                <td align="right" valign="bottom">
142
			                  <%Call Generate_Tab_Menu ( TABarray3, "ANT-using style", "blue" )%>
143
			                </td>
144
			              </tr>
145
			            </table>
146
			          </td>
147
			          <td width="1%">&nbsp;</td>
148
			        </tr>
149
			        <tr>
150
			          <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
151
			          <td background="images/lbox_bg_blue.gif">
152
					    <!-- Heading -->
153
					  	<table width="100%" border="0" cellspacing="0" cellpadding="0">
154
			              <tr>
155
			                <td nowrap class="lbox_ttl_w"><%=pkgInfoHash.Item ("pkg_name")%>&nbsp;<%=pkgInfoHash.Item ("pkg_version")%></td>
156
							<td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="46"></td>
157
			                <td align="right">
158
							<!-- ACTION BUTTONS ------------------------------------------->
159
							<!------------------------------------------------------------->
160
			                </td>
161
			              </tr>
162
			            </table>
163
			            <!-- END Heading -->
164
			          </td>
165
			          <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
166
			        </tr>
167
			        <tr>
168
			          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
169
			          <td bgcolor="#FFFFFF" valign="top">
170
			            <!-- Body -->
171
			            <table width="100%" border="0" cellspacing="1" cellpadding="2">
172
						<form name="close" method="post" action="dependencies.asp">
173
			                <tr>
174
			                  <td nowrap width="100%">&nbsp; </td>
175
			                </tr>
176
			                <tr>
177
			                  <td nowrap width="100%"><span class="form_txt">Copy this dependency export list into your build file to build this package.</span><br><br>
178
			                    <textarea name="FRdeps" rows="25" cols="100" wrap="OFF" class="form_item" onFocus="this.select()"><%=Dependency_List( parPv_id )%></textarea>
179
								<br><br>
180
								<input type="submit" name="btn" value="  Close  " class="form_btn">
181
								<br><br>
182
			                  </td>
183
			                </tr>
184
							<input type="hidden" name="pv_id" value="<%=parPv_id%>">
185
					  		<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
186
						</form>
187
			            </table>
188
			            <!-- END Body-->
189
						    </td>
190
			          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
191
			        </tr>
192
			        <tr>
193
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
194
			          <td background="images/lbox_bg_blue.gif"></td>
195
			          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
196
			        </tr>
197
			      </table>
198
			    </td>
199
			  </tr>
200
			</table>
201
 
202
	</td>
203
  </tr>
204
</table>
5957 dpurdie 205
<!-- FOOTER -->
206
<!--#include file="_footer.asp"-->
5357 dpurdie 207
</body>
208
</html>