<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' notifications.asp ' Display package notification information '===================================================== %> <% 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 rsQry Dim canDelete : canDelete = FALSE '------------ Constants Declaration ----------- '------------ Variable Init ------------------- canDelete = canActionControlInProject("AdminView") '---------------------------------------------- %>

<%Call RenderActionBar(parRtag_id,parPv_id)%> <%Call RenderStatus(parRtag_id,parPv_id)%>     <%Call Generate_Tab_Menu ( TABarray1, "Notifications", "orange" )%>   Package Notification Details <% OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( "select pi.proj_id, p.PROJ_NAME, u.user_id, u.FULL_NAME, u.USER_EMAIL, u.IS_DISABLED from PACKAGE_INTEREST pi, PROJECTS p, USERS u where pi.USER_ID = u.USER_ID and p.PROJ_ID = pi.proj_id and pkg_id = :PKG_ID order by UPPER(PROJ_NAME), UPPER(FULL_NAME)", cint(0)) %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Dim userImage : userImage = LIMG_USER_DISABLED If isNull(rsTemp("is_DISABLED")) Then userImage = LIMG_USER End If Dim DelUserImage : DelUserImage = LIMG_NDEL_DISABLED Dim btnText : btnText = "Operation not available" Dim btnClass : btnClass = "" If canDelete OR objAccessControl.UserId = rsTemp("user_id") Then DelUserImage = LIMG_NDEL btnText = "Remove notifications to this user" btnClass = "class=btn_delete" End If %> " data-proj_id="<%=rsTemp("proj_id")%>" > <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "PKG_ID" %> Who<%=Quick_Help("enabledUser")%>  Opr<%=Quick_Help("opr")%>   Project           <%=emailField(userImage & rsTemp("FULL_NAME"),rsTemp("user_email"))%> title="<%=btnText%>"><%=DelUserImage%> "><%=rsTemp("PROJ_NAME")%>