Subversion Repositories DevTools

Rev

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

Rev 6592 Rev 6613
Line 30... Line 30...
30 
'------------------------------------------------------------------------------------------------------------------------
 30 
'------------------------------------------------------------------------------------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'------------------------ MAIN LINE ---------------------------------
 33 
'------------------------ MAIN LINE ---------------------------------
34 
'--------------------------------------------------------------------
 34 
'--------------------------------------------------------------------
- 
 
 35 
Dim BaseId
- 
 
 36 
BaseId = "TOP10_" & Request("rtag_id")
35 
%>
 37 
%>
- 
 
 38 
<!-- RequestReleasePackages.asp -->
36 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
 39 
<table width="100%" border="0" cellspacing="1" cellpadding="1">
37 
   <tr>
 40 
<tr class="form_field_bg">
38 
      <td background="images/bg_form_lightbluedark.gif">
 41 
    <td nowrap class="body_row">
39 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
 42 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=1');">
40 
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
 43 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
41 
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:block;">
 44 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
42 
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLastWeek('?rtag_id=<%=Request("rtag_id")%>&Interval=1', '<%=Request("rtag_id")%>');">
 45 
          Top 10 Changed Packages In Last Week
43 
                     <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 46 
          </a>
44 
                     Top 10 Changed Packages In Last Week
 47 
    </td>
45 
                  </a>
 48 
</tr>
46 
               </SPAN>
 49 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
47 
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:none;">
 50 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
48 
                  <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK');">
 51 
</tr>
49 
                     <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 52 
<%BaseId = "TOP10MON_" & Request("rtag_id")%>
50 
                     Top 10 Changed Packages In Last Week
 53 
<tr class="form_field_bg">
51 
                  </a>
 54 
    <td nowrap class="body_row">
52 
               </SPAN>
 55 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=2');">
53 
            </td>
 56 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
54 
         </table>
 57 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
55 
      </td>
 58 
          Top 10 Changed Packages In Last Month
56 
   </tr>
 59 
          </a>
57 
   <tr>
 60 
    </td>
58 
      <td nowrap class="body_txt" colspan="3">
 61 
</tr>
59 
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:none;"><%=enumLOADING%></div>
 62 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
60 
      </td>
 63 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
61 
   </tr>
 64 
</tr>
62 
 
 65 
<%BaseId = "TOP10_3MON_" & Request("rtag_id")%>
63 
 
 66 
<tr class="form_field_bg">
64 
   <tr>
 67 
    <td nowrap class="body_row">
65 
      <td background="images/bg_form_lightbluedark.gif">
 68 
          <a href='javascript:;' class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestTop10Changes.asp?rtag_id=<%=Request("rtag_id")%>&Interval=3');">
66 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
 69 
          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
67 
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
 70 
          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
68 
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:block;">
 71 
          Top 10 Changed Packages In Last 3 Months
69 
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLastMonth('?rtag_id=<%=Request("rtag_id")%>&Interval=2', '<%=Request("rtag_id")%>');">
 72 
          </a>
70 
                     <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 73 
    </td>
71 
                     Top 10 Changed Packages In Last Month
 74 
</tr>
72 
                  </a>
 75 
<tr class="form_field_bg" id="TGL_<%=BaseId%>" style="display:none;">
73 
               </SPAN>
 76 
  <td nowrap class="body_row"><div id='<%=BaseId%>'><%=enumLOADING%></div></td>
74 
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:none;">
 77 
</tr>
75 
                  <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH');">
 78 
 
76 
                     <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 79 
<tr class="form_field_bg">
77 
                     Top 10 Changed Packages In Last Month
 80 
  <td>
78 
                  </a>
 81 
     <table width="100%" border="0" cellspacing="1" cellpadding="1">
79 
               </SPAN>
 82 
        <tr class="form_field_bg">
80 
            </td>
 83 
           <td nowrap class="body_row" valign="top">Package Version</td>
81 
         </table>
 84 
           <td nowrap class="body_row" valign="top">Autobuilt</td>
82 
      </td>
 85 
           <td nowrap class="body_row" valign="top">Lines Of Code</td>
83 
   </tr>
 86 
           <td nowrap class="body_row" valign="top">Unit Tested</td>
84 
   <tr>
 87 
           <td nowrap class="body_row" valign="top">Autotested</td>
85 
      <td nowrap class="body_txt" colspan="3">
 88 
           <td nowrap class="body_row" valign="top">Last Modified</td>
86 
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:none;"><%=enumLOADING%></div>
 89 
        </tr>
87 
      </td>
 90 
 
88 
   </tr>
 91 
        <%
89 
 
 92 
        OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
90 
   <tr>
 93 
        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))
91 
      <td background="images/bg_form_lightbluedark.gif">
 94 
        OraDatabase.Parameters.Remove "RTAG_ID"
92 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
 95 
 
93 
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
 96 
        If rsTemp.RecordCount < 1 Then
94 
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:block;">
 97 
        %>
95 
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLast3Months('?rtag_id=<%=Request("rtag_id")%>&Interval=3', '<%=Request("rtag_id")%>');">
 98 
           <tr class="form_field_grey_bg">
96 
                     <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 99 
              <td colspan="7" nowrap>&nbsp;</td>
97 
                     Top 10 Changed Packages In Last 3 Months
 100 
           </tr>
98 
                  </a>
 101 
        <%
99 
               </SPAN>
 102 
        Else
100 
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:none;">
 103 
 
101 
                  <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS');">
 104 
           While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
102 
                     <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 105 
            BaseId = "PREV_" & Request("rtag_id") & "_" & rsTemp("pv_id")
103 
                     Top 10 Changed Packages In Last 3 Months
 106 
           %>
