| Line 20... |
Line 20... |
| 20 |
Dim parPvId
|
20 |
Dim parPvId
|
| 21 |
Dim parRtagId
|
21 |
Dim parRtagId
|
| 22 |
Dim parMode
|
22 |
Dim parMode
|
| 23 |
Dim parInterval
|
23 |
Dim parInterval
|
| 24 |
Dim qFile
|
24 |
Dim qFile
|
| - |
|
25 |
Dim iRippleBasePVID, iLastSignificantPVID
|
| 25 |
'------------ Constants Declaration -----------
|
26 |
'------------ Constants Declaration -----------
|
| 26 |
'------------ Variable Init -------------------
|
27 |
'------------ Variable Init -------------------
|
| 27 |
parPvId = Request("pv_id")
|
28 |
parPvId = Request("pv_id")
|
| 28 |
parRtagId = RequestDefault("rtag_id", 0)
|
29 |
parRtagId = RequestDefault("rtag_id", 0)
|
| 29 |
parMode = RequestDefault("mode", 0)
|
30 |
parMode = RequestDefault("mode", 0)
|
| 30 |
parInterval = RequestDefault("interval", 0)
|
31 |
parInterval = RequestDefault("interval", 0)
|
| 31 |
qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql")
|
32 |
qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql")
|
| - |
|
33 |
If parMode <> 0 Then
|
| - |
|
34 |
Call getLastSignificantVersions (parPvId, iRippleBasePVID, iLastSignificantPVID)
|
| - |
|
35 |
End If
|
| 32 |
'----------------------------------------------
|
36 |
'----------------------------------------------
|
| 33 |
%>
|
37 |
%>
|
| 34 |
<%
|
38 |
<%
|
| 35 |
'------------------------ MAIN LINE ---------------------------------
|
39 |
'------------------------ MAIN LINE ---------------------------------
|
| 36 |
'--------------------------------------------------------------------
|
40 |
'--------------------------------------------------------------------
|
| Line 53... |
Line 57... |
| 53 |
<td nowrap class="body_row" valign="top" >Build Reason</td>
|
57 |
<td nowrap class="body_row" valign="top" >Build Reason</td>
|
| 54 |
<td nowrap class="body_row" valign="top" >Lines Of Code</td>
|
58 |
<td nowrap class="body_row" valign="top" >Lines Of Code</td>
|
| 55 |
<td nowrap class="body_row" valign="top" >Unit Tested</td>
|
59 |
<td nowrap class="body_row" valign="top" >Unit Tested</td>
|
| 56 |
<td nowrap class="body_row" valign="top" >Autotested</td>
|
60 |
<td nowrap class="body_row" valign="top" >Autotested</td>
|
| 57 |
<td nowrap class="body_row" valign="top" >Last Modified</td>
|
61 |
<td nowrap class="body_row" valign="top" >Last Modified</td>
|
| - |
|
62 |
<td nowrap class="" valign="top" ></td>
|
| 58 |
</tr>
|
63 |
</tr>
|
| 59 |
|
64 |
|
| 60 |
<%
|
65 |
<%
|
| 61 |
|
66 |
|
| 62 |
If rsMetrics.RecordCount < 1 Then
|
67 |
If rsMetrics.RecordCount < 1 Then
|
| Line 66... |
Line 71... |
| 66 |
</tr>
|
71 |
</tr>
|
| 67 |
<%
|
72 |
<%
|
| 68 |
Else
|
73 |
Else
|
| 69 |
While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
|
74 |
While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
|
| 70 |
Dim trClass : trClass = "form_field_grey_bg"
|
75 |
Dim trClass : trClass = "form_field_grey_bg"
|
| - |
|
76 |
Dim showBaseRippleHelp : showBaseRippleHelp = FALSE
|
| - |
|
77 |
Dim showInterval : showInterval = FALSE
|
| 71 |
If parMode > 0 Then
|
78 |
If parMode > 0 Then
|
| 72 |
If rsMetrics("inRelease") <> 0 OR CLng(rsMetrics("ageDays")) <= CLng(parInterval) Then
|
79 |
If rsMetrics("inRelease") <> 0 OR CLng(rsMetrics("ageDays")) <= CLng(parInterval) Then
|
| 73 |
trClass = "form_field_hilight_bg"
|
80 |
trClass = "form_field_hilight_bg"
|
| - |
|
81 |
showInterval = TRUE
|
| - |
|
82 |
End If
|
| - |
|
83 |
|
| - |
|
84 |
If CLng(iRippleBasePVID) = CLng(rsMetrics("pv_id")) Then
|
| - |
|
85 |
trClass = "form_field_hilight_bg"
|
| - |
|
86 |
showBaseRippleHelp = TRUE
|
| 74 |
End If
|
87 |
End If
|
| 75 |
End If
|
88 |
End If
|
| 76 |
%>
|
89 |
%>
|
| 77 |
<tr class="<%=trClass%>">
|
90 |
<tr class="<%=trClass%>">
|
| 78 |
<td nowrap class="body_row">
|
91 |
<td nowrap class="body_row">
|
| 79 |
<a class="txt_linked" href="dependencies.asp?pv_id=<%=rsMetrics("pv_id")%>"><%=rsMetrics("pkg_name")%> <%=rsMetrics("pkg_version")%></a>
|
92 |
<a class="txt_linked" href="dependencies.asp?pv_id=<%=rsMetrics("pv_id")%>"><%=rsMetrics("pkg_name")%> <%=rsMetrics("pkg_version")%></a>
|
| 80 |
</td>
|
93 |
</td>
|
| 81 |
<td nowrap class="body_row"><%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%></td>
|
94 |
<td nowrap class="body_row"><%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%></td>
|
| 82 |
<td nowrap class="body_row"><%=rsMetrics("reason")%></td>
|
95 |
<td nowrap class="body_row"><%=rsMetrics("reason")%></td>
|
| 83 |
<td nowrap class="body_row"><%=rsMetrics("code_lines")%></td>
|
96 |
<td nowrap class="body_row tright"><%=rsMetrics("code_lines")%></td>
|
| 84 |
<td nowrap class="body_row"><%=IIf(rsMetrics("unit_tested") = "Y", "Yes", "No")%></td>
|
97 |
<td nowrap class="body_row"><%=IIf(rsMetrics("unit_tested") = "Y", "Yes", "No")%></td>
|
| 85 |
<td nowrap class="body_row"><%If IsNull(rsMetrics("autotested")) OR rsMetrics("autotested") <> "Y" Then %>No<%ElseIf rsMetrics("test_count") = "0" Then%>?<%Else%><%=rsMetrics("test_count")%><%End If%></td>
|
98 |
<td nowrap class="body_row tright"><%If IsNull(rsMetrics("autotested")) OR rsMetrics("autotested") <> "Y" Then %>No<%ElseIf rsMetrics("test_count") = "0" Then%>?<%Else%><%=rsMetrics("test_count")%><%End If%></td>
|
| 86 |
<td nowrap class="body_row"><%=rsMetrics("modified_stamp")%></td>
|
99 |
<td nowrap class="body_row"><%=rsMetrics("modified_stamp")%></td>
|
| - |
|
100 |
<%If showBaseRippleHelp OR showInterval Then%>
|
| - |
|
101 |
<td nowrap>
|
| - |
|
102 |
<%If showInterval Then%>
|
| - |
|
103 |
<%=Quick_Help("h_showInterval")%>
|
| - |
|
104 |
<%End If%>
|
| - |
|
105 |
<%If showBaseRippleHelp Then%>
|
| - |
|
106 |
<%=Quick_Help("h_baseRipple")%>
|
| - |
|
107 |
<%End If%>
|
| - |
|
108 |
</td>
|
| - |
|
109 |
<%End If%>
|
| 87 |
</tr>
|
110 |
</tr>
|
| 88 |
<%
|
111 |
<%
|
| 89 |
rsMetrics.MoveNext
|
112 |
rsMetrics.MoveNext
|
| 90 |
WEnd
|
113 |
WEnd
|
| 91 |
End If
|
114 |
End If
|