Subversion Repositories DevTools

Rev

Rev 6615 | Rev 6618 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6615 Rev 6617
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 - 
 
5 
'|      RequestPackageVersionHistoryMetrics.asp      |
 4 
'   RequestPackageVersionHistoryMetrics.asp
6 
'|                                                   |
 - 
 
7 
'=====================================================
 5 
'=====================================================
8 
%>
 6 
%>
9 
<%
 7 
<%
10 
Option explicit
 8 
Option explicit
11 
' Good idea to set when using redirect
 9 
' Good idea to set when using redirect
Line 20... Line 18...
20 
'------------ Variable Definition -------------
 18 
'------------ Variable Definition -------------
21 
Dim rsMetrics
 19 
Dim rsMetrics
22 
Dim parPvId
 20 
Dim parPvId
23 
Dim parRtagId
 21 
Dim parRtagId
24 
Dim parMode
 22 
Dim parMode
- 
 
 23 
Dim parInterval
25 
Dim qFile
 24 
Dim qFile
26 
'------------ Constants Declaration -----------
 25 
'------------ Constants Declaration -----------
27 
'------------ Variable Init -------------------
 26 
'------------ Variable Init -------------------
28 
parPvId = Request("pv_id")
 27 
parPvId = Request("pv_id")
29 
parRtagId = RequestDefault("rtag_id", 0)
 28 
parRtagId = RequestDefault("rtag_id", 0)
30 
parMode = RequestDefault("mode", 0)
 29 
parMode = RequestDefault("mode", 0)
- 
 
 30 
parInterval = RequestDefault("interval", 0)
31 
qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql")
31 
qFile = Iif ( parMode = 1, "PackageVersionMetricsAll.sql", "PackageVersionMetrics.sql")
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
'------------------------ MAIN LINE ---------------------------------
 35 
'------------------------ MAIN LINE ---------------------------------
Line 65... Line 65...
65 
              <td colspan="7" class="body_row" nowrap>None Found</td>
 65 
              <td colspan="7" class="body_row" nowrap>None Found</td>
66 
           </tr>
 66 
           </tr>
67 
        <%
 67 
        <%
68 
        Else
 68 
        Else
69 
           While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
 69 
           While ((NOT rsMetrics.BOF) AND (NOT rsMetrics.EOF))
- 
 
 70 
               Dim trClass : trClass = "form_field_grey_bg"
- 
 
 71 
               If parMode > 0 Then
- 
 
 72 
                If rsMetrics("inRelease") <> 0 OR CLng(rsMetrics("ageDays")) <= CLng(parInterval) Then
- 
 
 73 
                    trClass = "form_field_hilight_bg"
- 
 
 74 
                End If
- 
 
 75 
               End If
70 
              %>
 76 
              %>
71 
                 <tr class="form_field_grey_bg">
 77 
                 <tr class="<%=trClass%>">
72 
                    <td nowrap class="body_row">
 78 
                    <td nowrap class="body_row">
73 
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsMetrics("pv_id")%>"><%=rsMetrics("pkg_name")%>&nbsp;<%=rsMetrics("pkg_version")%></a>
 79 
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsMetrics("pv_id")%>"><%=rsMetrics("pkg_name")%>&nbsp;<%=rsMetrics("pkg_version")%></a>
74 
                    </td>
 80 
                    </td>
75 
                    <td nowrap class="body_row"><%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%></td>
 81 
                    <td nowrap class="body_row"><%=IIf(rsMetrics("is_autobuildable") = "Y", "Yes", "No")%></td>
76 
                    <td nowrap class="body_row"><%=rsMetrics("reason")%></td>
 82 
                    <td nowrap class="body_row"><%=rsMetrics("reason")%></td>