<%
'===================================================================
'						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
'----------------------------------------------
%>