| Line 18... |
Line 18... |
| 18 |
<!--#include file="common/common_subs.asp"-->
|
18 |
<!--#include file="common/common_subs.asp"-->
|
| 19 |
<%
|
19 |
<%
|
| 20 |
'------------ Variable Definition -------------
|
20 |
'------------ Variable Definition -------------
|
| 21 |
Dim rsMetrics
|
21 |
Dim rsMetrics
|
| 22 |
Dim parPvId
|
22 |
Dim parPvId
|
| - |
|
23 |
Dim parRtagId
|
| - |
|
24 |
Dim parMode
|
| - |
|
25 |
Dim qFile
|
| 23 |
'------------ Constants Declaration -----------
|
26 |
'------------ Constants Declaration -----------
|
| 24 |
'------------ Variable Init -------------------
|
27 |
'------------ Variable Init -------------------
|
| 25 |
parPvId = Request("pv_id")
|
28 |
parPvId = Request("pv_id")
|
| - |
|
29 |
parRtagId = RequestDefault("rtag_id", 0)
|
| - |
|
30 |
parMode = RequestDefault("mode", 0)
|
| - |
|
31 |
qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql")
|
| 26 |
'----------------------------------------------
|
32 |
'----------------------------------------------
|
| 27 |
%>
|
33 |
%>
|
| 28 |
<%
|
34 |
<%
|
| 29 |
'------------------------ MAIN LINE ---------------------------------
|
35 |
'------------------------ MAIN LINE ---------------------------------
|
| 30 |
'--------------------------------------------------------------------
|
36 |
'--------------------------------------------------------------------
|
| - |
|
37 |
' Get the list of ancestor versions
|
| - |
|
38 |
OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
39 |
OraDatabase.Parameters.Add "PV_ID", parPvId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
40 |
Set rsMetrics = OraDatabase.DbCreateDynaset( GetQuery(qFile), cint(0))
|
| - |
|
41 |
OraDatabase.Parameters.Remove "PV_ID"
|
| - |
|
42 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| - |
|
43 |
|
| 31 |
%>
|
44 |
%>
|
| 32 |
<!-- RequestPackageVersionHistoryMetrics.asp -->
|
45 |
<!-- RequestPackageVersionHistoryMetrics.asp -->
|
| 33 |
<table width="100%" border="0" cellspacing="1" cellpadding="1">
|
46 |
<table width="100%" border="0" cellspacing="1" cellpadding="1">
|
| 34 |
<tr>
|
47 |
<tr>
|
| 35 |
<td>
|
48 |
<td>
|
| 36 |
<table width="100%" border="0" cellspacing="1" cellpadding="1">
|
49 |
<table width="100%" border="0" cellspacing="1" cellpadding="1">
|
| 37 |
<tr class="form_field_bg">
|
50 |
<tr class="form_field_bg">
|
| 38 |
<td nowrap class="body_row" valign="top" >Package Version</td>
|
51 |
<td nowrap class="body_row" valign="top" >Package Version [<%=rsMetrics.RecordCount%>]</td>
|
| 39 |
<td nowrap class="body_row" valign="top" >Autobuilt</td>
|
52 |
<td nowrap class="body_row" valign="top" >Autobuilt</td>
|
| 40 |
<td nowrap class="body_row" valign="top" >Build Reason</td>
|
53 |
<td nowrap class="body_row" valign="top" >Build Reason</td>
|
| 41 |
<td nowrap class="body_row" valign="top" >Lines Of Code</td>
|
54 |
<td nowrap class="body_row" valign="top" >Lines Of Code</td>
|
| 42 |
<td nowrap class="body_row" valign="top" >Unit Tested</td>
|
55 |
<td nowrap class="body_row" valign="top" >Unit Tested</td>
|
| 43 |
<td nowrap class="body_row" valign="top" >Autotested</td>
|
56 |
<td nowrap class="body_row" valign="top" >Autotested</td>
|
| 44 |
<td nowrap class="body_row" valign="top" >Last Modified</td>
|
57 |
<td nowrap class="body_row" valign="top" >Last Modified</td>
|
| 45 |
</tr>
|
58 |
</tr>
|
| 46 |
|
59 |
|
| 47 |
<%
|
60 |
<%
|
| 48 |
' Get the list of ancestor versions
|
- |
|
| 49 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
- |
|
| 50 |
Set rsMetrics = OraDatabase.DbCreateDynaset( GetQuery("PackageVersionMetrics.sql"), cint(0))
|
- |
|
| 51 |
OraDatabase.Parameters.Remove "PV_ID"
|
- |
|
| 52 |
|
61 |
|
| 53 |
If rsMetrics.RecordCount < 1 Then
|
62 |
If rsMetrics.RecordCount < 1 Then
|
| 54 |
%>
|
63 |
%>
|
| 55 |
<tr class="form_field_grey_bg">
|
64 |
<tr class="form_field_grey_bg">
|
| 56 |
<td colspan="7" class="body_row" nowrap>Non Found</td>
|
65 |
<td colspan="7" class="body_row" nowrap>None Found</td>
|
| 57 |
</tr>
|
66 |
</tr>
|
| 58 |
<%
|
67 |
<%
|
| 59 |
Else
|
68 |
Else
|
| 60 |
While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
|
69 |
While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
|
| 61 |
%>
|
70 |
%>
|