<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| MEMBERS |
'| NOTIFICATIONS |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim parPv_list
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
If Request("pv_list") <> "" Then
parPv_list = Request("pv_list")
Else
parPv_list = -1
End If
'----------------------------------------------
%>
<%
Function Get_Packages ( NNpv_list )
Get_Packages = _
" SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, rt.rtag_name "&_
" FROM packages pkg,"&_
" package_versions pv, "&_
" release_content rc,"&_
" release_tags rt,"&_
" projects proj"&_
" WHERE pv.pkg_id = pkg.pkg_id"&_
" AND rc.pv_id = pv.pv_id"&_
" AND rc.rtag_id = rt.rtag_id"&_
" AND rt.proj_id = proj.proj_id "&_
" AND rt.official not in ( 'A', 'P', 'Y', 'O')"&_
" AND pv.pv_id IN ( "& NNpv_list &" )"&_
" ORDER BY pv.pv_id, UPPER(pkg.pkg_name), UPPER(proj.proj_name) "
End Function
Function Users_List ( )
Users_List = _
" SELECT usr.user_id, usr.full_name"&_
" FROM users usr"&_
" WHERE usr.is_disabled IS NULL"&_
" ORDER BY UPPER(usr.full_name)"
End Function
Sub Update_Owner ( NNpv_list, NNown_id )
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
" UPDATE package_versions"&_
" SET owner_id = "& NNown_id &_
" WHERE pv_id IN ( "& NNpv_list &" )"
objEH.CatchORA ( OraSession )
End Sub
%>
<%
'Process submition
If CBool(QStrPar("action")) Then
Call Update_Owner ( parPv_list, Request("own_id") )
Call Destroy_All_Objects
Response.Redirect ( "members_notifications.asp" )
Else
'------------ Action Requirements -------------------
If NOT objAccessControl.UserLogedIn Then
' NOT AUTHENTICATED
Call Destroy_All_Objects
Response.Redirect("login.asp?rfile=members_notifications.asp")
ElseIf parPv_list = -1 Then
' missing pkg_list
Call Destroy_All_Objects
Response.Redirect ( "members_notifications.asp" )
End If
End If
%>
Release Manager
