Subversion Repositories DevTools

<%
'===================================================================
'                                               State Options
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim moQuery
Dim objPopupMenuStateOptions
Dim ItemName
Dim aStateOptionList
Dim AM_StaticObjName
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
Set objPopupMenuStateOptions = New PopupMenuControl
objPopupMenuStateOptions.PopupMenuStyle ReadFile( Server.MapPath("scripts/popup_menu_styles.html") ), "StyleWinXP"
'----------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------
'----------------------------------------------
%>
<%
Select Case CInt( StateTypeEnum )
        Case enumDB_STATE_TYPE_BOM_CREATOR
                aStateOptionList = Array( "pmiUnDeployView", _
                                                                  enumSEPARATOR_LABEL, _                                        
                                                                  "pmiNewBom", _
                                                                  "pmiDestroyBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiLockBom", _
                                                                  "pmiUnlockBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiVersionTree", _
                                                                  "pmiImportExportBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiReleaseTo" )
                
                AM_StaticObjName = "pmoCreator"
                
        Case enumDB_STATE_TYPE_BOM_INTEGRATOR
                aStateOptionList = Array( "pmiNewBom", _
                                                                  "pmiDestroyBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiLockBom", _
                                                                  "pmiUnlockBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiVersionTree", _
                                                                  "pmiImportExportBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiReleaseTo" )
                
                AM_StaticObjName = "pmoIntegrator"              
                
        Case enumDB_STATE_TYPE_BOM_LOCAL_TESTER
                aStateOptionList = Array( "pmiAcceptBom", _
                                                                  "pmiRejectBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiVersionTree", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiReleaseTo" )
                
                AM_StaticObjName = "pmoTester"
                
        Case enumDB_STATE_TYPE_BOM_EXTERNAL_TESTER
                                aStateOptionList = Array( _
                                                                  "pmiAcceptBom", _
                                                                  "pmiRejectBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiVersionTree", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiReleaseTo" )
                
                AM_StaticObjName = "pmoExternalTester"

                
        Case enumDB_STATE_TYPE_BOM_PRODUCTION
                                aStateOptionList = Array( _
                                                                  "pmiAcceptBom", _
                                                                  "pmiRejectBom", _
                                                                  enumSEPARATOR_LABEL, _
                                                                  "pmiVersionTree" )
                
                AM_StaticObjName = "pmoProduction"              
        
End Select


If objAccessControl.IsVisible ( AM_StaticObjName ) Then
    Response.write "<td width='100%' valign='top'><a href='javascript:;' onClick=""ToggleDisplay('divStateOption_"& StateId &"');""><img src='icons/b_options.gif' alt='Options...' width='12' height='10' border='0'></a>"
    objPopupMenuStateOptions.RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName
End If


%>
<%
'------------ RUN AFTER CONTROL RENDER --------
Set objPopupMenuStateOptions = Nothing
'----------------------------------------------
%>