Subversion Repositories DevTools

Rev

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

Rev 25 Rev 33
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
'To enable the script timeout to 10 mins
14
'To enable the script timeout to 10 mins
15
Server.ScriptTimeout=600
15
Server.ScriptTimeout=600
16
%>
16
%>
17
<!--#include file="common/config.asp"-->
17
<!--#include file="common/config.asp"-->
Line 30... Line 30...
30
Dim rsTemp
30
Dim rsTemp
31
Dim parPv_id, parExt
31
Dim parPv_id, parExt
32
Dim objReleaseContent
32
Dim objReleaseContent
33
Dim aReleaseContent
33
Dim aReleaseContent
34
Dim objPackageDetails
34
Dim objPackageDetails
-
 
35
Dim BldStd
35
Dim	outobjDetails
36
Dim outobjDetails
36
Dim	pvIdList
37
Dim pvIdList
37
Dim	dpv_id
38
Dim dpv_id
38
'------------ Constants Declaration -----------
39
'------------ Constants Declaration -----------
39
'------------ Variable Init -------------------
40
'------------ Variable Init -------------------
40
parBom_id = Request("bom_id")
41
parBom_id = Request("bom_id")
41
parExt = Request("ext")
42
parExt = Request("ext")
42
Set objReleaseContent = CreateObject("Scripting.Dictionary")
43
Set objReleaseContent = CreateObject("Scripting.Dictionary")
Line 45... Line 46...
45
'----------------------------------------------
46
'----------------------------------------------
46
%>
47
%>
47
<%
48
<%
48
'----------------------------------------------------------------------------------------------------------------------------------------
49
'----------------------------------------------------------------------------------------------------------------------------------------
49
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
50
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
50
	Dim rsQry, query
51
   Dim rsQry, query
51
	query = _
52
   query = _
52
	" SELECT pkg.pkg_name, pv.* "&_
53
   " SELECT pkg.pkg_name, pv.* "&_
53
	"  FROM PACKAGES pkg,"&_
54
   "   FROM PACKAGES pkg,"&_
54
	"       PACKAGE_VERSIONS pv"&_
55
   "        PACKAGE_VERSIONS pv"&_
55
	" WHERE pv.pv_id = "& nPv_id &_
56
   "  WHERE pv.pv_id = "& nPv_id &_
56
	"   AND pv.pkg_id = pkg.pkg_id	"
57
   "    AND pv.pkg_id = pkg.pkg_id   "
57
	
58
 
58
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
59
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
59
	
60
 
60
	oPackageDetails.RemoveAll 
61
   oPackageDetails.RemoveAll
61
	
62
 
62
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
63
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
63
		oPackageDetails("pkg_name") = rsQry("pkg_name")
64
      oPackageDetails("pkg_name") = rsQry("pkg_name")
64
		oPackageDetails("pkg_version") = rsQry("pkg_version")
65
      oPackageDetails("pkg_version") = rsQry("pkg_version")
65
		oPackageDetails("v_ext") = rsQry("v_ext")
66
      oPackageDetails("v_ext") = rsQry("v_ext")
66
		oPackageDetails("pv_description") = rsQry("pv_description")
67
      oPackageDetails("pv_description") = rsQry("pv_description")
67
		oPackageDetails("pv_overview") = rsQry("pv_overview")
68
      oPackageDetails("pv_overview") = rsQry("pv_overview")
68
		oPackageDetails("src_path") = rsQry("src_path")
69
      oPackageDetails("src_path") = rsQry("src_path")
69
		oPackageDetails("pkg_label") = rsQry("pkg_label")
70
      oPackageDetails("pkg_label") = rsQry("pkg_label")
70
		oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
71
      oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
71
		
72
 
72
	End If
73
   End If
73
	
74
 
74
	rsQry.Close()
75
   rsQry.Close()
75
	Set rsQry = Nothing
76
   Set rsQry = Nothing
76
End Sub
77
End Sub
77
'----------------------------------------------------------------------------------------------------------------------------------------
78
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
79
Function SQL_Build_Std ( nPv_id )
-
 
80
   SQL_Build_Std = _
-
 
81
   " SELECT bs.bs_name"&_
