Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
3
'=====================================================
3
'=====================================================
4
'|                                                   |
4
'|                                                   |
5
'|				        REPORT					     |
5
'|                      REPORT                       |
6
'|      				Escrow  					 |
6
'|                      Escrow                       |
7
'=====================================================
7
'=====================================================
8
%>
8
%>
9
<%
9
<%
10
Option explicit
10
Option explicit
11
' Good idea to set when using redirect
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
12
Response.Expires = 0   ' always load the page, dont store
13
%>
13
%>
14
<!--#include file="common/conf.asp"-->
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/common_subs.asp"-->
17
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/formating.asp"-->
Line 27... Line 27...
27
Dim rsTemp
27
Dim rsTemp
28
Dim parPv_id, parExt
28
Dim parPv_id, parExt
29
Dim objReleaseContent
29
Dim objReleaseContent
30
Dim aReleaseContent
30
Dim aReleaseContent
31
Dim objPackageDetails
31
Dim objPackageDetails
-
 
32
Dim BldStd
32
'------------ Constants Declaration -----------
33
'------------ Constants Declaration -----------
33
'------------ Variable Init -------------------
34
'------------ Variable Init -------------------
34
parRtag_id = Request("rtag_id")
35
parRtag_id = Request("rtag_id")
35
parExt = Request("ext")
36
parExt = Request("ext")
36
Set objReleaseContent = CreateObject("Scripting.Dictionary")
37
Set objReleaseContent = CreateObject("Scripting.Dictionary")
Line 38... Line 39...
38
'----------------------------------------------
39
'----------------------------------------------
39
%>
40
%>
40
<%
41
<%
41
'----------------------------------------------------------------------------------------------------------------------------------------
42
'----------------------------------------------------------------------------------------------------------------------------------------
42
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
43
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
43
	Dim rsQry, query
44
   Dim rsQry, query
44
	query = _
45
   query = _
45
	" SELECT pkg.pkg_name, pv.* "&_
46
   " SELECT pkg.pkg_name, pv.* "&_
46
	"  FROM PACKAGES pkg,"&_
47
   "   FROM PACKAGES pkg,"&_
47
	"       PACKAGE_VERSIONS pv"&_
48
   "        PACKAGE_VERSIONS pv"&_
48
	" WHERE pv.pv_id = "& nPv_id &_
49
   "  WHERE pv.pv_id = "& nPv_id &_
49
	"   AND pv.pkg_id = pkg.pkg_id	"
50
   "    AND pv.pkg_id = pkg.pkg_id   "
50
 
51
 
51
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
52
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
52
 
53
 
53
	oPackageDetails.RemoveAll
54
   oPackageDetails.RemoveAll
54
 
55
 
55
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
56
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
56
		oPackageDetails("pkg_name") = rsQry("pkg_name")
57
      oPackageDetails("pkg_name") = rsQry("pkg_name")
57
		oPackageDetails("pkg_version") = rsQry("pkg_version")
58
      oPackageDetails("pkg_version") = rsQry("pkg_version")
58
		oPackageDetails("v_ext") = rsQry("v_ext")
59
      oPackageDetails("v_ext") = rsQry("v_ext")
59
		oPackageDetails("pv_description") = rsQry("pv_description")
60
      oPackageDetails("pv_description") = rsQry("pv_description")
60
		oPackageDetails("pv_overview") = rsQry("pv_overview")
61
      oPackageDetails("pv_overview") = rsQry("pv_overview")
61
		oPackageDetails("src_path") = rsQry("src_path")
62
      oPackageDetails("src_path") = rsQry("src_path")
62
		oPackageDetails("pkg_label") = rsQry("pkg_label")
63
      oPackageDetails("pkg_label") = rsQry("pkg_label")
63
		oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
64
      oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
64
 
65
 
65
	End If
66
   End If
66
 
67
 
67
	rsQry.Close()
68
   rsQry.Close()
68
	Set rsQry = Nothing
69
   Set rsQry = Nothing
69
End Sub
70
End Sub
70
'----------------------------------------------------------------------------------------------------------------------------------------
71
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
72
Function SQL_Build_Std ( nPv_id )
-
 
73
   SQL_Build_Std = _
-
 
74
   " SELECT bs.bs_name"&_
-
 
75
   "   FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,"&_
-
 
76
   "        RELEASE_MANAGER.BUILD_STANDARDS bs"&_
-
 
77
   "  WHERE pv.PV_ID = "& nPv_id &_
-
 
78
   "    AND pv.BS_ID = bs.BS_ID "
-
 
79
End Function
-
 
80
'----------------------------------------------------------------------------------------------------------------------------------------
71
Function SQL_Build_Env ( nPv_id )
81
Function SQL_Build_Env ( nPv_id )
72
	SQL_Build_Env = _
82
   SQL_Build_Env = _
73
	" SELECT be.*"&_
83
   " SELECT bm.bm_name"&_
74
	"  FROM BUILD_ENVIRONMENTS be,"&_
84
   "  FROM  RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi,"&_
75
	"	   PACKAGE_BUILD_ENV pbe"&_
85
   "        RELEASE_MANAGER.BUILD_MACHINES bm"&_
