Subversion Repositories DevTools

            <%Call objDmSts.RenderDaemonStatus(nRtagId,16)%>

 </table>

Sub SidePanelScript%>

<script>

var pageTriggerDelay = 0;

$(document).ready(function() {

        $('#stateFilter :checkbox').click(function(){

            // Force refresh when check box changes

            // Delay the refesh 1 second so that multiple checkboxes can be ticked

            // Restart the delay if another trigger is invoked.

            $('#cbPending').show();

            $('#updateForm').removeAttr('disabled');

             if ( pageTriggerDelay != 0 ) {

                 clearTimeout(pageTriggerDelay);

                 pageTriggerDelay = 0;

             }

             // Sanity test

             // If no check boxes are check - check all

             //

             if ($('#stateFilter input:checked').length <= 0){

                 jQuery.each($('#stateFilter input'),function(i,val){

                            $(this).prop('checked', true);

                            });

             }

             pageTriggerDelay = setTimeout(function(){

                 $("#updateForm" ).trigger( "click" );

                 }, 1000);

        });

});

</script>

<%End Sub

Sub SidePanel%>

     <!-- ICON STATUS and FILTER -------------------------------------->

     <form name="FilterForm" method="post" action="<%=ScriptName%>">

         <table id='stateFilter' width="118" border="0" align="left" style="margin-top: 38px;">

            <tr class=form_field_bg>

               <td width="26"><span class="body_txt">Icon</span></td>

               <td width="82"><span class="body_txt">Release State </span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_open_mode.gif" width="15" height="13"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_OPEN_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_OPEN_MODE)%>>Open Mode</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_restrictive_mode.gif" width="15" height="15"></td>

               <td nowrap><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_RESTRICTIVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_RESTRICTIVE_MODE)%>>Restrictive Mode</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_ccb_mode.gif" width="15" height="15"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CCB_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CCB_MODE)%>>CCB Mode</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_closed_mode.gif" width="15" height="14"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CLOSED_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CLOSED_MODE)%>>Closed Mode</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_closed_mode_warn.gif" width="15" height="14"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_CLOSED_WARN%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_CLOSED_WARN)%>>Closed Aged</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_preserve_mode.gif" width="15" height="14"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_PRESERVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_PRESERVE_MODE)%>>Preserve Mode</span></td>

            </tr>

            <tr class=form_field_grey_bg>

               <td><img src="images/i_rtag_archive_mode.gif" width="15" height="14"></td>

               <td><span class="body_txt"><input name="listFilter" type="checkbox" value="'<%=enumDB_RELEASE_IN_ARCHIVE_MODE%>'" <%=GetIsListFilterChecked(enumDB_RELEASE_IN_ARCHIVE_MODE)%>>Archive Mode</span></td>

            </tr>

            <%If NOT bIsaTreeView Then%>

             <tr>

                <td>&nbsp;</td>

                <td><input id=updateForm name="btn" type="submit" class="form_btn" value="Update" disabled></td>

             </tr>

             <tr>

                <td colspan=2 class='tcenter nowrap body_rowg display-none' id=cbPending>&nbsp;Update Pending</td>

             </tr>

             <%End If%>

         </table>

        <%=objPMod.ComposeHiddenTags()%>

        <input type="hidden" name="action" value="true">

    </form>

<%End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------

Sub MainPanel%>

 <!-- ACTION BUTTONS ---------------------------------------------->

 <table width="100%"  border="0" cellspacing="0" cellpadding="7" style="background-color:#DAD7C8">

    <tr>

       <td width="1">

          <%

          If bIsaTreeView Then

             Response.write LIMG_TREE_VIEW

          Else

             Response.write LIMG_LIST_VIEW

          End If

          %>

       </td>

       <td width="100%">

          <%

          Dim aBtnsDef

          ' Define action buttons

          aBtnsDef = Array("btnNewRelease", "width=5", "btnMergeManager", "width=5", "btnAdminView", "width=5", "btnNotificationView","width=5", "btnProjectReplication")

          ' Load action buttons from database

          Call objBtnControl.LoadActionButtons ( aBtnsDef, OraDatabase )

          ' Set spacing to minimum between buttons

          objBtnControl.ButtonSpacer = 0

          objBtnControl.ImageHspace = 2

          ' Access Control

          If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )

          If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )

          ' -- Render Buttons

          Call objBtnControl.Render  ( aBtnsDef, objAccessControl )

          %>

       </td>

    </tr>

 </table>

 <!-- ACTION BUTTONS END  ------------------------------------------>

 <!-- RELEASE INFORMATION  ----------------------------------------->

 <table id=releaseTree width="100%"  border="0" cellspacing="10" cellpadding="0">

       <tr>

          <td>

             <!-- TREE VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

             <%If bIsaTreeView Then%>

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

                    <thead>

                       <tr class='form_field_bg' style="height:21px">

                          <th width="25%" class="body_txt">Release Name </th>

                          <%If parProjId <> 2 Then %>

                             <th width="15%" class="body_txt">Created</th>

                             <th width="47%" class="body_txt">Comments</th>

                          <%Else%>

                             <th width="15%" class="body_txt">Created</th>

                             <th width="25%" class="body_txt">Used By </th>

                             <th width="22%" class="body_txt">Comments</th>

                          <%End If%>

                       <th width="1%" nowrap class="body_txt">Lxr</th>

                       <th width="3%" nowrap class="body_txt">Daemon&nbsp;Status</th>

                       </tr>

                    </thead>

                   <%

                   OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER

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

                   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )

                   lastLevel = 0

                   OraDatabase.Parameters.Remove "USER_ID"

                   OraDatabase.Parameters.Remove "PROJ_ID"

                   Dim lastRtagId, parentRtag_id

                   If rsQry.RecordCount > 0 Then

                      Set objDmSts = New DaemonStatus

                      Call objDmSts.GetDaemonStatus(parProjId)

                      While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                         currLevel = CInt(rsQry("hierarchy"))

                         createdBy = rsQry("created_stamp") & " by " & rsQry("creator")

                         lastMod = rsQry("lastModified") 

                         hoverTitle = "State Last Change : "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago" &_

                                 "
