Subversion Repositories DevTools

Rev

Rev 6592 | Rev 6615 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
125 ghuddy 5 
'|              RequestReleasePackages.asp           |
119 ghuddy 6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
125 ghuddy 12 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<%
20 
'------------ Variable Definition -------------
21 
Dim rsTemp
22 
Dim PageInfoHash
23 
'------------ Constants Declaration -----------
24 
'------------ Variable Init -------------------
25 
Set PageInfoHash = CreateObject("Scripting.Dictionary")
26 
'----------------------------------------------
27 
%>
28 
<%
29 
'------------------------------------------------------------------------------------------------------------------------
30 
'------------------------------------------------------------------------------------------------------------------------
31 
%>
32 
<%
33 
'------------------------ MAIN LINE ---------------------------------
34 
'--------------------------------------------------------------------
6613 dpurdie 35 
Dim BaseId
36 
BaseId = "TOP10_" & Request("rtag_id")
119 ghuddy 37 
%>
6613 dpurdie 38 
<!-- RequestReleasePackages.asp -->
119 ghuddy 39 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
6613 dpurdie 40 
<tr class="form_field_bg">
41 
    <td nowrap class="body_row">
42 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=1');">
43 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
44 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
45 
          Top 10 Changed Packages In Last Week
46 
          </a>
47 
    </td>
48 
</tr>
49 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
50 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
51 
</tr>
52 
<%BaseId = "TOP10MON_" & Request("rtag_id")%>
53 
<tr class="form_field_bg">
54 
    <td nowrap class="body_row">
55 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=2');">
56 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
57 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
58 
          Top 10 Changed Packages In Last Month
59 
          </a>
60 
    </td>
61 
</tr>
62 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
63 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
64 
</tr>
65 
<%BaseId = "TOP10_3MON_" & Request("rtag_id")%>
66 
<tr class="form_field_bg">
67 
    <td nowrap class="body_row">
68 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=3');">
69 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
70 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
71 
          Top 10 Changed Packages In Last 3 Months
72 
          </a>
73 
    </td>
74 
</tr>
75 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
76 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
77 
</tr>
119 ghuddy 78 
 
6613 dpurdie 79 
<tr class="form_field_bg">
80 
  <td>
81 
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
82 
        <tr class="form_field_bg">
83 
           <td nowrap class="body_row" valign="top">Package Version</td>
84 
           <td nowrap class="body_row" valign="top">Autobuilt</td>
85 
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
86 
           <td nowrap class="body_row" valign="top">Unit Tested</td>
87 
           <td nowrap class="body_row" valign="top">Autotested</td>
88 
           <td nowrap class="body_row" valign="top">Last Modified</td>
89 
        </tr>
125 ghuddy 90 
 
6613 dpurdie 91 
        <%
92 
        OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
93 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))
94 
        OraDatabase.Parameters.Remove "RTAG_ID"
125 ghuddy 95 
 
6613 dpurdie 96 
        If rsTemp.RecordCount < 1 Then
97 
        %>
98 
           <tr class="form_field_grey_bg">
99 
              <td colspan="7" nowrap>&nbsp;</td>
100 
           </tr>
101 
        <%
102 
        Else
125 ghuddy 103 
 
6613 dpurdie 104 
           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
105 
            BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id")
106 
           %>
107 
              <tr class="form_field_grey_bg">
108 
                 <td nowrap class="body_row">
109 
                       <a href="javascript:;" class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestPackageVersionHistoryMetrics.asp?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>');">
110 
                          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
111 
                          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
112 
                       </a>
113 
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
114 
                          <%=rsTemp("pkg_name")%>&nbsp;<%=rsTemp("pkg_version")%>
115 
                       </a>
116 
                 </td>
117 
                 <td nowrap class="body_row">
118 
                    <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
119 
                 </td>
120 
                 <td nowrap class="body_row"><%=rsTemp("code_lines")%></td>
121 
                 <td nowrap class="body_row">
122 
                    <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
123 
                 </td>
124 
                 <td nowrap class="body_row">
125 
                    <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
126 
                 </td>
127 
                 <td nowrap class="body_row"><%=rsTemp("modified_stamp")%></td>
128 
              </tr>
129 
              <tr class="form_field_bg" id='TGL_<%=BaseId%>' style="display:none;">
130 
                 <td nowrap class="body_row" colspan="6"><div id='<%=BaseId%>'><%=enumLOADING%></td></div>
131 
              </tr>
132 
              <%rsTemp.MoveNext
133 
           WEnd
134 
           rsTemp.Close
135 
           Set rsTemp = nothing
136 
        End If
137 
        %>
138 
     </table>
139 
  </td>
140 
</tr>
119 ghuddy 141 
</table>
142 
<br>
143 
<%
144 
Call Destroy_All_Objects
125 ghuddy 145 
%>
6592 dpurdie 146