<%
'===================================================================
' Product Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objTabControl
Dim objTemplateManager
Dim objProdCollector
Dim objBomCollector
Dim objBtnControl
Dim objFormater
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const LIMG_PRODUCT = "
"
Const LIMG_PROCESS = "
"
Const LIMG_EDIT = "
"
Const LIMG_REMOVE = "
"
Const LIMG_EMAIL = "
"
Const LIMG_UPDATED = "
"
Const LIMG_ADDED = "
"
Const LIMG_REMOVED = "
"
'------------ VARIABLE INIT -------------------
Set objFormater = New Formater
Set objCrumbs = New Crumbs
Set objPMod = New PersistanceModule
Set objProdCollector = CreateObject("Scripting.Dictionary")
Set objBomCollector = CreateObject("Scripting.Dictionary")
Set objBtnControl = New ActionButtonControl
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
Call InitialiseCrumbs ( objCrumbs )
objPMod.PersistInCookie ("bom_browser")
objPMod.PersistInCookie ("user_bar")
objPMod.PersistInQryString ( aPersistList(enumPAR_BOM_ID) )
objPMod.PersistInQryString ( aPersistList(enumPAR_OS_ID) )
objPMod.PersistInQryString ( aPersistList(enumPAR_PROD_ID) )
Call GetBomDetails ( dbPARbom_id, objBomCollector )
Call GetProdDetails ( dbPARprod_id, objProdCollector )
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetProdDetails ( nProd_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "PROD_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER
'-- Get Product Details --
query = _
" SELECT pv.pv_id, "&_
" pkg.pkg_name,"&_
" pv.pkg_version,"&_
" pv.pkg_id,"&_
" pv.v_ext,"&_
" pv.last_pv_id,"&_
" pv.DLOCKED, "&_
" pd.IS_REJECTED"&_
" FROM PACKAGES pkg, PACKAGE_VERSIONS pv, "&_
" PRODUCT_DETAILS pd"&_
" WHERE pv.pkg_id = pkg.pkg_id "&_
" AND pd.PROD_ID (+) = pv.PV_ID"&_
" AND pv.pv_id = :PROD_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("pv_id") = rsQry("pv_id")
outobjDetails.Item ("pkg_id") = rsQry("pkg_id")
outobjDetails.Item ("pkg_name") = rsQry("pkg_name")
outobjDetails.Item ("pkg_version") = rsQry("pkg_version")
outobjDetails.Item ("last_pv_id") = rsQry("last_pv_id")
outobjDetails.Item ("v_ext") = rsQry("v_ext")
outobjDetails.Item ("dlocked") = rsQry("dlocked")
outobjDetails.Item ("is_rejected") = rsQry("is_rejected")
Else
Err.Raise 8, "Sub GetProdDetails", "Empty record set returned. nProd_id="& nProd_id
End If
'-- Get Rtag_id --
OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseManagerVtreeRtagId.sql") , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
Else
Err.Raise 8, "Sub GetProdDetails", "Empty record set returned. dbPARbranch_id="& dbPARbranch_id
End If
OraDatabase.Parameters.Remove "PROD_ID"
OraDatabase.Parameters.Remove "BRANCH_ID"
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
Response.write ""& objCollector.Item("pkg_name") &" "& objCollector.Item("pkg_version") &""
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>