<%
'===================================================================
' OS Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objTabControl
Dim objTemplateManager
Dim objOsCollector
Dim objBomCollector
Dim objBtnControl
Dim objFormater
Dim objFormComponent
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const LIMG_EDIT = "
"
Const LIMG_REMOVE = "
"
Const LIMG_PRODUCT = "
"
Const LIMG_PROCESS = "
"
'------------ VARIABLE INIT -------------------
Set objCrumbs = New Crumbs
Set objPMod = New PersistanceModule
Set objOsCollector = CreateObject("Scripting.Dictionary")
Set objBomCollector = CreateObject("Scripting.Dictionary")
Set objBtnControl = New ActionButtonControl
Set objFormater = New Formater
Set objFormComponent = New FormComponent
'------------ 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) )
Call GetBomDetails ( dbPARbom_id, objBomCollector )
Call GetOsDetails ( dbPARos_id, objOsCollector )
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetOsDetails ( nOs_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "OS_ID", nOs_id, ORAPARM_INPUT, ORATYPE_NUMBER
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("OsDetails.sql") , ORADYN_DEFAULT )
OraDatabase.Parameters.Remove "OS_ID"
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("os_id") = rsQry("os_id")
outobjDetails.Item ("os_name") = rsQry("os_name")
outobjDetails.Item ("base_env_id") = rsQry("base_env_id")
outobjDetails.Item ("base_env_name") = rsQry("base_env_name")
Else
Err.Raise 8, "Sub GetOsDetails", "Empty record set returned. nOs_id="& nOs_id
End If
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
Response.write ""& objCollector.Item("os_name") &""
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>