104 
                  </a>
 107 
              <tr class="form_field_grey_bg">
105 
               </SPAN>
 108 
                 <td nowrap class="body_row">
106 
            </td>
 109 
                       <a href="javascript:;" class="txt_linked" onClick="ToggleLoadControl('<%=BaseId%>','RequestPackageVersionHistoryMetrics.asp?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>');">
107 
         </table>
 110 
                          <img id='IMG_<%=BaseId%>' src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3">
108 
      </td>
 111 
                          <img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
109 
   </tr>
 112 
                       </a>
110 
   <tr>
 113 
                       <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
111 
      <td nowrap class="body_txt" colspan="3">
 114 
                          <%=rsTemp("pkg_name")%>&nbsp;<%=rsTemp("pkg_version")%>
112 
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:none;"><%=enumLOADING%></div>
 115 
                       </a>
113 
      </td>
 116 
                 </td>
114 
   </tr>
 117 
                 <td nowrap class="body_row">
115 
 
 118 
                    <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
116 
 
 119 
                 </td>
117 
   <tr>
 120 
                 <td nowrap class="body_row"><%=rsTemp("code_lines")%></td>
118 
      <td background="images/bg_form_lightbluedark.gif">
 121 
                 <td nowrap class="body_row">
119 
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
 122 
                    <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
120 
            <tr>
 123 
                 </td>
121 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Package Version</td>
 124 
                 <td nowrap class="body_row">
122 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt</td>
 125 
                    <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
123 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Lines Of Code</td>
 126 
                 </td>
124 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Unit Tested</td>
 127 
                 <td nowrap class="body_row"><%=rsTemp("modified_stamp")%></td>
125 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autotested</td>
 128 
              </tr>
126 
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Modified</td>
 129 
              <tr class="form_field_bg" id='TGL_<%=BaseId%>' style="display:none;">
127 
            </tr>
 130 
                 <td nowrap class="body_row" colspan="6"><div id='<%=BaseId%>'><%=enumLOADING%></td></div>
128 
 
 131 
              </tr>
129 
            <%
 132 
              <%rsTemp.MoveNext
130 
            OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 133 
           WEnd
131 
 
 134 
           rsTemp.Close
132 
            Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))
 135 
           Set rsTemp = nothing
133 
 
 136 
        End If
134 
            OraDatabase.Parameters.Remove "RTAG_ID"
 137 
        %>
135 
 
 138 
     </table>
136 
            If rsTemp.RecordCount < 1 Then
 139 
  </td>
137 
            %>
 140 
</tr>
138 
               <tr>
 - 
 
139 
                  <td colspan="7" background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
 - 
 
140 
               </tr>
 - 
 
141 
            <%
 - 
 
142 
            Else
 - 
 
143 
 
 - 
 
144 
               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 - 
 
145 
               %>
 - 
 
146 
 
 - 
 
147 
                  <tr>
 - 
 
148 
                     <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
 - 
 
149 
                        <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:block;">
 - 
 
150 
                           <a href="javascript:;" class="txt_linked" onClick="RequestPreviousPackageVersions('?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>', '<%=Request("rtag_id")&"_"&rsTemp("pv_id")%>');">
 - 
 
151 
                              <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 - 
 
152 
                           </a>
 - 
 
153 
                           <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
 - 
 
154 
                              <%=rsTemp("pkg_name")%>
 - 
 
155 
                              <%=VBNEWLine%><%=rsTemp("pkg_version")%>
 - 
 
156 
                           </a>
 - 
 
157 
                        </SPAN>
 - 
 
158 
                        <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;">
 - 
 
159 
                           <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS', 'IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS', 'IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS');">
 - 
 
160 
                              <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
 - 
 
161 
                           </a>
 - 
 
162 
                           <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
 - 
 
163 
                              <%=rsTemp("pkg_name")%>
 - 
 
164 
                              <%=VBNEWLine%><%=rsTemp("pkg_version")%>
 - 
 
165 
                           </a>
 - 
 
166 
                        </SPAN>
 - 
 
167 
                     </td>
 - 
 
168 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
 - 
 
169 
                        <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
 - 
 
170 
                     </td>
 - 
 
171 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("code_lines")%></td>
 - 
 
172 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
 - 
 
173 
                        <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
 - 
 
174 
                     </td>
 - 
 
175 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
 - 
 
176 
                        <%If  IsNull(rsTemp("autotested")) OR rsTemp("autotested") <> "Y" Then %>No<%ElseIf rsTemp("test_count") = "0" Then%>?<%Else%><%=rsTemp("test_count")%><%End If%>
 - 
 
177 
                     </td>
 - 
 
178 
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("modified_stamp")%></td>
 - 
 
179 
                  </tr>
 - 
 
180 
                  <tr>
 - 
 
181 
                     <td nowrap class="body_txt" colspan="3">
 - 
 
182 
                        <div id="DIVRTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;"><%=enumLOADING%></div>
 - 
 
183 
                     </td>
 - 
 
184 
                  </tr>
 - 
 
185 
 
 - 
 
186 
                  <%rsTemp.MoveNext
 - 
 
187 
               WEnd
 - 
 
188 
               rsTemp.Close
 - 
 
189 
               Set rsTemp = nothing
 - 
 
190 
 
 - 
 
191 
            End If
 - 
 
192 
            %>
 - 
 
193 
         </table>
 - 
 
194 
      </td>
 - 
 
195 
   </tr>
 - 
 
196 
</table>
 141 
</table>
197 
<br>
 142 
<br>
198 
 
 - 
 
199 
<%
 143 
<%
200 
Call Destroy_All_Objects
 144 
Call Destroy_All_Objects
201 
%>
 145 
%>
202 
 
 146