Subversion Repositories DevTools

<%
'===================================================================
'   Access Action Project
'   _access_control_action_project.asp
'
'   Simimar to _access_control_project, but is only examined if there is an 'action' request
'===================================================================
%>
<%
'------------ 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 Request("action") <> "" Then 
                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 If
End Sub
'------------ RUN BEFORE CONTROL RENDER -------
'--- Project Check ---
Call ProjectCheck ()
%>