Subversion Repositories DevTools

Rev

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

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