-
 
82
   "  FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,"&_
-
 
83
   "       RELEASE_MANAGER.BUILD_STANDARDS bs"&_
-
 
84
   " WHERE pv.PV_ID = "& nPv_id &_
-
 
85
   "   AND pv.BS_ID = bs.BS_ID "
-
 
86
End Function
-
 
87
'----------------------------------------------------------------------------------------------------------------------------------------
78
Function SQL_Build_Env ( nPv_id )
88
Function SQL_Build_Env ( nPv_id )
79
	SQL_Build_Env = _
89
   SQL_Build_Env = _
80
	" SELECT be.*"&_
90
   " SELECT bm.bm_name"&_
81
	"  FROM RELEASE_MANAGER.BUILD_ENVIRONMENTS be,"&_
91
   "  FROM  RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi,"&_
82
	"	   RELEASE_MANAGER.PACKAGE_BUILD_ENV pbe"&_
92
   "        RELEASE_MANAGER.BUILD_MACHINES bm"&_
83
	" WHERE pbe.PV_ID = "& nPv_id &_
93
   " WHERE pbi.PV_ID = "& nPv_id &_
84
	"   AND pbe.BE_ID = be.BE_ID "&_
94
   "   AND pbi.BM_ID = bm.BM_ID "&_
85
	" ORDER BY UPPER(be.BE_NAME) "
95
   " ORDER BY UPPER(bm.BM_NAME) "
86
End Function
96
End Function
87
'----------------------------------------------------------------------------------------------------------------------------------------
97
'----------------------------------------------------------------------------------------------------------------------------------------
88
Function SQL_Modules (nPv_idList)
98
Function SQL_Modules (nPv_idList)
89
	SQL_Modules	= _
99
   SQL_Modules   = _
90
	"SELECT DISTINCT"&_
100
   "SELECT DISTINCT"&_
91
 	"   qry.DPV_ID "&_
101
    "   qry.DPV_ID "&_
92
    " FROM ("&_
102
    " FROM ("&_
93
 	"		SELECT dep.*,"&_
103
    "      SELECT dep.*,"&_
94
 	"			   LEVEL AS LEVEL_NUM"&_
104
    "             LEVEL AS LEVEL_NUM"&_
95
 	"		  FROM PACKAGE_DEPENDENCIES dep"&_
105
    "        FROM PACKAGE_DEPENDENCIES dep"&_
96
 	"		START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_
106
    "      START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_
97
 	"		CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
107
    "      CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
98
 	"	) qry,"&_
108
    "   ) qry,"&_
99
 	"	PACKAGES pkg,"&_
109
    "   PACKAGES pkg,"&_
100
	"	PACKAGE_VERSIONS pv"&_
110
   "   PACKAGE_VERSIONS pv"&_
101
 	" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
111
    " WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
102
End	Function
112
End   Function
103
'----------------------------------------------------------------------------------------------------------------------------------------
113
'----------------------------------------------------------------------------------------------------------------------------------------
104
Function SQL_Build_Dependencies ( nPv_id )
114
Function SQL_Build_Dependencies ( nPv_id )
105
	SQL_Build_Dependencies = _
115
   SQL_Build_Dependencies = _
106
	" SELECT dpkg.pkg_name, dpv.pkg_version"&_
116
   " SELECT dpkg.pkg_name, dpv.pkg_version"&_
107
	"	  FROM PACKAGE_DEPENDENCIES dep,"&_
117
   "     FROM PACKAGE_DEPENDENCIES dep,"&_
108
	"	  	   PACKAGES dpkg,"&_
118
   "          PACKAGES dpkg,"&_
109
	"		   PACKAGE_VERSIONS dpv"&_
119
   "          PACKAGE_VERSIONS dpv"&_
110
	"	 WHERE dep.pv_id = "& nPv_id &_
120
   "    WHERE dep.pv_id = "& nPv_id &_
111
	"	   AND dep.DPV_ID = dpv.pv_id"&_
121
   "      AND dep.DPV_ID = dpv.pv_id"&_
112
	"	   AND dpv.pkg_id = dpkg.pkg_id	"&_   
