Subversion Repositories DevTools

<%
'===================================================================
'                                                       Admin Projects Common
'===================================================================
%>
<!--#include file="../class/classTemplateManager.asp"-->
<!--#include file="../class/classTabControl.asp"-->
<!--#include file="../class/classActionButtonControl.asp"-->
<!--#include file="../class/classPopupMenuControl.asp"-->
<!--#include file="../class/classValidationControl.asp"-->
<!--#include file="../class/classFormater.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim objTabControl
Dim objTemplateManager
Dim objProjCollector
Dim objBtnControl
Dim objForm
Dim aTabBtnsDef
Dim aAdminPersistList
Dim objFormater
'------------ CONSTANTS DECLARATION -----------
Const LIMG_EDIT = "<img src='icons/i_edit.gif' width='16' height='16' border='0' hspace='2' title='Edit this entry'>"
Const LIMG_REMOVE = "<img src='icons/i_remove.gif' width='16' height='16' border='0' hspace='2' title='Remove this entry'>"
Const LIMG_NEW_ENTRY = "<img src='icons/btn_add.gif' width='13' height='13' border='0' title='New...' hspace='2'>"
Const LIMG_NEW_ENTRY_OFF = "<img src='icons/btn_add_off.gif' width='13' height='13' border='0' hspace='2'>"
Const LIMG_ROW_SUBMIT = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"
Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='Cancel'>"
Const LIMG_POINTER = "<img src='icons/i_pointer.gif' width='6' height='11' hspace='2' vspace='5' border='0'>"
Const LIMG_UNTICK = "<img src='icons/b_box.gif' width='13' height='13' hspace='2' vspace='4' border='0' title='Click to hide'>"
Const LIMG_TICK = "<img src='icons/b_tick.gif' width='13' height='13' hspace='2' vspace='4' border='0' title='Click to show'>"
'------------ 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
'-----------------------------------------------------------------------------------------------------------------
%>