<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| MEMBERS |
'| PUBLIC VIEW |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsTemp
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Function Get_Public_Views ( NNuser_id )
Get_Public_Views = ReadFile( rootPath & "queries\public_views_list.qry" )
Get_Public_Views = Replace( Get_Public_Views, "$USER_ID$", NNuser_id)
End Function
Sub Remove_View_Settings ( NNuser_id )
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL " DELETE FROM view_settings vis WHERE vis.user_id = "& NNuser_id &" AND vis.view_id IN (SELECT vi.view_id FROM views vi WHERE vi.owner_id = 0 OR vi.public_read = 'Y')"
objEH.CatchORA ( OraSession )
End Sub
Sub Insert_View_Settings ( NNuser_id, SSpublicshow )
If SSpublicshow <> "" Then
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL " INSERT INTO view_settings"&_
" SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpublicshow &")"
objEH.CatchORA ( OraSession )
End If
End Sub
Function Owner_Format( NNuser_id, SSemail, SSname )
If CInt(NNuser_id) = 0 Then
Response.write "public"
Else
Response.write ""& SSname &""
End If
End Function
%>
<%
'--- Process submition ---
If (QStrPar("action") <> "") Then
' All mandatory parameters FOUND
Call Remove_View_Settings ( objAccessControl.UserId )
Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpublicshow") )
End If
%>
Release Manager
Exit
