Subversion Repositories DevTools

Rev

Rev 5513 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5513 Rev 5836
Line 3... Line 3...
3 
'						State Options
 3 
'						State Options
4 
'===================================================================
 4 
'===================================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'------------ VARIABLE DEFINITION -------------
 7 
'------------ VARIABLE DEFINITION -------------
8 
Dim rsMenuOptions
 - 
 
9 
Dim moQuery
 8 
Dim moQuery
10 
Dim objPopupMenuStateOptions
 9 
Dim objPopupMenuStateOptions
11 
Dim ItemName
 10 
Dim ItemName
12 
Dim aStateOptionList
 11 
Dim aStateOptionList
13 
Dim AM_StaticObjName
 12 
Dim AM_StaticObjName
Line 86... Line 85...
86
85
87 
End Select
 86 
End Select
88 
 
 87 
 
89 
 
 88 
 
90 
If objAccessControl.IsVisible ( AM_StaticObjName ) Then
 89 
If objAccessControl.IsVisible ( AM_StaticObjName ) Then
91
- 
 
92 
	moQuery = GetQuery ("PopupMenuItemsList.sql")
 - 
 
93 
	moQuery = Replace ( moQuery, "%ITEM_LIST%", Join( aStateOptionList, "','") )
 - 
 
94 
	Set rsMenuOptions = OraDatabase.DbCreateDynaset( moQuery , ORADYN_DEFAULT )
 - 
 
95
- 
 
96 
	If ((NOT rsMenuOptions.BOF) AND (NOT rsMenuOptions.EOF)) Then
 - 
 
97
- 
 
98 
		With objPopupMenuStateOptions
 - 
 
99 
			.LoadRows rsMenuOptions.GetRows()
 - 
 
100
- 
 
101 
			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>"
 90 
    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>"
102
- 
 
103 
			'.AllActive = objAccessControl.UserStaticPermissionValue ( AM_StaticObjName, enumDB_PERMISSION_TYPE_ACTIVE )		' ACCESS CONTROL
 - 
 
104 
			.RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName
 91 
    objPopupMenuStateOptions.RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName
105 
		End With
 - 
 
106
- 
 
107 
	End If
 - 
 
108 
	rsMenuOptions.Close
 - 
 
109
- 
 
110 
End If
 92 
End If
111 
 
 93 
 
112 
 
 94 
 
113 
%>
 95 
%>
114 
<%
 96 
<%
115 
'------------ RUN AFTER CONTROL RENDER --------
 97 
'------------ RUN AFTER CONTROL RENDER --------
116 
Set objPopupMenuStateOptions = Nothing
 98 
Set objPopupMenuStateOptions = Nothing
117 
Set rsMenuOptions = Nothing
 - 
 
118 
'----------------------------------------------
 99 
'----------------------------------------------
119 
%>
 100 
%>
120 

            101