<%
'===================================================================
' Admin Projects Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objTabControl
Dim objTemplateManager
Dim objProjCollector
Dim objBtnControl
Dim objForm
Dim aTabBtnsDef
Dim aAdminPersistList
Dim objFormater
'------------ CONSTANTS DECLARATION -----------
Const LIMG_EDIT = "
"
Const LIMG_REMOVE = "
"
Const LIMG_NEW_ENTRY = "
"
Const LIMG_NEW_ENTRY_OFF = "
"
Const LIMG_ROW_SUBMIT = ""
Const LIMG_ROW_CANCEL = "
"
Const LIMG_POINTER = "
"
Const LIMG_UNTICK = "
"
Const LIMG_TICK = "
"
'------------ VARIABLE INIT -------------------
parProj_id = Request("proj_id")
Set objPMod = New PersistanceModule
Set objForm = New ValidationControl
Set objBtnControl = New ActionButtonControl
Set objProjCollector = CreateObject("Scripting.Dictionary")
Set objFormater = New Formater
aAdminPersistList = Array( "proj_id","rfile" )
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ( aAdminPersistList )
Call GetProjectCollection ( parProj_id, objProjCollector )
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetProjectCollection ( nProj_id, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
query = _
" SELECT pr.*"&_
" FROM DM_PROJECTS pr"&_
" WHERE pr.PROJ_ID = :PROJ_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("proj_id") = rsQry("proj_id")
outobjDetails.Item ("proj_name") = rsQry("proj_name")
outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
outobjDetails.Item ("is_hidden") = rsQry("is_hidden")
'Else
' Err.Raise 8, "Sub GetProjectCollection", "Empty record set returned. nProj_id="& nProj_id
End If
OraDatabase.Parameters.Remove "PROJ_ID"
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Function GetTick ( cInput )
If cInput = enumDB_YES Then
GetTick = LIMG_TICK
Else
GetTick = LIMG_UNTICK
End If
End Function
'-----------------------------------------------------------------------------------------------------------------
%>