Subversion Repositories DevTools

<%
'===================================================================
'                                               Access Control Project
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
objAccessControl.objOraSession = OraSession     ' Create database link for orasession
objAccessControl.objOraDatabase = OraDatabase   ' Create database link for oradatabase
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------
Sub ProjectCheck ()
        Dim proj_id
        
        If NOT objAccessControl.UserLogedIn Then  Exit Sub      ' Exit if not logged in
        
        If NOT objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")   OR   NOT objAccessControl.IsDataVisible ("PROJECTS", DB_PROJ_ID, "EditProjects") Then
                If NOT isPopupWindow Then
                        Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
                Else
                        Call OpenInParentWindow ( "Login.asp?message=4&"& objPMod.ComposeURL() )
                        Call CloseWindow()
                End If
                
        End If
        
        
End Sub
'-----------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------

'--- Project Check ---
Call ProjectCheck ()

'----------------------------------------------
%>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>