<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' Edit Personal View
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim parView_id
Dim viewdefHash ' Hash of view settings
Dim viewinfoHash ' Hash of view details
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set viewdefHash = CreateObject("Scripting.Dictionary")
Set viewinfoHash = CreateObject("Scripting.Dictionary")
parView_id = QStrPar("FRview_id")
'----------------------------------------------
%>
<%
Function Get_All_Pkg_Names
Get_All_Pkg_Names = " SELECT pkg_id, pkg_name, UPPER(pkg_name) AS name_order FROM packages WHERE pkg_id > 0 ORDER BY name_order ASC"
End Function
Sub Populate_viewdefHash ( NNview_id, HHviewdefHash )
Dim rsTemp, Query_String
Query_String = _
" SELECT pkg_id FROM view_def WHERE view_id = "& NNview_id
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
HHviewdefHash.Add CStr(rsTemp.Fields("pkg_id")), ""
rsTemp.MoveNext
WEnd
rsTemp.Close
Set rsTemp = nothing
End Sub
Sub Populate_viewinfoHash ( NNview_id, HHviewinfoHash )
Dim rsTemp, Query_String
Query_String = _
" SELECT * FROM views WHERE view_id = "& NNview_id
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
HHviewinfoHash.Add "view_name", CStr(rsTemp.Fields("view_name"))
HHviewinfoHash.Add "public_read", CStr(rsTemp.Fields("public_read"))
End If
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'------------------------- MAIN LINE ------------------------
'Process submition
If CBool(QStrPar("action")) Then
Call OpenInParentWindow ("_edit_personal_view.asp?FRview_id="& parView_id &"&FRviewname="& QStrPar("FRviewname") &"&FRpkginc="& Request("FRpkginc") &"&FRpubread="& QStrPar("FRpubread") )
Call CloseWindow
End If
Call Populate_viewdefHash ( parView_id, viewdefHash )
Call Populate_viewinfoHash ( parView_id, viewinfoHash )
%>
Release Manager