Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| INDEX | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parMsg Dim msgScript Dim userId Dim rsQry Dim rsLastRelease Dim AutomatedPackages, TotalPackages Dim Query_String Dim Auto '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parMsg = QStrPar("msg") ' Messages '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- Function Get_Messages Get_Messages = _ " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2" End Function '----------------------------------------------------------------------------------------------------------------------- Function Get_DashBoard (nProjId) Get_DashBoard = _ " SELECT * FROM DASH_BOARD db, PROJECTS prj, RELEASE_TAGS rt where prj.proj_id = rt.proj_id and rt.rtag_id = db.rtag_id "&_ " and db.proj_id = "&nProjId&" order by last_build_time desc" End Function '----------------------------------------------------------------------------------------------------------------------- %> Release Manager

<%If objAccessControl.UserLogedIn Then%>

<%End If%>

	<%Call Print_TopRight_Menu_ROW1 ()%>

<% Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0)) If rsTemp.RecordCount < 1 Then Response.write "" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) If rsTemp.Fields("due_date") <> "" Then msgScript = "schedule" Else msgScript = "memo" End If %> <% rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>

Message Board
Due Date
No messages at this time.
<%If rsTemp.Fields("due_date") <> "" Then%> ','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"> <%=EuroDate(rsTemp.Fields("due_date"))%> <%Else%> <%End If%>	','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, " ")%>

<% If objAccessControl.UserLogedIn Then OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0)) OraDatabase.Parameters.Remove "USER_ID" userId = rsTemp("user_id") %> <% rsTemp.Close Set rsTemp = nothing End If%>

Work In Progress
User	Package Count
<%=rsTemp("full_name")%>	<%=rsTemp("counter")%>	">">
<%=enumLOADING%>

Release Metrics

<% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0)) While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0)) If rsTemp.RecordCount > 0 Then Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2) End If %> <%If rsTemp.RecordCount > 0 Then%> <%Else%> <%End If%> <% OraDatabase.Parameters.Remove "PROJ_ID" rsTemp.Close() Set rsTemp = Nothing rsQry.MoveNext Wend rsQry.Close() Set rsQry = Nothing %>

Project	Last Autobuilt Release	Last Autobuild Completed	Autobuilt Packages
" style="display:block;"> ', '<%=rsQry("proj_id")%>');"><%=rsQry("proj_name")%> " style="display:none;"> ', 'IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>', 'IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>');"><%=rsQry("proj_name")%>	<%=rsTemp("rtag_name")%>	<%=rsTemp("last_build_time")%>	<%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)
" style="display:none;"><%=enumLOADING%>

<%If NOT objAccessControl.UserLogedIn Then%>

Members

Username

Password

New Members

Forgot your password?

<%Else%>

G'day <%=Format_Full_Name( objAccessControl.FullName )%>!

Options below are shortcuts to your account.

<%Call Member_Menu( empty )%> <%End If%>