<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| MEMBERS | '| NOTIFICATIONS - My Packages | '===================================================== %> <% 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 NoSpace( txt ) NoSpace = Replace( txt, " ", " ") End Function Function Get_My_Packages ( NNuser_id ) Get_My_Packages = _ " SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, pkg.pkg_id "&_ " 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 = 'N'"&_ " AND pv.owner_id = "& NNuser_id &_ " ORDER BY UPPER(pkg.pkg_name),pv.pv_id, UPPER(proj.proj_name) " End Function %> Release Manager
<%Call Member_Menu( "notifications" )%> Exit
Notifications
   
   

You are currently the owner of the following packages.
NOTE: You will be notified when your package is ready to be build.

<% Dim currPv_id currPv_id = -1 Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%> <%currPv_id = rsTemp("pv_id")%> <%Else%> <%End If%> <%rsTemp.MoveNext WEnd%> <%If rsTemp.RecordCount = 0 Then%> <%End If%>
Package Name and Version  Location
"> &rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=NoSpace(rsTemp("pkg_name") &" "& rsTemp("pkg_version"))%> <%=NoSpace(rsTemp("proj_name") &" > "& rsTemp("rtag_name"))%>
<%=NoSpace(rsTemp("proj_name") &" > "& rsTemp("rtag_name"))%>
You do not own any packages.

<%If rsTemp.RecordCount <> 0 Then%> <%End If%>

 
<% Call Destroy_All_Objects %>