Subversion Repositories DevTools

Rev

Rev 6181 | Rev 6610 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'   DanglingVersions.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"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login_optional.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim userId
Dim pkgCount
Dim rsQry
Dim Query_String
Dim divId
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<html>
   <head>
      <title>Release Manager</title>
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
      <meta http-equiv="Pragma" content="no-cache">
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
      <script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
      <!--#include file="_jquery_includes.asp"-->
      <!-- TIPS -->
      <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
      <script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
      <!-- DROPDOWN MENUS -->
      <!--#include file="_menu_def.asp"-->
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
      <script language="JavaScript" type="text/javascript">
      <!--
        formTips.tips.h_dangling       = stdTip(300, 'Dangling Versions', 'Dangling package versions are versions of a package that have not been released and are not associated with any Release.' +
                                                                  '<p>These are commonly caused by "Removing" a WIP instead of "Destroying" it.' + 
                                                                  '<p>Please consider destroying these versions.' 
                                                                  );
        //
        //      Load/Hide/Show an Ajax expander
        //      BaseId - Base for two IDs.
        //                       IMG_BaseId - image to to toggle
        //                       BaseId - Div to load data into
        //      url - Url used to load subcontrol
        function ToggleUsedByControl(baseId, url)
        {
                var img, dmode;
                var imgel = MM_findObj("IMG_" + baseId);
                var divel = MM_findObj(baseId);
                var showing = divel.getAttribute("data-show");
                if(showing == 1)
                {
                        img = "images/bt_minus.gif";
                        dmode = 'block';
                        showing = 2
                }
                else if(showing == 2)
                {
                        img = "images/bt_plus.gif";
                        dmode = 'none';
                        showing = 1;
                }
                else
                {
                        img = "images/bt_minus.gif";
                        dmode = 'block';
                        showing = 2;

                        // Set div name for ajax loading
                        ajaxdivname = baseId;

                        //Create the xmlHttp object to use in the request
                        //stateChangeHandler will fire when the state has changed, i.e. data is received back
                        // This is non-blocking (asynchronous)
                        xmlHttp = GetXmlHttpObject(stateChangeHandler);

                        //Send the xmlHttp get to the specified url
                        xmlHttp_Get(xmlHttp, url);
                }
                // Update image and attributes
                imgel.src = img;
                divel.style.display = dmode;
                divel.setAttribute("data-show", showing);
        }
      //-->
      </script>
      <style type="text/css">
      <!--
      .style1 {
         font-family: Arial, Helvetica, sans-serif;
         font-size: 12px;
      }
      .style3 {
         font-size: 11px;
         font-family: tahoma, sans-serif;
      }
      -->
      </style>
   </head>
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
      <!-- HEADER -->
      <!--#include file="_header.asp"-->
      <!-- BODY ---->
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
            <td width="1%" background="images/bg_home_orange.gif" valign="top">
            <!--#include file="_front_explorer.asp"-->
            </td>
            <td rowspan="2" width="1%" valign="top">
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                     <td width="1%">
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                           <tr>
                              <td colspan="3">
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                       <td background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_left.jpg" width="436" height="88"></td>
                                       <td align="right" background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_right.jpg" width="70" height="88"></td>
                                    </tr>
                                 </table>
                              </td>
                              <td background="images/bg_action_norm.gif"></td>
                           </tr>
                           <tr>
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="518"></td>
                              <td width="100%" valign="top" class="body_txt">
                                 <br>
                                 <!-- DANGLING PACKAGES ---------------------------------------------->
                                <%
                                pkgCount = 0
                                Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkNotInProgressSummary.sql"), cint(0))
                                %>
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
                                    <tr>
                                       <td colspan="4" class="body_sect">Dangling Package Versions by User
                                       <%=Quick_Help("h_dangling")%>
                                       </td>
                                    </tr>
                                    <tr>
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User</td>
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
                                    </tr>

                                    <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                                    userId = rsTemp("user_id")
                                    divId = "userId_" & userId
                                   pkgCount = rsTemp("counter")
                                    %>
                                    <tr>
                                       <td nowrap class="form_item">
                                          <a href="javascript:;" class="txt_linked" onClick="ToggleUsedByControl('<%=divId%>','RequestUserDangle.asp?user_id=<%=userId%>');">
                                                <img id=IMG_<%=divId%> src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%>
                                          </a>
                                       </td>
                                       <td nowrap class="body_txt"><%=pkgCount%></td>
                                       <td nowrap class="body_txt"><a href="mailto:<%=rsTemp("user_email")%>"><img src="images/bt_send_email.gif" width="36" height="13" border="0" alt="<%=rsTemp("user_email")%>"></a>
                                    </tr>
                                    <tr>
                                        <td nowrap class="body_txt" colspan="3">
                                             <div id=<%=divId%> style="display:none;"><%=enumLOADING%></div>
                                         </td>
                                    </tr>
                                    <%rsTemp.MoveNext
                                 WEnd
                                 rsTemp.Close
                                 Set rsTemp = nothing%>
                                 </table>
                                 <!-- DANGLING PACKAGES END ------------------------------------------>
                              </td>
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="10"></td>
                           </tr>
                        </table>
                     </td>
                  </tr>
               </table>
            </td>
            <td width="100%">&nbsp;</td>
         </tr>
         <tr>
            <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
            <td>&nbsp;</td>
         </tr>
      </table>
      <!-- FOOTER -->
      <!--#include file="_footer.asp"-->
   </body>
</html>