Subversion Repositories DevTools

Dim pkgCount

      formTips.tips.h_wip       = stdTip(300, 'Work In Progress', 'These are versions of packages that have not yet been Released.' +

                                                                  '<p>The versions are associated with a Release and are considered to be a "Work In Progress".' + 

                                                                  '<p>Consider Releasing or Deleting these versions.' 

                                                                  );

      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 "Deleting" it.' + 

                                                                  '<p>Please consider deleting these versions.' 

                                                                  );

      function RequestUserDangle( paramString, rowId ){

         var requestURL = 'RequestUserDangle.asp';

         // Show div

         ToggleDisplay( 'DIVDANGLE_'+ rowId, 'IMG_EXPAND_DANGLE_' + rowId, 'IMG_COLLAPSE_DANGLE_' + rowId );

         // Set ajax divname

         ajaxdivname = 'DIVDANGLE_'+ rowId;

         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')

         {

            //Append the name to search for to the requestURL

            var url = requestURL + paramString;

            //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);

         }

         else

         {

            //Destroy the data when closed

            //This will force a fresh when its redisplayed

            MM_findObj( ajaxdivname ).innerHTML = '<%=enumLOADING%>'

         }

      }

                                       </td>

                                 <!-- DANGLING PACKAGES ---------------------------------------------->

                                <%

                                pkgCount = 0

                                If objAccessControl.UserLogedIn Then

                                   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER

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

                                   OraDatabase.Parameters.Remove "USER_ID"

                                   userId = rsTemp("user_id")

                                   pkgCount = rsTemp("counter")

                                End If    

                                %>

                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">

                                    <tr>

                                       <td colspan="4" class="body_sect">Dangling Package Versions

                                       <%=Quick_Help("h_dangling")%>

                                       <%If pkgCount > 10 Then%>

                                            <img src='images/a_warning.gif' width='21' height='21' border='0' title='Unreleased packages that are not in use.'>

                                       <%End If%>

                                       </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>

                                    <%If objAccessControl.UserLogedIn Then %>

                                       <tr>

                                          <td nowrap>

                                             <span id="IMG_EXPAND_DANGLE_<%=userId%>" style="display:block;">

                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserDangle('?user_id=<%=userId%>', '<%=userId%>');"><img 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>

                                             </span>

                                             <span id="IMG_COLLAPSE_DANGLE_<%=userId%>" style="display:none;">

                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserDangle('?user_id=<%=userId%>', '<%=userId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>

                                             </span>

                                          </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>

                                          </td>

                                       </tr>

                                       <tr>

                                          <td nowrap class="body_txt" colspan="3">

                                             <div id="DIVDANGLE_<%=userId%>" style="display:none;"><%=enumLOADING%></div>

                                          </td>

                                       </tr>

                                       <tr>

                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>

                                       </tr>

                                       <%

                                       rsTemp.Close

                                       Set rsTemp = nothing

                                    End If%>

                                 </table>

                                 <!-- DANGLING PACKAGES END ------------------------------------------>