122
   "      AND dpv.pkg_id = dpkg.pkg_id   "&_
113
	"	ORDER BY UPPER(dpkg.pkg_name) "
123
   "   ORDER BY UPPER(dpkg.pkg_name) "
114
End Function
124
End Function
115
'----------------------------------------------------------------------------------------------------------------------------------------
125
'----------------------------------------------------------------------------------------------------------------------------------------
116
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
126
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
117
	Dim rsQry, query
127
   Dim rsQry, query
118
	
128
 
119
	
129
 
120
	
130
 
121
	query = _
131
   query = _
122
	" SELECT qry.prod_id"&_
132
   " SELECT qry.prod_id"&_
123
	"  FROM ("&_
133
   "  FROM ("&_
124
	"			SELECT DISTINCT"&_ 
134
   "         SELECT DISTINCT"&_
125
   	"    		osc.PROD_ID,"&_
135
   "          osc.PROD_ID,"&_
126
	"			   pkg.pkg_name,"&_
136
   "            pkg.pkg_name,"&_
127
	"   		pv.pkg_version,"&_
137
   "         pv.pkg_version,"&_
128
	"   		1	as	seq_num"&_
138
   "         1   as   seq_num"&_
129
  	"			FROM bom_contents bc,"&_ 
139
   "         FROM bom_contents bc,"&_
130
   	"   		operating_systems os, "&_
140
   "         operating_systems os, "&_
131
    "  		 os_contents osc,"&_
141
   "         os_contents osc,"&_
132
	" 		  PACKAGES pkg,"&_
142
   "         PACKAGES pkg,"&_
133
  	"  		 PACKAGE_VERSIONS pv,"&_
143
   "         PACKAGE_VERSIONS pv,"&_
134
	"  		 PRODUCT_DETAILS pd"&_
144
   "         PRODUCT_DETAILS pd"&_
135
	"			 WHERE osc.os_id = os.os_id "&_
145
   "          WHERE osc.os_id = os.os_id "&_
136
   	"			AND os.node_id = bc.node_id"&_
146
   "         AND os.node_id = bc.node_id"&_
137
   	"			AND bc.bom_id =	"&	nBom_id &_
147
   "         AND bc.bom_id =   "&   nBom_id &_
138
   	"			AND pd.PROD_ID (+) = osc.PROD_ID"&_
148
   "         AND pd.PROD_ID (+) = osc.PROD_ID"&_
139
   	"			AND pv.pkg_id = pkg.pkg_id"&_
149
   "         AND pv.pkg_id = pkg.pkg_id"&_
140
   	"			AND osc.prod_id = pv.pv_id "&_
150
   "         AND osc.prod_id = pv.pv_id "&_
141
   	"			AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_	
151
   "         AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
142
	"		UNION   "&_
152
   "      UNION   "&_
143
	"		SELECT DISTINCT bec.prod_id,  pkg.pkg_name, pkg_version, 2	as	seq_num"&_
153
   "      SELECT DISTINCT bec.prod_id,  pkg.pkg_name, pkg_version, 2   as   seq_num"&_
144
    "       FROM boms bm,"&_
154
   "       FROM boms bm,"&_
145
    "            bom_contents bc,"&_
155
   "            bom_contents bc,"&_
146
    "            network_nodes nn,"&_
156
   "            network_nodes nn,"&_
147
    "            operating_systems os,"&_
157
   "            operating_systems os,"&_
148
    "            os_base_env obe,"&_
158
   "            os_base_env obe,"&_
149
    "            base_env_contents bec,"&_
159
   "            base_env_contents bec,"&_
150
    "            PACKAGES pkg,"&_
160
   "            PACKAGES pkg,"&_
151
    "            package_versions pv,"&_
161
   "            package_versions pv,"&_
152
    "            base_env be,"&_
162
   "            base_env be,"&_
153
    "            bos_types bt,"&_
163
   "            bos_types bt,"&_
154
	"            PRODUCT_DETAILS pd"&_
164
   "            PRODUCT_DETAILS pd"&_
155
    "      WHERE bm.bom_id =	"&	nBom_id	&_
165
   "      WHERE bm.bom_id =   "&   nBom_id   &_
