<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| Edit/View Build Configuration |
'| |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<% '------------ ACCESS CONTROL ------------------ %>
<%
'------------ Variable Definition -------------
Dim parRtagId
Dim pkgCount : pkgCount= 0
Dim pkgTestCount : pkgTestCount= 0
Dim testCount: testCount = 0
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parRtagId = Request("rtag_id")
objPMod.PersistInQryString("rtag_id")
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'
' Generate table data as JSON
' Could generate via AJAX call too, but for the amount of data in the table
'
Sub GenerateData
Dim rsQry
OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("release_stats.sql"), 0 )
OraDatabase.Parameters.Remove "RTAG_ID"
Response.Write "" + vbCRLF
rsQry.close
Set rsQry = nothing
End Sub
'----------------------------------------------------
Sub LeftPanelContent
%>
<%
End Sub
Sub MainPanelContent
%>
Package Unit Tests
Package
Version
Unit Tests
Lines of Code
Build Duration
Build Date
Deployable
View Name
SDK
Summary
Total Packages
Total Packages with Tests
Total Unit Tests
Total Lines of Code
<%
End Sub
%>
Release Manager
<%bJqueryDataTables = TRUE%>
<%Call GenerateData%>