76
	" WHERE pbe.PV_ID = "& nPv_id &_
86
   "  WHERE pbi.PV_ID = "& nPv_id &_
77
	"   AND pbe.BE_ID = be.BE_ID "&_
87
   "    AND pbi.BM_ID = bm.BM_ID "&_
78
	" ORDER BY UPPER(be.BE_NAME) "
88
   "  ORDER BY UPPER(bm.BM_NAME) "
79
End Function
89
End Function
80
'----------------------------------------------------------------------------------------------------------------------------------------
90
'----------------------------------------------------------------------------------------------------------------------------------------
81
Function SQL_Build_Dependencies ( nPv_id )
91
Function SQL_Build_Dependencies ( nPv_id )
82
	SQL_Build_Dependencies = _
92
   SQL_Build_Dependencies = _
83
	" SELECT dpkg.pkg_name, dpv.pkg_version"&_
93
   " SELECT dpkg.pkg_name, dpv.pkg_version"&_
84
	"	  FROM PACKAGE_DEPENDENCIES dep,"&_
94
   "   FROM PACKAGE_DEPENDENCIES dep,"&_
85
	"	  	   PACKAGES dpkg,"&_
95
   "        PACKAGES dpkg,"&_
86
	"		   PACKAGE_VERSIONS dpv"&_
96
   "        PACKAGE_VERSIONS dpv"&_
87
	"	 WHERE dep.pv_id = "& nPv_id &_
97
   "  WHERE dep.pv_id = "& nPv_id &_
88
	"	   AND dep.DPV_ID = dpv.pv_id"&_
98
   "    AND dep.DPV_ID = dpv.pv_id"&_
89
	"	   AND dpv.pkg_id = dpkg.pkg_id	"&_
99
   "    AND dpv.pkg_id = dpkg.pkg_id   "&_
90
	"	ORDER BY UPPER(dpkg.pkg_name) "
100
   " ORDER BY UPPER(dpkg.pkg_name) "
91
End Function
101
End Function
92
'----------------------------------------------------------------------------------------------------------------------------------------
102
'----------------------------------------------------------------------------------------------------------------------------------------
93
Sub GetReleaseContent ( nRtag_id, ByRef oReleaseContent )
103
Sub GetReleaseContent ( nRtag_id, ByRef oReleaseContent )
94
	Dim rsQry, query
104
   Dim rsQry, query
95
	query = _
105
   query = _
96
	" SELECT qry.pv_id"&_
106
   " SELECT qry.pv_id"&_
97
	"  FROM ("&_
107
   "  FROM ("&_
98
	"		SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, 1 AS seq_num"&_
108
   "      SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, 1 AS seq_num"&_
99
	"		  FROM RELEASE_CONTENT rc,"&_
109
   "        FROM RELEASE_CONTENT rc,"&_
100
	"		  	   PACKAGES pkg,"&_
110
   "             PACKAGES pkg,"&_
101
	"			   PACKAGE_VERSIONS pv"&_
111
   "             PACKAGE_VERSIONS pv"&_
102
	"		 WHERE rc.rtag_id = "& nRtag_id  &_
112
   "       WHERE rc.rtag_id = "& nRtag_id  &_
103
	"		   AND pv.pkg_id = pkg.pkg_id"&_
113
   "         AND pv.pkg_id = pkg.pkg_id"&_
104
	"		   AND rc.pv_id = pv.pv_id"&_
114
   "         AND rc.pv_id = pv.pv_id"&_
105
	"		   AND rc.BASE_VIEW_ID = 5  "&_
115
   "         AND rc.BASE_VIEW_ID = 5  "&_
106
	"		UNION   "&_
116
   "      UNION   "&_
107
	"		SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, 2 AS seq_num"&_
117
   "      SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, 2 AS seq_num"&_
108
	"		  FROM RELEASE_CONTENT rc,"&_
118
   "        FROM RELEASE_CONTENT rc,"&_
109
	"		  	   PACKAGES pkg,"&_
119
   "             PACKAGES pkg,"&_
110
	"			   PACKAGE_VERSIONS pv"&_
120
   "             PACKAGE_VERSIONS pv"&_
111
	"		 WHERE rc.rtag_id = "& nRtag_id &_
121
   "       WHERE rc.rtag_id = "& nRtag_id &_
112
	"		   AND pv.pkg_id = pkg.pkg_id"&_
122
   "         AND pv.pkg_id = pkg.pkg_id"&_
113
	"		   AND rc.pv_id = pv.pv_id"&_
123
   "         AND rc.pv_id = pv.pv_id"&_
114
	"		   AND rc.BASE_VIEW_ID != 5"&_
124
   "         AND rc.BASE_VIEW_ID != 5"&_
115
	"	   ) qry  "&_
125
   "      ) qry  "&_
116
	" ORDER BY qry.seq_num, UPPER(qry.pkg_name)"
126
   " ORDER BY qry.seq_num, UPPER(qry.pkg_name)"
117
 
127
 
118
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
128
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
119
 
129
 
120
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
130
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
121
		oReleaseContent( CStr( rsQry("pv_id")) ) = ""
