<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0 ' always load the page, dont store
%>
<%
'=====================================================
' New Category
'=====================================================
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim NEWBase_view_id
Dim parPv_id
Dim parPPv_id
Dim parAdd_type
Dim parPkg_list
Dim parRFile
Dim parMovePkg
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
parPPv_id = Request("ppv_id")
parAdd_type = Request("add_type")
parPkg_list = Request("pkg_list")
parRFile = Request("rfile")
parMovePkg = Request("movepkg")
'----------------------------------------------
%>
<%
Function Create_New_Base_View( SSvname )
' Return new Base View
Dim SEQ_view_id
SEQ_view_id = Get_From_DUAL("SEQ_VIEW_ID.nextval")
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
" INSERT INTO views (view_id, view_name, owner_id, base_view, public_read)"&_
" VALUES ("& SEQ_view_id &", '"& UCase(SSvname) &"', 0,'Y','Y')"
objEH.CatchORA ( OraSession )
Create_New_Base_View = SEQ_view_id
End Function
Function BaseViewExists ( SSbname )
' RETURN -1 if baseview not found, else return VIEW_ID
Dim rsTemp, Query_String
Query_String = _
" SELECT view_id FROM views"&_
" WHERE view_name ='"& UCase(SSbname)&"'"&_
" AND owner_id = 0 AND base_view = 'Y' AND public_read = 'Y'"
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
If rsTemp.RecordCount > 0 Then
BaseViewExists = rsTemp.Fields("view_id")
Else
BaseViewExists = -1
End If
rsTemp.Close
Set rsTemp = nothing
End Function
%>
<%
'Process submition
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
NEWBase_view_id = BaseViewExists ( Request("base_view_name") )
If NEWBase_view_id = -1 Then
'Group not found i.e. create it
NEWBase_view_id = Create_New_Base_View( Request("base_view_name") )
End If
If parMovePkg = "true" Then
' Call is comming from dependencies page to move package to other base view
Call Update_Pkg_Category ( parRtag_id, parPv_id, NEWBase_view_id )
Call OpenInParentWindow ("dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
Call CloseWindow
Else
Call OpenInParentWindow ( parRFile &"?base_view_id="& NEWBase_view_id &_
"&pkg_list="& parPkg_list &_
"&add_type="& parAdd_type &_
"&pv_id="& parPv_id &_
"&ppv_id="& parPPv_id &_
"&rtag_id="& parRtag_id )
Call CloseWindow
End If
End If
%>
Release Manager