<%
'=====================================================
' 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"%>
<% 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
Dim bHasDeps : bHasDeps = (pkgInfoHash.Item ("depCount") > 0)
BuildActionButtonLink isActive AND bHasDeps, "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%>
<%Case "Runtime Dependencies"%>
<%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%>
<%' Not currently used %>
<%Case "Used By"%>
<%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%>
<%Case "Patches"%>
<%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%>
<%Case "Release Notes"%>
<%
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"%>
<%Case "Documentation"%>
<%
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')"%>
<%Case "Add Process"%>
<% 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')"%>
<%Case "Add GBE_MACHTYPE"%>
<%BuildActionButtonClick bState, "Add Machine Type", "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')"%>
<%Case "Add GBE_BUILDSTANDARD"%>
<%BuildActionButtonClick bState, "Add Build Standard", "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')"%>
<%Case "Add BM_NAME"%>
<%BuildActionButtonClick isActive, "Add Machine Class", "Insert New Class of Build Machine.",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')"%>
<%Case "Add Project Extension"%>
<%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')"%>
<%Case "Add Package Replica"%>
<%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')"%>
<%Case "Add Licence"%>
<%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')"%>
<%Case "Add VCS"%>
<%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')"%>
<%Case "Add Schedule"%>
<%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')" %>
<%Case "Indefinite Pause"%>
<%BuildActionButtonClick bState, "Set Indefinite Pause", "Indefinite Pause",TRUE, _
"src='icons/tpause.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
"showGlobalProgress();location.href='_setInfinitePause.asp';" %>
<%Case "Resume"%>
<%BuildActionButtonClick bState, "Set Resume", "Resume Processing",TRUE, _
"src='icons/tplay.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
"showGlobalProgress();location.href='_setResume.asp';" %>
<%Case "Add Daemon Instruction"%>
<%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')"%>
<%Case "Daemon Start"%>
|
<%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'",""%>
<%Case "Daemon Pause"%>
|
<%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&"'"%>
<%Case "Daemon Resume"%>
|
<%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&"'"%>
<%Case "Daemon Control All"%>
|
|
<%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&"'"%>
<%Case "Daemon Unavailable"%>
|
<%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'","" %>
<%End Select%>
<%End Sub%>