Subversion Repositories DevTools

<%
'===================================================================
'                                                       Role Common
'===================================================================
%>
<!--#include file="../class/classTemplateManager.asp"-->
<!--#include file="../class/classTabControl.asp"-->
<!--#include file="../class/classActionButtonControl.asp"-->
<!--#include file="../class/classRepeater.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim parApp_id
Dim parRole_id
Dim objRoleCollector
Dim objBtnControl
Dim aTabBtnsDef
Dim objRepeater
'------------ CONSTANTS DECLARATION -----------
Const PARENT_TITLE = "Role"
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_CONTROL = "<img src='images/i_control.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_CONTROL_LRG = "<img src='images/i_control_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_ROLE_LRG = "<img src='images/i_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_SPEC_ROLE_LRG = "<img src='images/i_spec_role_lrg.gif' width='13' height='18' hspace='4' border='0' align='absmiddle'>"
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_DATA_TABLE = "<img src='images/i_data_table.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is ON)'>"
Const LIMG_DATA_TABLE_OFF = "<img src='images/i_data_table_off.gif' hspace='2' border='0' align='absmiddle' title='See this Control Data Filter (Filter is OFF)'>"
Const LIMG_EDIT = "<img src='images/i_edit.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_REMOVE = "<img src='images/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
'------------ VARIABLE INIT -------------------
parRole_id = Request("role_id")
parApp_id = Request("app_id")
Set objBtnControl = New ActionButtonControl
Set objRepeater = New Repeater
Set objRoleCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ("role_id")
objPMod.PersistInQryString ("app_id")
objPMod.PersistInQryString ("tree")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetRoleDetails ( nRole_id, nApp_id, ByRef outobjDetails )
        Dim rsQry, query
        query = "SELECT *  FROM   ROLES  WHERE role_id = "& nRole_id &" AND app_id = "& nApp_id
        
        Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
        
        If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
                outobjDetails.Item ("role_id")   = rsQry("role_id")
                outobjDetails.Item ("role_name") = rsQry("role_name")
                outobjDetails.Item ("is_role_variation") = rsQry("is_role_variation")
                
        Else
                Err.Raise 8, "Sub GetRoleDetails", "Empty record set returned. nRole_id="& nRole_id &", nApp_id="& nApp_id
                
        End If
        
        rsQry.Close
        Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
        If IsNull(objCollector.Item("is_role_variation")) Then
                Response.write LIMG_ROLE_LRG
        Else
                Response.write LIMG_SPEC_ROLE_LRG
        End If
        Response.write "<b>"& objCollector.Item("role_name") &"</b>"
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>