Subversion Repositories DevTools

Rev

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