Subversion Repositories DevTools

Rev

Rev 6613 | Rev 6616 | 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">
6615 dpurdie 42 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=1');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">Top 10 Changed Packages In Last Week</a>
6613 dpurdie 43 
    </td>
44 
</tr>
45 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
46 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
47 
</tr>
48 
<%BaseId = "TOP10MON_" & Request("rtag_id")%>
49 
<tr class="form_field_bg">
50 
    <td nowrap class="body_row">
6615 dpurdie 51 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=2');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">Top 10 Changed Packages In Last Month</a>
6613 dpurdie 52 
    </td>
53 
</tr>
54 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
55 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
56 
</tr>
57 
<%BaseId = "TOP10_3MON_" & Request("rtag_id")%>
58 
<tr class="form_field_bg">
59 
    <td nowrap class="body_row">
6615 dpurdie 60 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=3');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">Top 10 Changed Packages In Last 3 Months</a>
6613 dpurdie 61 
    </td>
62 
</tr>
63 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
64 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
65 
</tr>
6615 dpurdie 66 
<%BaseId = "TOP10_ALL_" & Request("rtag_id")%>
67 
<tr class="form_field_bg">
68 
    <td nowrap class="body_row">
69 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=4');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">Top 10 Changed Packages of all Time</a>
70 
    </td>
71 
</tr>
72 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
73 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
74 
</tr>
119 ghuddy 75 
 
6613 dpurdie 76 
<tr class="form_field_bg">
77 
  <td>
78 
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
79 
        <tr class="form_field_bg">
80 
           <td nowrap class="body_row" valign="top">Package Version</td>
81 
           <td nowrap class="body_row" valign="top">Autobuilt</td>
82 
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
83 
           <td nowrap class="body_row" valign="top">Unit Tested</td>
84 
           <td nowrap class="body_row" valign="top">Autotested</td>
85 
           <td nowrap class="body_row" valign="top">Last Modified</td>
86 
        </tr>
125 ghuddy 87 
 
6613 dpurdie 88 
        <%
89 
        OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
90 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))
91 
        OraDatabase.Parameters.Remove "RTAG_ID"
125 ghuddy 92 
 
6613 dpurdie 93 
        If rsTemp.RecordCount < 1 Then
94 
        %>
95 
           <tr class="form_field_grey_bg">
96 
              <td colspan="7" nowrap>&nbsp;</td>
97 
           </tr>
98 
        <%
99 
        Else
125 ghuddy 100 
 
6613 dpurdie 101 
           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
102 
            BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id")
103 
           %>
104 
              <tr class="form_field_grey_bg">
105 
                 <td nowrap class="body_row">
6615 dpurdie 106 
                       <a href="javascript://rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>;" class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestPackageVersionHistoryMetrics.asp?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>');"><img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"></a>
107 
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>"><%=rsTemp("pkg_name")%>&nbsp;<%=rsTemp("pkg_version")%></a>
6613 dpurdie 108 
                 </td>
109 
                 <td nowrap class="body_row">
110 
                    <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
111 
                 </td>
112 
                 <td nowrap class="body_row"><%=rsTemp("code_lines")%></td>
113 
                 <td nowrap class="body_row">
114 
                    <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
115 
                 </td>
116 
                 <td nowrap class="body_row">
117 
                    <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
118 
                 </td>
119 
                 <td nowrap class="body_row"><%=rsTemp("modified_stamp")%></td>
120 
              </tr>
121 
              <tr class="form_field_bg" id='TGL_<%=BaseId%>' style="display:none;">
122 
                 <td nowrap class="body_row" colspan="6"><div id='<%=BaseId%>'><%=enumLOADING%></td></div>
123 
              </tr>
124 
              <%rsTemp.MoveNext
125 
           WEnd
126 
           rsTemp.Close
127 
           Set rsTemp = nothing
128 
        End If
129 
        %>
130 
     </table>
131 
  </td>
132 
</tr>
119 ghuddy 133 
</table>
134 
<br>
135 
<%
136 
Call Destroy_All_Objects
125 ghuddy 137 
%>
6592 dpurdie 138