Subversion Repositories DevTools

Rev

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

Rev 6613 Rev 6615
Line 18... Line 18...
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<%
 19 
<%
20 
'------------ Variable Definition -------------
 20 
'------------ Variable Definition -------------
21 
Dim rsTemp
 21 
Dim rsTemp
22 
Dim parInterval
 22 
Dim parInterval
- 
 
 23 
Dim BaseId
23 
'------------ Constants Declaration -----------
 24 
'------------ Constants Declaration -----------
24 
'------------ Variable Init -------------------
 25 
'------------ Variable Init -------------------
25 
parInterval = Request("Interval")
 26 
parInterval = Request("Interval")
26 
'----------------------------------------------
 27 
'----------------------------------------------
27 
%>
 28 
%>
Line 41... Line 42...
41 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '7' day)"
 42 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '7' day)"
42 
      Case 2
 43 
      Case 2
43 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '30' day)"
 44 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '30' day)"
44 
      Case 3
 45 
      Case 3
45 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '90' day)"
 46 
         date_Interval_expression = " AND changed_package_versions.MODIFIED_STAMP > (ORA_SYSDATE - interval '90' day)"
- 
 
 47 
      Case 4
- 
 
 48 
         date_Interval_expression = ""
46 
      Case Else
 49 
      Case Else
47 
         Call RaiseMsg(enum_MSG_ERROR, "Internal Error, date interval not specified.")
 50 
         Call RaiseMsg(enum_MSG_ERROR, "Internal Error, date interval not specified.")
48 
   End Select
 51 
   End Select
49 
 
 52 
 
50 
   ' For each package ID in a release
 53 
   ' For each package ID in a release
51 
   '    For each package version across all projects and releases (have to do this due to schema limitations)
 54 
   '    For each package version across all projects and releases (have to do this due to schema limitations)
52 
   '       If the package version extension is the same as that being used currently in the release
 55 
   '       If the package version extension is the same as that being used currently in the release
53 
   '          If the package version is locked, and is not a ripple
 56 
   '          If the package version is locked, and is not a ripple
54 
   '             Increment a count for this package ID
 57 
   '             Increment a count for this package ID
55 
   ' Return the 10 package IDs with the highest counts
 58 
   ' Return the 10 package IDs with the highest counts
56 
   qs  = " SELECT ordered_changed.pkg_id, ordered_changed.pkg_name, pv_outer.pv_id, pv_outer.pkg_version, ordered_changed.NumberOfChanges" _
 59 
   qs  = " SELECT ordered_changed.pkg_id, ordered_changed.pkg_name || pv_outer.v_ext as pkg_name, pv_outer.pv_id, pv_outer.pkg_version, ordered_changed.NumberOfChanges" _
57 
       & " FROM RELEASE_CONTENT rc_outer, PACKAGE_VERSIONS pv_outer,                                        " _
 60 
       & " FROM RELEASE_CONTENT rc_outer, PACKAGE_VERSIONS pv_outer,                                        " _
58 
       & " (                                                                                                " _
 61 
       & " (                                                                                                " _
59 
       & "    SELECT * FROM (                                                                               " _
 62 
       & "    SELECT * FROM (                                                                               " _
60 
       & "       SELECT changed.pkg_name, changed.pkg_id, COUNT(changed.pkg_name) as NumberOfChanges FROM ( " _
 63 
       & "       SELECT changed.pkg_name, changed.pkg_id, COUNT(changed.pkg_name) as NumberOfChanges FROM ( " _
61 
       & "          SELECT PACKAGES.pkg_name, PACKAGES.pkg_id                                               " _
 64 
       & "          SELECT PACKAGES.pkg_name, PACKAGES.pkg_id                                               " _
Line 82... Line 85...
82 
       & "    ) WHERE ROWNUM < 11                                                                           " _
 85 
       & "    ) WHERE ROWNUM < 11                                                                           " _
83 
       & " ) ordered_changed                                                                                " _
 86 
       & " ) ordered_changed                                                                                " _
84 
       & " WHERE                                                                                            " _
 87 
       & " WHERE                                                                                            " _
85 
       & "   ordered_changed.pkg_id = pv_outer.pkg_id                                                       " _
 88 
       & "   ordered_changed.pkg_id = pv_outer.pkg_id                                                       " _
86 
       & "   AND rc_outer.rtag_id   = :rtag_id                                                              " _
 89 
       & "   AND rc_outer.rtag_id   = :rtag_id                                                              " _
87 
       & "   AND rc_outer.pv_id     = pv_outer.pv_id                                                        "
 90 
       & "   AND rc_outer.pv_id     = pv_outer.pv_id                                                        " _
- 
 
 91 
       & "   order by upper(pkg_name) "