156
    "        AND bm.bom_id = bc.bom_id"&_
166
   "        AND bm.bom_id = bc.bom_id"&_
157
    "        AND nn.node_id = bc.node_id"&_
167
   "        AND nn.node_id = bc.node_id"&_
158
    "        AND os.node_id = nn.node_id"&_
168
   "        AND os.node_id = nn.node_id"&_
159
    "        AND obe.os_id = os.os_id"&_
169
   "        AND obe.os_id = os.os_id"&_
160
	"		AND pd.PROD_ID (+) = bec.PROD_ID"&_
170
   "      AND pd.PROD_ID (+) = bec.PROD_ID"&_
161
   	"		AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_		
171
   "      AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
162
    "        AND bec.base_env_id = obe.base_env_id"&_
172
   "        AND bec.base_env_id = obe.base_env_id"&_
163
    "        AND bec.prod_id = pv.pv_id"&_
173
   "        AND bec.prod_id = pv.pv_id"&_
164
    "        AND pkg.pkg_id = pv.pkg_id"&_
174
   "        AND pkg.pkg_id = pv.pkg_id"&_
165
    "        AND be.base_env_id = obe.base_env_id"&_
175
   "        AND be.base_env_id = obe.base_env_id"&_
166
    "       AND bt.bos_id = be.bos_id"&_
176
   "       AND bt.bos_id = be.bos_id"&_
167
	"	   ) qry  "&_
177
   "      ) qry  "&_
168
	" ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
178
   " ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
169
	
179
 
170
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
180
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
171
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
181
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
172
		oReleaseContent( CStr( rsQry("prod_id")) ) = ""
182
      oReleaseContent( CStr( rsQry("prod_id")) ) = ""
173
		rsQry.MoveNext()
183
      rsQry.MoveNext()
174
	WEnd
184
   WEnd
175
	
185
 
176
	rsQry.Close()
186
   rsQry.Close()
177
	Set rsQry = Nothing
187
   Set rsQry = Nothing
178
End Sub
188
End Sub
179
'----------------------------------------------------------------------------------------------------------------------------------------
189
'----------------------------------------------------------------------------------------------------------------------------------------
180
 
190
 
181
%>
191
%>
182
<%
192
<%
183
'---------------------- Run Before Page ---------------------------
193
'---------------------- Run Before Page ---------------------------
184
Call GetReleaseContent ( parBom_id, objReleaseContent )
194
Call GetReleaseContent ( parBom_id, objReleaseContent )
185
 
195
 
186
Call	GetBomDetails	(parBom_id, outobjDetails)
196
Call   GetBomDetails   (parBom_id, outobjDetails)
187
outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&"	"&	outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
197
outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&"   "&   outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
188
 
198
 
189
 
199
 
190
'------------------------------------------------------------------
200
'------------------------------------------------------------------
191
%>
201
%>
192
<html>
202
<html>
Line 200... Line 210...
200
<%
210
<%
201
Set outobjDetails = Nothing
211
Set outobjDetails = Nothing
202
 
212
 
203
aReleaseContent = objReleaseContent.Keys
213
aReleaseContent = objReleaseContent.Keys
204
For Each parPv_id In aReleaseContent
214
For Each parPv_id In aReleaseContent
205
	pvIdList = pvIdList +	parPv_id	+	","
215
   pvIdList = pvIdList +   parPv_id   +   ","
206
	Call GetPackageInformation ( parPv_id, objPackageDetails )
216
   Call GetPackageInformation ( parPv_id, objPackageDetails )
-
 
217
   Response.Flush
-
 
218
   %>
207
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
219
   <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
208
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
220
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
209
					  <tr>
221
      <tr>
210
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
222
         <td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
211
					  </tr>
223
      </tr>
212
					</table>
224
   </table>
213
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
225
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
214
					  <tr> 
226
      <tr>
215
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
227
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
216
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
228
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
217
		              </tr>
229
      </tr>
218
		              <tr>
230
      <tr>
219
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
231
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
220
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
232
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
221
		              </tr>
233
      </tr>
222
					  <tr> 
234
      <tr>
