<%
'===================================================================
'   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 ()
%>