88 
 
 92 
 
89 
   formQueryString = qs
 93 
   formQueryString = qs
90 
End Function
 94 
End Function
91 
 
 95 
 
92 
 
 96 
 
Line 94... Line 98...
94 
'------------------------------------------------------------------------------------------------------------------------
 98 
'------------------------------------------------------------------------------------------------------------------------
95 
%>
 99 
%>
96 
<%
 100 
<%
97 
'------------------------ MAIN LINE ---------------------------------
 101 
'------------------------ MAIN LINE ---------------------------------
98 
'--------------------------------------------------------------------
 102 
'--------------------------------------------------------------------
- 
 
 103 
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 104 
Set rsTemp = OraDatabase.DbCreateDynaset( formQueryString, cint(0))
- 
 
 105 
OraDatabase.Parameters.Remove "RTAG_ID"
99 
%>
 106 
%>
- 
 
 107 
<!-- RequestTop10Changes.asp -->
100 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
 108 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
- 
 
 109 
 
- 
 
 110 
<%If rsTemp.RecordCount < 1 Then %>
- 
 
 111 
   <tr class="form_field_grey_bg">
- 
 
 112 
      <td nowrap class="body_row">None Found</td>
101 
   <tr>
 113 
   </tr>
- 
 
 114 
<% Else %>
- 
 
 115 
    <tr class="form_field_bg">
102 
      <td background="images/bg_form_lightbluedark.gif">
 116 
      <td class="form_field_bg">
103 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
 117 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
104 
            <tr>
 118 
            <tr>
105 
               <td nowrap class="body_txt" valign="top" width="70%" background="images/bg_form_lightbluedark.gif">Package Name</td>
 119 
               <td nowrap class="body_row" valign="top" width="70%">Package Name</td>
106 
               <td nowrap class="body_txt" valign="top" width="30%" background="images/bg_form_lightbluedark.gif">Changes<%=Quick_Help("Top10ChangeCounts")%></td>
 120 
               <td nowrap class="body_row" valign="top" width="30%">Changes<%=Quick_Help("Top10ChangeCounts")%></td>
107 
            </tr>
 121 
            </tr>
108 
 
 - 
 
109 
            <%
 - 
 
110 
            OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
111 
 
 - 
 
112 
            Set rsTemp = OraDatabase.DbCreateDynaset( formQueryString, cint(0))
 - 
 
113 
 
 - 
 
114 
            OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
115 
 
 - 
 
116 
            If rsTemp.RecordCount < 1 Then
 - 
 
117 
            %>
 - 
 
118 
               <tr>
 - 
 
119 
                  <td colspan="3" background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
120 
               </tr>
 - 
 
121 
            <%
 122 
            <%
122 
            Else
 - 
 
123 
 
 - 
 
124 
               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 123 
               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 124 
                BaseId = "TOP10_I" & parInterval & "_" & Request("rtag_id") & "_" & rsTemp("pv_id")
125 
               %>
 125 
               %>
126 
                  <tr>
 - 
 
127 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
 126 
                <tr class="form_field_grey_bg">
128 
                        <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=Request("rtag_id")%>">
 - 
 
129 
                           <%=rsTemp("pkg_name")%>
 127 
                    <td nowrap class="body_row">
130 
                        </a>
 128 
                       <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")%>&mode=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"><%=rsTemp("pkg_name")%></a>
131 
                     </td>
 129 
                    </td>
132 
 
 - 
 
133 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
 130 
                    <td nowrap class="body_row">
134 
                        <%=rsTemp("NumberOfChanges")%>
 131 
                        <%=rsTemp("NumberOfChanges")%>
135 
                     </td>
 132 
                    </td>
- 
 
 133 
                </tr>
- 
 
 134 
                <tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
- 
 
 135 
                    <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
136 
                  </tr>
 136 
                </tr>
137 
                  <%rsTemp.MoveNext
 137 
                <%rsTemp.MoveNext
138 
               WEnd
 138 
               WEnd
139 
               rsTemp.Close
 - 
 
140 
               Set rsTemp = nothing
 - 
 
141 
 
 - 
 
142 
            End If
 - 
 
143 
            %>
 139 
            %>
144 
         </table>
 140 
         </table>
145 
      </td>
 141 
      </td>
146 
   </tr>
 142 
   </tr>
- 
 
 143 
<%End If%>
147 
</table>
 144 
</table>
148 
<br>
 145 
<br>
- 
 
 146 
<%
- 
 
 147 
rsTemp.Close
- 
 
 148 
Set rsTemp = nothing
149 
 
 149 
%>
150 
<%
 150 
<%
151 
Call Destroy_All_Objects
 151 
Call Destroy_All_Objects
152 
%>
 152 
%>