Content Last Modified: " & lastMod & ". " & rsQry("LastModified_DAYS")& " Days ago" 

                         If rsQry("userCanDelete") = 1 Then

                             createdBy = createdBy & "<br>Creator can delete"

                         End If

                         %>

                         <tr>

                            <td nowrap>

                               <%Call RenderIndent( lastLevel, currLevel )%>

                               <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>

                               <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" >

                               <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>

                            </td>

                            <td nowrap  valign=top title="<%=hoverTitle%>"><img src="icons/s_note.gif" height="10" width="10" >&nbsp;</img><%=createdBy%>

                            <%

                            If parProjId = 2 Then

                               comment = GetMassRefComments(rsQry("rtag_id"))

                               If comment = "" Then comment = "None."

                               %>

                               <td><%=comment%></td>

                            <%End If%>

                            <td><%=NewLine_To_BR(rsQry("description"))%></td>

                            <td nowrap valign="top"><%Call RenderLxrState() %></td>

                            <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%></td>

                         </tr>

                         <%

                         lastLevel = currLevel

                         rsQry.MoveNext

                      WEnd

                      Set objDmSts = Nothing

                   End If

                   rsQry.Close

                   Set rsQry = Nothing

                   %>

                </table>

             <!-- LIST VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

             <%Else%>

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

                    <thead>

                       <tr'>

                          <th width="1%">&nbsp;</th>

                          <th width="20%" >Release Name </th>

                          <th width="10%" >Created</th>

                          <%If parProjId <> 2 Then %>

                             <th width="47%" >Comments</th>

                          <%Else%>

                             <th width="24%" >Used By </th>

                             <th width="22%" >Comments</th>

                          <%End If%>

                          <th width="1%" title="LXR Support enabled">Lxr</th>

                          <th width="3%">Daemon Status</th>

                       </tr>

                    </thead>

                   <%

                      OraDatabase.Parameters.Add "PROJ_ID",  parProjId,                ORAPARM_INPUT, ORATYPE_NUMBER

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

                      rsQryStr = GetQuery ("ReleaseVersionList.sql")

                      rsQryStr = Replace(rsQryStr, "/*SHOW_FILTER*/", parShowFilter)

                      Set rsQry = OraDatabase.DbCreateDynaset( rsQryStr, ORADYN_DEFAULT )

                      OraDatabase.Parameters.Remove "USER_ID"

                      OraDatabase.Parameters.Remove "PROJ_ID"

                      If rsQry.RecordCount > 0 Then

                         Set objDmSts = New DaemonStatus

                         Call objDmSts.GetDaemonStatus(parProjId)

                         While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                            createdBy = rsQry("created_stamp") & " by " & rsQry("creator")

                            lastMod = rsQry("LastModified")

                            hoverTitle = "State Last Change : "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago" &_

                                    "
Content Last Modified: " & lastMod & ". " & rsQry("LastModified_DAYS")& " Days ago" 

                            If rsQry("userCanDelete") = 1 Then

                                createdBy = createdBy & "<br>Creator can delete"

                            End If

                            %>

                            <tr>

                               <td valign="top">

                                  <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>

                               </td>

                               <td nowrap valign="top">

                                  <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" >

                                  <%=ReleaseIcon( rsQry("official"))%>&nbsp;<%=rsQry("rtag_name")%></a>

                               </td>

                               <td nowrap  valign=top title="<%=hoverTitle%>"><img src="icons/s_note.gif" height="10" width="10" >&nbsp;</img><%=createdBy%>

                               <%

                               If parProjId = 2 Then

                                  comment = GetMassRefComments(rsQry("rtag_id"))

                                  If comment = "" Then comment = "None."

                                  %>

                                    <td><%=comment%></td>

                               <%End If%>

                               <td><%=NewLine_To_BR(  rsQry("description")   )%></td>

                               <td nowrap valign="top"><%Call RenderLxrState() %></td>

                               <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%>

                               </td>

                            </tr>

                            <%

                            rsQry.MoveNext

                         WEnd

                         Set objDmSts = Nothing

                      End If

                      rsQry.Close

                      Set rsQry = Nothing

                      %>

                </table>

             <%End If%>

             <!-- LIST VIEW END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

             <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->

             <!--#include file="messages/_msg_inline.asp"-->

             <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

          </td>

       </tr>

 </table>

<%End Sub

      ' Redirect to the current page so that a refesh will not ' cause a form re-submit.

<%Call SidePanelScript%>