131
      oReleaseContent( CStr( rsQry("pv_id")) ) = ""
122
		rsQry.MoveNext()
132
      rsQry.MoveNext()
123
	WEnd
133
   WEnd
124
 
134
 
125
	rsQry.Close()
135
   rsQry.Close()
126
	Set rsQry = Nothing
136
   Set rsQry = Nothing
127
End Sub
137
End Sub
128
'----------------------------------------------------------------------------------------------------------------------------------------
138
'----------------------------------------------------------------------------------------------------------------------------------------
129
 
139
 
130
%>
140
%>
131
<%
141
<%
Line 142... Line 152...
142
<body>
152
<body>
143
 
153
 
144
<%
154
<%
145
aReleaseContent = objReleaseContent.Keys
155
aReleaseContent = objReleaseContent.Keys
146
For Each parPv_id In aReleaseContent
156
For Each parPv_id In aReleaseContent
147
 
-
 
-
 
157
   Response.Flush
148
	Call GetPackageInformation ( parPv_id, objPackageDetails )
158
   Call GetPackageInformation ( parPv_id, objPackageDetails )
-
 
159
   %>
149
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
160
   <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
150
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
161
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
151
					  <tr>
162
      <tr>
152
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
163
         <td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
153
					  </tr>
164
      </tr>
154
					</table>
165
   </table>
155
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
166
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
156
					  <tr>
167
      <tr>
157
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
168
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
158
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
169
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
159
		              </tr>
170
      </tr>
160
		              <tr>
171
      <tr>
161
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
172
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
162
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
173
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
163
		              </tr>
174
      </tr>
164
					  <tr>
175
      <tr>
165
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
176
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
166
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
177
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
167
		              </tr>
178
      </tr>
168
					  <tr>
179
      <tr>
169
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
180
         <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
170
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
181
         <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
171
		              </tr>
182
      </tr>
172
		              <tr>
183
      <tr>
173
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
184
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
174
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
185
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
175
		              </tr>
186
      </tr>
176
					  <tr>
187
      <tr>
177
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
188
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
178
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
189
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
179
		              </tr>
190
      </tr>
180
					  <tr>
191
      <tr>
181
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
192
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
182
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
193
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
183
						<%
194
            <%
184
						'--- Get Build Env Details
195
            '--- Get Build Env Details
-
 
196
 
-
 
197
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Std ( parPv_id ), cint(0))
-
 
198
            If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
-
 
199
               BldStd = rsQry("bs_name")
-
 
200
               rsQry.Close
185
 
201
 
186
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
202
               Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
187
						%>
203
               %>
188
						  <ul>
204
               <ul>
189
						  <%
205
                  <%
190
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
206
                  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
191
						  %>
207
                     %>
192
                          <li><%=rsQry("be_name")%></li>
208
                     <li><%=BldStd%>, <%=rsQry("bm_name")%></li>
193
						  <%rsQry.MoveNext
209
                     <%rsQry.MoveNext
194
						  WEnd
210
                  WEnd
195
						  %>
211
                  %>
196
                          </ul>
212
               </ul>
-
 
213
            <%End If%>
197
					   </td>
214
         </td>
198
		              </tr>
215
      </tr>
199
					  <tr>
216
      <tr>
200
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
217
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
201
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
218
         <td bgcolor="#FFFFFF" class="sublbox_txt">
202
						<%
219
            <%
203
						'--- Get Build Dependencies Details
220
            '--- Get Build Dependencies Details
204
 
221
 
205
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
222
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
206
						%>
223
            %>
207
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
224
            <table width="100%"  cellspacing="0" cellpadding="2" border="1">
208
						  <tr>
225
               <tr>
209
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
226
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
210
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
227
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
211
                          </tr>
228
               </tr>
212
						  <%If rsQry.RecordCount < 1 Then%>
229
               <%If rsQry.RecordCount < 1 Then%>
213
						  <tr>
230
                  <tr>
214
                            <td nowrap class="sublbox_txt">No Dependencies</td>
231
                     <td nowrap class="sublbox_txt">No Dependencies</td>
215
							<td nowrap class="sublbox_txt"></td>
232
                     <td nowrap class="sublbox_txt"></td>
216
                          </tr>
233
                  </tr>
217
						  <%End If%>
234
               <%End If%>
218
						  <%
235
               <%
219
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
236
               While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
220
						  %>
237
                  %>
221
                          <tr>
238
                  <tr>
222
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
239
                     <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
223
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
240
                     <td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
224
                          </tr>
241
                  </tr>
225
						  <%rsQry.MoveNext
242
                  <%rsQry.MoveNext
226
						  WEnd
243
               WEnd
227
						  %>
244
               %>
228
                        </table>
245
            </table>
229
					   </td>
246
         </td>
230
		              </tr>
247
      </tr>
231
		            </table>
248
   </table>
232
		            <br><br>
249
   <br><br>
233
<%
250
   <%
234
	'Exit For
251
'Exit For
235
Next
252
Next
236
%>
253
%>
237
</body>
254
</body>
238
</html>
255
</html>
-
 
256
<%
-
 
257
Call Destroy_All_Objects
-
 
258
%>