<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| MEMBERS | '| NOTIFICATIONS - Packages Followed | '===================================================== %> <% 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 parProjId '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProjId = Request("proj_id") objPMod.PersistInQryString("proj_id") If parProjId = "" then parProjId = 0 '---------------------------------------------- Function Get_My_Interest_Packages ( NNuser_id ) Get_My_Interest_Packages = _ " SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PROJECTS PRJ WHERE USER_ID = "& NNuser_id &""&_ " AND PI.PKG_ID = PKG.PKG_ID AND PI.PROJ_ID = PRJ.PROJ_ID order by PRJ.PROJ_ID, pkg.pkg_name" End Function '-------------------------------------------------------------------------------------------------------------------------- Sub DeletePackageInterestOwner (projId, pkgId) On Error Resume Next OraDatabase.Parameters.Add "PROJ_ID", projId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------- If Request("btn") = "Remove" Then If objForm.IsValidOnPostBack Then Dim txt,posComma, posUnderscore, projId, pkgId, value txt = Mid(Request("pkg_id_list"), 1, len(Request("pkg_id_list"))-2) posComma = InStr(txt, ",") While posComma <> 0 'Response.Write(txt) value = Mid(txt, 1, posComma-1) posUnderscore = Instr(value, "_") projId = Mid(value, 1, posUnderscore - 1) pkgId = Mid(value, posUnderscore + 1, posComma-1) Call DeletePackageInterestOwner(projId, pkgId) txt = Mid(txt, posComma + 1, Len(txt)) posComma = InStr(txt, ",") Wend If posComma = 0 Then posUnderscore = Instr(txt, "_") projId = Mid(txt, 1, posUnderscore - 1) pkgId = Mid(txt, posUnderscore + 1) Call DeletePackageInterestOwner(projId, pkgId) Else End if ' --- Form is Valid --- 'Call DeleteViewOwner() If objEH.Finally Then Call OpenInWindow ( "members_pkgs_followed.asp" ) End If End If End If %> Release Manager
<%Call Member_Menu( "notifications" )%>
Notifications
<% '-- FROM START --------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName Call objFormComponent.FormStart() %> <% Call objFormComponent.FormEnd() '-- FROM END ----------------------------------------------------------- %>
   
   

You are currently interested in the following packages.
NOTE: You will be notified when the package is officially released/autobuild.

<%If parProjId > 0 Then %> <%End If%> <% Dim currProj_id currProj_id = -1 Set rsTemp = OraDatabase.DbCreateDynaset(Get_My_Interest_Packages( objAccessControl.UserId ), cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <%If CStr( currProj_id ) <> CStr(rsTemp("proj_id")) Then%> <%currProj_id = rsTemp("proj_id")%> <%End If%> <%rsTemp.MoveNext WEnd%> <%If rsTemp.RecordCount = 0 Then%> <%End If%>
Select Project <% Dim Query_String, rsQry Query_String = _ " SELECT * FROM PROJECTS order by proj_name" Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) ) Response.write "
Add Interest
Project  Package
<%=rsTemp("proj_name")%>
_<%=rsTemp("pkg_id")%>"> <%=rsTemp("pkg_name")%>
You are not interested in any packages.

<%If rsTemp.RecordCount <> 0 Then%> <%End If rsTemp.Close() set rsTemp = nothing %> ">