223
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
235
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
224
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
236
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
225
		              </tr>
237
      </tr>
226
					  <tr> 
238
      <tr>
227
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
239
         <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
228
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
240
         <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
229
		              </tr>
241
      </tr>
230
		              <tr> 
242
      <tr>
231
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
243
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
232
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
244
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
233
		              </tr>
245
      </tr>
234
					  <tr> 
246
      <tr>
235
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
247
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
236
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
248
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
237
		              </tr>
249
      </tr>
238
					  <tr> 
250
      <tr>
239
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
251
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
240
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
252
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
241
						<%
253
            <%
242
						'--- Get Build Env Details
254
            '--- Get Build Env Details
-
 
255
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Std ( parPv_id ), cint(0))
-
 
256
            If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
-
 
257
               BldStd = rsQry("bs_name")
-
 
258
               rsQry.Close
-
 
259
 
243
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
260
               Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
244
						%>
261
               %>
245
						  <ul>
262
               <ul>
246
						  <%
263
                  <%
247
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
264
                  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
248
						  %>
265
                     %>
249
                          <li><%=rsQry("be_name")%></li>
266
                     <li><%=BldStd%>, <%=rsQry("bm_name")%></li>
250
						  <%rsQry.MoveNext
267
                     <%rsQry.MoveNext
251
						  WEnd
268
                  WEnd
252
						  %>
269
                  %>
253
                          </ul>
270
               </ul>
-
 
271
            <%End If%>
254
					   </td>
272
         </td>
255
		              </tr>
273
      </tr>
256
					  <tr> 
274
      <tr>
257
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
275
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
258
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
276
         <td bgcolor="#FFFFFF" class="sublbox_txt">
259
						<%
277
            <%
260
						'--- Get Build Dependencies Details
278
            '--- Get Build Dependencies Details
261
						
279
 
262
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
280
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
263
						%>
281
            %>
264
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
282
            <table width="100%"  cellspacing="0" cellpadding="2" border="1">
265
						  <tr>
283
               <tr>
266
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
284
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
267
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
285
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
268
                          </tr>
286
               </tr>
269
						  <%If rsQry.RecordCount < 1 Then%>
287
               <%If rsQry.RecordCount < 1 Then%>
270
						  <tr>
288
                  <tr>
271
                            <td nowrap class="sublbox_txt">No Dependencies</td>
289
                     <td nowrap class="sublbox_txt">No Dependencies</td>
272
							<td nowrap class="sublbox_txt"></td>
290
                     <td nowrap class="sublbox_txt"></td>
273
                          </tr>
291
                  </tr>
274
						  <%End If%>
292
               <%End If%>
275
						  <%
293
               <%
276
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
294
               While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
277
						  %>
295
                  %>
278
                          <tr>
296
                  <tr>
279
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
297
                     <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
280
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
298
                     <td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
281
                          </tr>
299
                  </tr>
282
						  <%rsQry.MoveNext
300
                  <%rsQry.MoveNext
283
						  WEnd
301
               WEnd
284
						  %>
302
               %>
285
                        </table>
303
            </table>
286
					   </td>
304
         </td>
287
		              </tr>
305
      </tr>
288
		            </table>
306
   </table>
289
		            <br><br>
307
   <br><br>
290
<%
308
   <%
291
	'Exit For
309
'Exit For
292
Next
310
Next
293
pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)
311
pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)
294
Set	rsTemp	=	OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))
312
Set   rsTemp   =   OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))
295
 
313
 
296
 
314
 
297
%>		
315
%>
298
<div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>			
316
<div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>
299
<%
317
<%
300
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
318
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
301
dpv_id = rsTemp("dpv_id")
319
   dpv_id = rsTemp("dpv_id")
302
Call GetPackageInformation ( dpv_id, objPackageDetails )
320
   Call GetPackageInformation ( dpv_id, objPackageDetails )
-
 
321
   Response.Flush
-
 
322
   %>
303
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
323
   <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
304
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
324
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
305
					  <tr>
325
      <tr>
306
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
326
         <td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
307
					  </tr>
327
      </tr>
308
					</table>
328
   </table>
309
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
329
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
310
					  <tr> 
