Subversion Repositories DevTools

<%
'===================================================================
'                                               Menu Options New
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim rsMenuOptions
Dim moQuery
Dim objPopupMenuABTNnew
Dim ItemName
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
Set objPopupMenuABTNnew = New PopupMenuControl
objPopupMenuABTNnew.PopupMenuStyle ReadFile( Server.MapPath("scripts/popup_menu_styles.html") ), "StyleWinXP"
'----------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------
'----------------------------------------------
%>
<%

' ---- New Product menu item ----
ItemName = "pmiNew_Product"
objPopupMenuABTNnew.AddMenuItem         ItemName, NULL
objPopupMenuABTNnew.Text                        ItemName, "Product"
objPopupMenuABTNnew.Link                        ItemName, "javascript:;"
objPopupMenuABTNnew.EventHandler        ItemName, onClickOpenWindow ( "wAddProd.asp?rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL(), "AddProd", 600, 500, "scrollbars=yes,resizable=yes" )  
objPopupMenuABTNnew.Image                       ItemName, "icons/i_product.gif"
' Disable New Product for following
If AT_OS_LEVEL   OR   AT_PROD_LEVEL   Then  
        objPopupMenuABTNnew.Active ItemName, "Y"
Else
        objPopupMenuABTNnew.Active ItemName, "N"
End If

objPopupMenuABTNnew.AddSeparator


' ---- New OS menu item ----
moQuery = " SELECT bt.*  FROM BOS_TYPES bt  ORDER BY bt.bos_order, UPPER(bt.BOS_TYPE)"
Set rsMenuOptions = OraDatabase.DbCreateDynaset( moQuery , ORADYN_DEFAULT )
While ((NOT rsMenuOptions.BOF) AND (NOT rsMenuOptions.EOF))
        ItemName = "pmiOS_"& rsMenuOptions("bos_id")
        objPopupMenuABTNnew.AddMenuItem         ItemName, NULL
        objPopupMenuABTNnew.Text                        ItemName, rsMenuOptions("bos_type")
        objPopupMenuABTNnew.Link                        ItemName, "javascript:;"
        objPopupMenuABTNnew.EventHandler        ItemName, "onClick=""MM_openBrWindow('wEditOs.asp?bos_id="& rsMenuOptions("bos_id") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() &"','EditOs','scrollbars=yes,resizable=yes,width=600,height=350');"""
        objPopupMenuABTNnew.Image                       ItemName, "icons/"& rsMenuOptions("bos_icon")
        ' Disable New OS for following
        If AT_NODE_LEVEL   OR   AT_OS_LEVEL   OR   AT_PROD_LEVEL   Then  
                objPopupMenuABTNnew.Active ItemName, "Y"
        Else
                objPopupMenuABTNnew.Active ItemName, "N"
        End If
        
        rsMenuOptions.MoveNext
WEnd
rsMenuOptions.Close


objPopupMenuABTNnew.AddSeparator


' ---- New Nodes menu item ----
moQuery = " SELECT nt.*  FROM NODE_TYPES nt  ORDER BY nt.node_order, UPPER(nt.NODE_TYPE)"
Set rsMenuOptions = OraDatabase.DbCreateDynaset( moQuery , ORADYN_DEFAULT )
While ((NOT rsMenuOptions.BOF) AND (NOT rsMenuOptions.EOF))
        ItemName = "pmiNODE_"& rsMenuOptions("node_type_id")
        objPopupMenuABTNnew.AddMenuItem         ItemName, NULL
        objPopupMenuABTNnew.Text                        ItemName, rsMenuOptions("node_type")
        objPopupMenuABTNnew.Link                        ItemName, "javascript:;"
        objPopupMenuABTNnew.EventHandler        ItemName, onClickOpenWindow ( "wEditNode.asp?node_type_id="& rsMenuOptions("node_type_id") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL(), "EditNode", 600, 350, "scrollbars=yes,resizable=yes" )  
        objPopupMenuABTNnew.Image                       ItemName, "icons/"& rsMenuOptions("node_icon")
        
        rsMenuOptions.MoveNext
WEnd
rsMenuOptions.Close



'objPopupMenuABTNnew.AllActive = "N"
'objPopupMenuABTNnew.Active "pmiOS_3", "N", NULL

objPopupMenuABTNnew.Render "divMenuOptionsABTNnew"
%>
<%
'------------ RUN AFTER CONTROL RENDER --------
Set objPopupMenuABTNnew = Nothing
Set rsMenuOptions = Nothing
'----------------------------------------------
%>