Subversion Repositories DevTools

Rev

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

Rev 5514 Rev 5837
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 62... Line 61...
62
61
63 
End Select
 62 
End Select
64 
 
 63 
 
65 
 
 64 
 
66 
If objAccessControl.IsVisible ( AM_StaticObjName ) Then
 65 
If objAccessControl.IsVisible ( AM_StaticObjName ) Then
67
- 
 
68 
	moQuery = GetQuery ("PopupMenuItemsList.sql")
 - 
 
69 
	moQuery = Replace ( moQuery, "%ITEM_LIST%", Join( aStateOptionList, "','") )
 - 
 
70 
	Set rsMenuOptions = OraDatabase.DbCreateDynaset( moQuery , ORADYN_DEFAULT )
 - 
 
71
- 
 
72 
	If ((NOT rsMenuOptions.BOF) AND (NOT rsMenuOptions.EOF)) Then
 - 
 
73
- 
 
74 
		With objPopupMenuStateOptions
 - 
 
75 
			.LoadRows rsMenuOptions.GetRows()
 - 
 
76
- 
 
77 
			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>"
 66 
    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>"
78
- 
 
79 
			'.AllActive = objAccessControl.UserStaticPermissionValue ( AM_StaticObjName, enumDB_PERMISSION_TYPE_ACTIVE )		' ACCESS CONTROL
 - 
 
80 
			.RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName
 67 
    objPopupMenuStateOptions.RenderInOrder "divStateOption_"& StateId, aStateOptionList, objAccessControl, AM_StaticObjName
81 
		End With
 - 
 
82
- 
 
83 
	End If
 - 
 
84 
	rsMenuOptions.Close
 - 
 
85
- 
 
86 
End If
 68 
End If
87 
 
 69 
 
88 
 
 70 
 
89 
%>
 71 
%>
90 
<%
 72 
<%
91 
'------------ RUN AFTER CONTROL RENDER --------
 73 
'------------ RUN AFTER CONTROL RENDER --------
92 
Set objPopupMenuStateOptions = Nothing
 74 
Set objPopupMenuStateOptions = Nothing
93 
Set rsMenuOptions = Nothing
 - 
 
94 
'----------------------------------------------
 75 
'----------------------------------------------
95 
%>
 76 
%>
96 

            77