Subversion Repositories DevTools

Rev

Rev 6616 | Rev 6618 | 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">
6617 dpurdie 38 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=7');"><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 20 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">
6617 dpurdie 47 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=31');"><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 20 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">
6617 dpurdie 56 
        <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=90');"><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 20 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>
6616 dpurdie 62 
<%BaseId = "PKGLST_" & Request("rtag_id")%>
6613 dpurdie 63 
<tr class="form_field_bg">
6616 dpurdie 64 
    <td nowrap class="body_row">
65 
        <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>
66 
    </td>
67 
</tr>
68 
<tr class="form_field_bg" id="TGL_<%=BaseId%>">
69 
  <td nowrap class="body_row">
70 
    <div class='subindent' id='<%=BaseId%>'>
71 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
72 
<tr class="form_field_bg">
6613 dpurdie 73 
  <td>
74 
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
75 
        <tr class="form_field_bg">
76 
           <td nowrap class="body_row" valign="top">Package Version</td>
77 
           <td nowrap class="body_row" valign="top">Autobuilt</td>
78 
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
79 
           <td nowrap class="body_row" valign="top">Unit Tested</td>
80 
           <td nowrap class="body_row" valign="top">Autotested</td>
81 
           <td nowrap class="body_row" valign="top">Last Modified</td>
82 
        </tr>
125 ghuddy 83 
 
6613 dpurdie 84 
        <%
85 
        OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
86 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))
87 
        OraDatabase.Parameters.Remove "RTAG_ID"
125 ghuddy 88 
 
6613 dpurdie 89 
        If rsTemp.RecordCount < 1 Then
90 
        %>
91 
           <tr class="form_field_grey_bg">
92 
              <td colspan="7" nowrap>&nbsp;</td>
93 
           </tr>
94 
        <%
95 
        Else
125 ghuddy 96 
 
6613 dpurdie 97 
           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
98 
            BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id")
99 
           %>
100 
              <tr class="form_field_grey_bg">
101 
                 <td nowrap class="body_row">
6615 dpurdie 102 
                       <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>
103 
                       <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 104 
                 </td>
105 
                 <td nowrap class="body_row">
106 
                    <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
107 
                 </td>
108 
                 <td nowrap class="body_row"><%=rsTemp("code_lines")%></td>
109 
                 <td nowrap class="body_row">
110 
                    <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
111 
                 </td>
112 
                 <td nowrap class="body_row">
113 
                    <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
114 
                 </td>
115 
                 <td nowrap class="body_row"><%=rsTemp("modified_stamp")%></td>
116 
              </tr>
117 
              <tr class="form_field_bg" id='TGL_<%=BaseId%>' style="display:none;">
6616 dpurdie 118 
                 <td nowrap class="body_row" colspan="6"><div class='subindent' id='<%=BaseId%>'><%=enumLOADING%></td></div>
6613 dpurdie 119 
              </tr>
120 
              <%rsTemp.MoveNext
121 
           WEnd
122 
           rsTemp.Close
123 
           Set rsTemp = nothing
124 
        End If
125 
        %>
126 
     </table>
127 
  </td>
128 
</tr>
6616 dpurdie 129 
    </table>
130 
    </div></td>
131 
</tr>
119 ghuddy 132 
</table>
133 
<br>
134 
<%
135 
Call Destroy_All_Objects
125 ghuddy 136 
%>
6592 dpurdie 137