Subversion Repositories DevTools

<%
'=====================================================
'               Action Buttons
'=====================================================
Sub Action_Buttons ( SSwithTab )
    Call Action_Buttons_State(SSwithTab, TRUE) 
End Sub

Sub Action_Buttons_State ( SSwithTab, bState )
   Dim isClosed, isSDK, isActive
   isClosed = (releaseIsClosed(ReleaseMode))
   isActive = TRUE

   Select Case SSwithTab%>
   <%Case "Build Dependencies"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%  isActive = NOT isClosed AND NOT pkgInfoHash.Item ("is_sdkpkg") AND ( (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") OR criticalSectionIsEditable )
                BuildActionButtonLink isActive, "Add", "Add dependency to the list.", _
                                         "src='images/i_add_deps.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
                                         "form_search_pkgs.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&add_type=" & enum_ADD_DEPENDENCIES

                BuildActionButtonLink isActive, "Edit", "Edit dependency list.", _
                                         "src='images/i_edit_deps.gif' width='23' height='24' align='absmiddle' border='0' hspace='3'", _
                                         "form_edit_deps.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id

                BuildActionButtonLink isActive, "Import", "Import dependency list from your build file.", _
                                         "src='images/i_import_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
                                         "form_update_"&Get_Devl_Environment&"_dependencies.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id

                BuildActionButtonLink TRUE, "Export", "Export this dependency list to be used in your build file.", _
                                         "src='images/i_export_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
                                         "form_export_"&Get_Devl_Environment&"_dependencies.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id%>
         </tr>
      </table>

   <%Case "Runtime Dependencies"%>
         <!-- Runtime Dependencies -->
         <table width="10" border="0" cellspacing="10">
            <tr>
                <%isActive = IsNull(pkgInfoHash.Item ("is_patch")) AND NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") OR criticalSectionIsEditable)
                  BuildActionButton isActive, "Add", "Add runtime dependency to the list.", _
                                         "src='images/i_add_deps.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
                                         "form_search_pkgs.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&add_type=" & enum_ADD_RUNTIME_DEPENDENCIES%>
            </tr>
         </table>
         <!-- END Runtime Dependencies -->

     <%' Not currently used %>
     <%Case "Used By"%>
         <table width="10" border="0" cellspacing="10">
            <tr>
                <%isActive = IsNull(pkgInfoHash.Item ("is_patch"))
                  BuildActionButton isActive, "Show All", "Show the complete list packages that use this package", _
                                         "src='images/i_used_by_large.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
                                         "used_by_all.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id

                  BuildActionButton isActive, "Show All Depends", "Show the complete list packages that are requred to build this package", _
                                         "src='images/i_used_by_large.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
                                         "dependencies_all.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id%>
            </tr>
         </table>

   <%Case "Patches"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%If NOT isClosed AND NOT pkgInfoHash.Item ("is_sdkpkg") AND (pkgInfoHash.Item ("dlocked") = "Y") Then

                BuildActionButtonClick TRUE, "Add", "Add a patch to this package.", FALSE, _
                                             "src='images/i_add_patch.gif' width='23' height='25' align='absmiddle' border='0' hspace='3'", _
                                             "MM_openVixIFrame('_wform_new_patch.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','New Patch')"

                BuildActionButtonClick TRUE, "Roll-up Obsolete Patches", "Obsolete patches in one go.", FALSE, _
                                             "src='images/abtn_obsolete_patch.gif' width='23' height='25' align='absmiddle' border='0' hspace='3'", _
                                             "MM_openVixIFrame('_wform_obsolete_all_patches.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Obsolete Patches')"

               If canShowControlInProject("ReleasePatch") Then
                    BuildActionButtonClick isActive, "Make Release Bulk Patches", "Make Release patches in one go.", FALSE, _
                                             "src='images/abtn_make_release_bulk_patches.gif' width='23' height='25' align='absmiddle' border='0' hspace='3'", _
                                             "MM_openVixIFrame('_wform_make_release_bulk_patches.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Bulk Patch Release')"
               End If
            End If%>
         </tr>
      </table>

   <%Case "Release Notes"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%
                IsActive = (pkgInfoHash.Item ("dlocked") = "Y") AND (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") < 1) AND NOT IsNull(pkgInfoHash.Item ("release_notes_info"))
                BuildActionButtonLink isActive, "Download", "Download full release notes.", _
                                             "src='images/btn_download.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
                                             HTTP_PKG_ARCHIVE & pkgInfoHash.Item ("release_notes_info")

                IsActive = canActionControlInProject("EditCriticalInfoForLockedPackage") AND NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "Y") AND (pkgInfoHash.Item ("release_notes_info") <> enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE))
                BuildActionButton isActive, "Regenerate Notes", "Regenerate Release Notes.", _
                                             "src='images/i_sync_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
                                             "fixed_issues.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"&resetNotes=1"%>
         </tr>
      </table>

   <%Case "Documentation"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
          <%
            IsActive = (NOT isClosed AND NOT isSDK) OR canActionControlInProject("EditCriticalInfoForLockedPackage") 
            BuildActionButtonClick isActive, "Import From Document Repository", "Import document details from ERG document repository.",FALSE, _
                                        "src='images/i_import_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
                                        "MM_openVixIFrame('_wform_import_docs.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Import Documents')"%>
         </tr>
      </table>

   <%Case "Add Process"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%  isActive = NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R"))  
                BuildActionButtonClick isActive, "Add Process", "Insert processes associated with the package.",FALSE, _
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                        "MM_openVixIFrame('wAddProc.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Add Process')"%>
         </tr>
      </table>

   <%Case "Add GBE_MACHTYPE"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Add", "Insert New GBE_MACHTYPE.",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddMachtype.asp','Add Machine Type')"%>
         </tr>
      </table>

   <%Case "Add GBE_BUILDSTANDARD"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Add", "Insert New Build Standard.",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddBuildStandard.asp','Add Build Standard')"%>
         </tr>
      </table>


   <%Case "Add BM_NAME"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick isActive, "Add", "Insert New BM_NAME.",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddMachclass.asp','Add New Class of Build Machine')"%>
         </tr>
      </table>

   <%Case "Add Project Extension"%>
      <table width="100%" border="0" cellspacing="0" ID="Table1">
         <tr>
            <%BuildActionButtonClick bState, "Add Project Extension", "Insert New Project Extension",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddProjectExtension.asp','Add Project Extension')"%>
         </tr>
      </table>

   <%Case "Add Build Machine"%>
      <table width="10" border="0" cellspacing="0" ID="Table1">
         <tr>
            <%BuildActionButtonClick bState, "Add Build Machine", "Insert New Build Machine",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddBuildMachine.asp','Add Build Machine')"%>
         </tr>
      </table>

   <%Case "Add Package Replica"%>
      <table width="10" border="0" cellspacing="0" ID="Table1">
         <tr>
            <%BuildActionButtonClick bState, "Add Package Replica", "Insert New Package Replica.", TRUE, _
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                        "MM_openVixIFrame('wAddPkgReplica.asp','Add Package Replica')"%>
         </tr>
      </table>

   <%Case "Add Licence"%>
      <table width="100%" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Add Licence", "Insert New Licence",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddLicence.asp','Add Licence')"%>
         </tr>
      </table>

   <%Case "Add VCS"%>
      <table width="100%" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Add VCS", "Insert New VCS",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddVCS.asp','Add New VCS')"%>
         </tr>
      </table>

   <%Case "Add Daemon"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%BuildActionButtonClick bState, "Add Daemon", "Insert New Daemon",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddDaemon.asp?rtag_id="&parRtag_id&"','Add Build Daemon')"%>
         </tr>
      </table>

   <%Case "Add Schedule"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Add Schedule", "Insert New Schedule",TRUE, _
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                     "MM_openVixIFrame('wAddSchedule.asp','Add a new Schedule')" %>
         </tr>
      </table>

   <%Case "Indefinite Pause"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Set Indefinite Pause", "Indefinite Pause",TRUE, _
                                     "src='icons/tpause.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
                                     "location.href='_setInfinitePause.asp';" %>
         </tr>
      </table>

   <%Case "Resume"%>
      <table width="10" border="0" cellspacing="0">
         <tr>
            <%BuildActionButtonClick bState, "Set Resume", "Resume Processing",TRUE, _
                                     "src='icons/tplay.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
                                     "location.href='_setResume.asp';" %>
         </tr>
      </table>

   <%Case "Add Daemon Instruction"%>
      <table width="10" border="0" cellspacing="10">
         <tr>
            <%BuildActionButtonClick bState, "Add Daemon Instruction", "Insert New Daemon Instruction.", TRUE, _
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
                                        "MM_openVixIFrame('wAddDaemonInstruction.asp','Insert New Daemon Instruction')"%>
         </tr>
      </table>

   <%Case "Daemon Start"%>
      <table border="0" cellspacing="0" cellpadding="0">
         <!-- Daemon Start -->
         <tr>
            <td valign=top>
               <img src="icons/tstopped.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Disabled">
            </td>
            <%BuildActionButtonClick bState, "", "Enable Daemon", FALSE, _
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonResume.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>

            <%BuildActionButton FALSE, "", "Pause Daemon", "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>

            <%BuildActionButton FALSE, "", "Disable Daemon", "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
         </tr>
      </table>

   <%Case "Daemon Pause"%>
      <table border="0" cellspacing="0" cellpadding="0">
         <!-- Daemon Pause -->
         <tr>
            <td valign=top>
               <img src="icons/tplayed.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Enabled">
            </td>
            <%BuildActionButton FALSE, "", "Enable Daemon", "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", ""%>

            <%BuildActionButtonClick bState, "", "Pause Daemon", FALSE, _
                                     "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonPause.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>

            <%BuildActionButtonClick bState, "", "Disable Daemon", FALSE, _
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonDisable.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>
         </tr>
      </table>

   <%Case "Daemon Resume"%>
      <table border="0" cellspacing="0" cellpadding="0">
         <!-- Daemon Resume -->
         <tr>
            <td valign=top>
               <img src="icons/tpaused.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Paused">
            </td>
            <%BuildActionButtonClick bState, "", "Enable Daemon", FALSE, _
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonResume.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName &"'"%>

            <%BuildActionButton FALSE, "", "Pause Daemon", "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>

            <%BuildActionButtonClick bState, "", "Disable Daemon", FALSE, _
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonDisable.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>
         </tr>
      </table>

   <%Case "Daemon Control All"%>
      <table border="0" cellspacing="0" cellpadding="0">
         <!-- Daemon Control All -->
         <tr>
            <td valign=top>
               <img src=icons/tpaused.gif width="16" height="16" border="0" vspace=2 hspace="5" style="visibility:hidden">
            </td>
            <%BuildActionButtonClick bState, "", "Enable Daemons", FALSE, _
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonResume.asp?rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>

            <%BuildActionButtonClick bState, "", "Pause Daemons", FALSE, _
                                     "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonPause.asp?rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>

            <%BuildActionButtonClick bState, "", "Disable Daemons", FALSE, _
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
                                     "location.href='_setDaemonDisable.asp?rtag_id="&parRtagId&"&rfile="&scriptName&"'"%>
         </tr>
      </table>

   <%Case "Daemon Unavailable"%>
      <table border="0" cellspacing="0" cellpadding="0">
         <!-- Daemon StartUnavailable -->
         <tr>
            <td valign=top>
               <img src=icons/tpaused_notfound.gif width="16" height="16" border="0" vspace=2 hspace="5">
            </td>
            <%BuildActionButton FALSE, "", "Enable Daemons",  "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", ""%>
            <%BuildActionButton FALSE, "", "Pause Daemons",   "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
            <%BuildActionButton FALSE, "", "Disable Daemons", "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'","" %>
         </tr>
      </table>

   <%End Select%>
<%End Sub%>
<%
'------------------------------------------------------------------------------
'   Helper routine to create buttons and disabled buttons
'   Treat the action an href - link the user can see and potentiall open in another tab
'
Sub BuildActionButtonLink(bState, sText, sTitle, sImage, sRef)
 %>
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
    <%If bState Then%>
    <a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>
    <%Else%>
    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
    <%End If%>
</td>
<%End Sub
'------------------------------------------------------------------------------
'   Helper routine to create buttons and disabled buttons
'   Treat te ref as a page to goto, but don't use href
'
Sub BuildActionButton(bState, sText, sTitle, sImage, sRef)
 %>
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
    <%If bState Then%>
    <span onClick="location.href='<%=sRef%>'" class="pointer abtnItem"><img <%=sImage%> ><%=sText%></span>
    <%Else%>
    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
    <%End If%>
</td>
<%End Sub
'------------------------------------------------------------------------------
'   Helper routine to create buttons and disabled buttons
'   Tack a onClick operation
'
Sub BuildActionButtonClick(bState, sText, sTitle, isBlue, sImage, sClick)
 Dim sStyle : sStyle = ""
 %>
<td align="right" nowrap valign="bottom" title="<%=sTitle%>">
    <%If bState Then%>
    <%If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
    <span onClick="<%=sClick%>" class="pointer abtnItem"  style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
    <%Else%>
    <%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
    <span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
    <%End If%>
</td>
<%End Sub%>