330
      <tr>
311
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
331
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
312
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
332
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
313
		              </tr>
333
      </tr>
314
		              <tr>
334
      <tr>
315
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
335
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
316
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
336
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
317
		              </tr>
337
      </tr>
318
					  <tr> 
338
      <tr>
319
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
339
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
320
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
340
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
321
		              </tr>
341
      </tr>
322
					  <tr> 
342
      <tr>
323
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
343
         <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
324
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
344
         <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
325
		              </tr>
345
      </tr>
326
		              <tr> 
346
      <tr>
327
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
347
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
328
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
348
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
329
		              </tr>
349
      </tr>
330
					  <tr> 
350
      <tr>
331
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
351
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
332
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
352
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
333
		              </tr>
353
      </tr>
334
					  <tr> 
354
      <tr>
335
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
355
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
336
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
356
         <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
337
						<%
357
            <%
338
						'--- Get Build Env Details
358
            '--- Get Build Env Details
339
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))
359
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))
340
						%>
360
            %>
341
						  <ul>
361
            <ul>
342
						  <%
362
               <%
343
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
363
               While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
344
						  %>
364
                  %>
345
                          <li><%=rsQry("be_name")%></li>
365
                  <li><%=rsQry("be_name")%></li>
346
						  <%rsQry.MoveNext
366
                  <%rsQry.MoveNext
347
						  WEnd
367
               WEnd
348
						  %>
368
               %>
349
                          </ul>
369
            </ul>
350
					   </td>
370
         </td>
351
		              </tr>
371
      </tr>
352
					  <tr> 
372
      <tr>
353
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
373
         <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
354
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
374
         <td bgcolor="#FFFFFF" class="sublbox_txt">
355
						<%
375
            <%
356
						'--- Get Build Dependencies Details
376
            '--- Get Build Dependencies Details
357
						
-
 
358
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))
-
 
359
						%>
-
 
360
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
-
 
361
						  <tr>
-
 
362
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
-
 
363
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
-
 
364
                          </tr>
-
 
365
						  <%If rsQry.RecordCount < 1 Then%>
-
 
366
						  <tr>
-
 
367
                            <td nowrap class="sublbox_txt">No Dependencies</td>
-
 
368
							<td nowrap class="sublbox_txt"></td>
-
 
369
                          </tr>
-
 
370
						  <%End If%>
-
 
371
						  <%
-
 
372
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
373
						  %>
-
 
374
                          <tr>
-
 
375
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
-
 
376
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
-
 
377
                          </tr>
-
 
378
						  <%rsQry.MoveNext
-
 
379
						  WEnd
-
 
380
						  %>
-
 
381
                        </table>
-
 
382
					   </td>
-
 
383
		              </tr>
-
 
384
		            </table>
-
 
385
		            <br><br>
-
 
386
 
377
 
-
 
378
            Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))
-
 
379
            %>
-
 
380
            <table width="100%"  cellspacing="0" cellpadding="2" border="1">
-
 
381
               <tr>
-
 
382
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
-
 
383
                  <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
-
 
384
               </tr>
-
 
385
               <%If rsQry.RecordCount < 1 Then%>
-
 
386
                  <tr>
-
 
387
                     <td nowrap class="sublbox_txt">No Dependencies</td>
-
 
388
                     <td nowrap class="sublbox_txt"></td>
-
 
389
                  </tr>
-
 
390
               <%End If%>
-
 
391
               <%
-
 
392
               While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
393
                  %>
-
 
394
                  <tr>
-
 
395
                     <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
-
 
396
                     <td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
-
 
397
                  </tr>
-
 
398
                  <%rsQry.MoveNext
-
 
399
               WEnd
-
 
400
               %>
-
 
401
            </table>
-
 
402
         </td>
-
 
403
      </tr>
-
 
404
   </table>
-
 
405
   <br><br>
387
<%
406
   <%
388
rsTemp.MoveNext
407
   rsTemp.MoveNext
389
WEnd
408
WEnd
390
 
409
 
391
rsTemp.Close()
410
rsTemp.Close()
392
Set rsTemp = Nothing
411
Set rsTemp = Nothing
393
%>
412
%>