Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|              RequestReleasePackages.asp           |
'|                                                   |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0   ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim PageInfoHash
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set PageInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
%>
<%
'------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------------------ MAIN LINE ---------------------------------
'--------------------------------------------------------------------
%>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
   <tr>
      <td background="images/bg_form_lightbluedark.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:block;">
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLastWeek('?rtag_id=<%=Request("rtag_id")%>&Interval=1', '<%=Request("rtag_id")%>');">
                     <img 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>
               </SPAN>
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:none;">
                  <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');">
                     <img src="images/bt_minus.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>
               </SPAN>
            </td>
         </table>
      </td>
   </tr>
   <tr>
      <td nowrap class="body_txt" colspan="3">
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_WEEK" style="display:none;"><%=enumLOADING%></div>
      </td>
   </tr>


   <tr>
      <td background="images/bg_form_lightbluedark.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:block;">
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLastMonth('?rtag_id=<%=Request("rtag_id")%>&Interval=2', '<%=Request("rtag_id")%>');">
                     <img 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>
               </SPAN>
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:none;">
                  <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');">
                     <img src="images/bt_minus.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>
               </SPAN>
            </td>
         </table>
      </td>
   </tr>
   <tr>
      <td nowrap class="body_txt" colspan="3">
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_1_MONTH" style="display:none;"><%=enumLOADING%></div>
      </td>
   </tr>

   <tr>
      <td background="images/bg_form_lightbluedark.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
            <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
               <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:block;">
                  <a href="javascript:;" class="txt_linked" onClick="RequestTop10ChangesInLast3Months('?rtag_id=<%=Request("rtag_id")%>&Interval=3', '<%=Request("rtag_id")%>');">
                     <img 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>
               </SPAN>
               <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:none;">
                  <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');">
                     <img src="images/bt_minus.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>
               </SPAN>
            </td>
         </table>
      </td>
   </tr>
   <tr>
      <td nowrap class="body_txt" colspan="3">
         <div id="DIVRTAG_<%=Request("rtag_id")%>_TOP10_3_MONTHS" style="display:none;"><%=enumLOADING%></div>
      </td>
   </tr>


   <tr>
      <td background="images/bg_form_lightbluedark.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="1">
            <tr>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Package Version</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Lines Of Code</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Unit Tested</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autotested</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Branches</td>
               <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Modified</td>
            </tr>

            <%
            OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER

            Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0))

            OraDatabase.Parameters.Remove "RTAG_ID"

            If rsTemp.RecordCount < 1 Then
            %>
               <tr>
                  <td colspan="7" background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
               </tr>
            <%
            Else

               While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
               %>

                  <tr>
                     <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
                        <SPAN id="IMG_EXPAND_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:block;">
                           <a href="javascript:;" class="txt_linked" onClick="RequestPreviousPackageVersions('?rtag_id=<%=Request("rtag_id")%>&pv_id=<%=rsTemp("pv_id")%>', '<%=Request("rtag_id")&"_"&rsTemp("pv_id")%>');">
                              <img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
                           </a>
                           <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
                              <%=rsTemp("pkg_name")%>
                              <%=VBNEWLine%><%=rsTemp("pkg_version")%>
                           </a>
                        </SPAN>
                        <SPAN id="IMG_COLLAPSE_RTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;">
                           <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');">
                              <img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3">
                           </a>
                           <a class="txt_linked" href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>">
                              <%=rsTemp("pkg_name")%>
                              <%=VBNEWLine%><%=rsTemp("pkg_version")%>
                           </a>
                        </SPAN>
                     </td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                        <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%>
                     </td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("code_lines")%></td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                        <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%>
                     </td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif">
                        <%If rsTemp("autotested") = "Y" Then%>Yes<%Else%>No<%End If%>
                     </td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("branches")%></td>
                     <td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=EuroDate(rsTemp("modified_stamp"))%></td>
                  </tr>
                  <tr>
                     <td nowrap class="body_txt" colspan="3">
                        <div id="DIVRTAG_<%=Request("rtag_id")%>_<%=rsTemp("pv_id")%>_PREV_PKG_VERS" style="display:none;"><%=enumLOADING%></div>
                     </td>
                  </tr>

                  <%rsTemp.MoveNext
               WEnd
               rsTemp.Close
               Set rsTemp = nothing

            End If
            %>
         </table>
      </td>
   </tr>
</table>
<br>

<%
Call Destroy_All_Objects
%>