| Line 63... |
Line 63... |
| 63 |
If NOT oAccessControl.UserLogedIn Then Exit Sub
|
63 |
If NOT oAccessControl.UserLogedIn Then Exit Sub
|
| 64 |
|
64 |
|
| 65 |
'Try getting object from session
|
65 |
'Try getting object from session
|
| 66 |
' DevSystem - will not cache permissions in the Session Object
|
66 |
' DevSystem - will not cache permissions in the Session Object
|
| 67 |
'
|
67 |
'
|
| - |
|
68 |
|
| - |
|
69 |
' Now fully disabled
|
| - |
|
70 |
' Permissions always read fromthe database
|
| - |
|
71 |
' Session variables are a bit sucky
|
| - |
|
72 |
' Permission changes are effective immediatetly
|
| - |
|
73 |
|
| 68 |
If NOT oAccessControl.isDevSystem() AND IsArray(Session(enumUSER_STATIC_PERMISSIONS)) Then
|
74 |
'If NOT oAccessControl.isDevSystem() AND IsArray(Session(enumUSER_STATIC_PERMISSIONS)) Then
|
| 69 |
Call oAccessControl.LoadStaticPermissions ( Session(enumUSER_STATIC_PERMISSIONS) )
|
75 |
' Call oAccessControl.LoadStaticPermissions ( Session(enumUSER_STATIC_PERMISSIONS) )
|
| 70 |
Call oAccessControl.LoadDataPermissions ( Session(enumUSER_DATA_PERMISSIONS) )
|
76 |
' Call oAccessControl.LoadDataPermissions ( Session(enumUSER_DATA_PERMISSIONS) )
|
| 71 |
Exit Sub
|
77 |
' Exit Sub
|
| 72 |
End If
|
78 |
'End If
|
| 73 |
|
79 |
|
| 74 |
OraDatabase.Parameters.Add "USER_ID", oAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
80 |
OraDatabase.Parameters.Add "USER_ID", oAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 75 |
OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
|
81 |
OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 76 |
OraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
|
82 |
OraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
|
| 77 |
|
83 |
|
| Line 80... |
Line 86... |
| 80 |
Set rsAccessControl = OraDatabase.Parameters("RECORD_SET").Value
|
86 |
Set rsAccessControl = OraDatabase.Parameters("RECORD_SET").Value
|
| 81 |
|
87 |
|
| 82 |
If ((NOT rsAccessControl.BOF) AND (NOT rsAccessControl.EOF)) Then
|
88 |
If ((NOT rsAccessControl.BOF) AND (NOT rsAccessControl.EOF)) Then
|
| 83 |
oAccessControl.LoadStaticPermissions rsAccessControl.GetRows()
|
89 |
oAccessControl.LoadStaticPermissions rsAccessControl.GetRows()
|
| 84 |
|
90 |
|
| - |
|
91 |
' Nolonger save in session
|
| 85 |
Session(enumUSER_STATIC_PERMISSIONS) = rsAccessControl.GetRows()
|
92 |
'Session(enumUSER_STATIC_PERMISSIONS) = rsAccessControl.GetRows()
|
| 86 |
|
93 |
|
| 87 |
End If
|
94 |
End If
|
| 88 |
rsAccessControl.Close
|
95 |
rsAccessControl.Close
|
| 89 |
|
96 |
|
| 90 |
' Load Data Permissions
|
97 |
' Load Data Permissions
|
| Line 92... |
Line 99... |
| 92 |
Set rsAccessControl = OraDatabase.Parameters("RECORD_SET").Value
|
99 |
Set rsAccessControl = OraDatabase.Parameters("RECORD_SET").Value
|
| 93 |
|
100 |
|
| 94 |
If ((NOT rsAccessControl.BOF) AND (NOT rsAccessControl.EOF)) Then
|
101 |
If ((NOT rsAccessControl.BOF) AND (NOT rsAccessControl.EOF)) Then
|
| 95 |
oAccessControl.LoadDataPermissions rsAccessControl.GetRows()
|
102 |
oAccessControl.LoadDataPermissions rsAccessControl.GetRows()
|
| 96 |
|
103 |
|
| - |
|
104 |
' Nolonger save in session
|
| 97 |
Session(enumUSER_DATA_PERMISSIONS) = rsAccessControl.GetRows()
|
105 |
'Session(enumUSER_DATA_PERMISSIONS) = rsAccessControl.GetRows()
|
| 98 |
|
106 |
|
| 99 |
End If
|
107 |
End If
|
| 100 |
rsAccessControl.Close
|
108 |
rsAccessControl.Close
|
| 101 |
|
109 |
|
| 102 |
' --- Destroy ---
|
110 |
' --- Destroy ---
|