| Line 233... |
Line 233... |
| 233 |
End If
|
233 |
End If
|
| 234 |
|
234 |
|
| 235 |
|
235 |
|
| 236 |
Next
|
236 |
Next
|
| 237 |
|
237 |
|
| - |
|
238 |
'Response.write "<br>"
|
| 238 |
'Response.write "mobjRowPermissions.Keys="& Join ( mobjRowPermissions.Keys, ", ") &"<br>"
|
239 |
'Response.write "mobjRowPermissions.Keys="& Join ( mobjRowPermissions.Keys, ", ") &"<br>"
|
| 239 |
'Response.write "mobjRowPermissions.Items="& Join ( mobjRowPermissions.Items, ", ") &"<br>"
|
240 |
'Response.write "mobjRowPermissions.Items="& Join ( mobjRowPermissions.Items, ", ") &"<br>"
|
| 240 |
'Response.write "mobjTablePermissions.Keys="& Join ( mobjTablePermissions.Keys, ", ") &"<br>"
|
241 |
'Response.write "mobjTablePermissions.Keys="& Join ( mobjTablePermissions.Keys, ", ") &"<br>"
|
| 241 |
'Response.write "mobjTablePermissions.Items="& Join ( mobjTablePermissions.Items, ", ") &"<br>"
|
242 |
'Response.write "mobjTablePermissions.Items="& Join ( mobjTablePermissions.Items, ", ") &"<br>"
|
| 242 |
End Sub
|
243 |
End Sub
|
| Line 272... |
Line 273... |
| 272 |
End Sub
|
273 |
End Sub
|
| 273 |
'-----------------------------------------------------------------------------------------------------------------
|
274 |
'-----------------------------------------------------------------------------------------------------------------
|
| 274 |
Public Sub LoadStaticPermissions ( aRows )
|
275 |
Public Sub LoadStaticPermissions ( aRows )
|
| 275 |
Dim numOfRows, rowNum
|
276 |
Dim numOfRows, rowNum
|
| 276 |
Dim InxObjName, InxPermissionType, InxPermission
|
277 |
Dim InxObjName, InxPermissionType, InxPermission
|
| - |
|
278 |
Dim dKey, dValue
|
| 277 |
|
279 |
|
| 278 |
InxObjName = 0
|
280 |
InxObjName = 0
|
| 279 |
InxPermissionType = 1
|
281 |
InxPermissionType = 1
|
| 280 |
InxPermission = 2
|
282 |
InxPermission = 2
|
| 281 |
|
283 |
|
| - |
|
284 |
'Response.write "<br>"
|
| 282 |
numOfRows = UBound( aRows, 2 )
|
285 |
numOfRows = UBound( aRows, 2 )
|
| 283 |
|
286 |
|
| 284 |
For rowNum = 0 To numOfRows
|
287 |
For rowNum = 0 To numOfRows
|
| 285 |
|
- |
|
| 286 |
'Response.write " "& aRows( InxObjName, rowNum ) &"_"& aRows( InxPermissionType, rowNum ) &"="& CStr( aRows( InxPermission, rowNum ) ) &"<br>"
|
288 |
dKey = aRows( InxObjName, rowNum ) &"_"& aRows( InxPermissionType, rowNum )
|
| - |
|
289 |
dValue = CStr( aRows( InxPermission, rowNum ) )
|
| 287 |
'Response.write "--"& mobjStaticControl.Count &"<br>"
|
290 |
mobjStaticControl.Add ( dKey ), dValue
|
| 288 |
|
- |
|
| 289 |
mobjStaticControl.Add ( aRows( InxObjName, rowNum ) &"_"& aRows( InxPermissionType, rowNum ) ), CStr( aRows( InxPermission, rowNum ) )
|
291 |
'Response.write "--"& mobjStaticControl.Count & " "& dKey &" = "& dValue &"<br>"
|
| 290 |
|
- |
|
| 291 |
Next
|
292 |
Next
|
| 292 |
|
293 |
|
| 293 |
|
294 |
|
| 294 |
End Sub
|
295 |
End Sub
|
| 295 |
'-----------------------------------------------------------------------------------------------------------------
|
296 |
'-----------------------------------------------------------------------------------------------------------------
|
| Line 299... |
Line 300... |
| 299 |
|
300 |
|
| 300 |
'-- Kill Any pervious User Permissions stored in session --
|
301 |
'-- Kill Any pervious User Permissions stored in session --
|
| 301 |
Session.Contents.Remove(enumUSER_STATIC_PERMISSIONS)
|
302 |
Session.Contents.Remove(enumUSER_STATIC_PERMISSIONS)
|
| 302 |
Session.Contents.Remove(enumUSER_DATA_PERMISSIONS)
|
303 |
Session.Contents.Remove(enumUSER_DATA_PERMISSIONS)
|
| 303 |
|
304 |
|
| 304 |
'--- Get if user is loged on from DB ---
|
305 |
'--- Get if user is logged on from DB ---
|
| 305 |
moOraDatabase.Parameters.Add "USER_ID", sUserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
306 |
moOraDatabase.Parameters.Add "USER_ID", sUserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 306 |
|
307 |
|
| 307 |
query = "SELECT usr.IS_ONLINE FROM USERS usr WHERE usr.USER_ID = :USER_ID"
|
308 |
query = "SELECT usr.IS_ONLINE FROM USERS usr WHERE usr.USER_ID = :USER_ID"
|
| 308 |
Set rsQry = moOraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
309 |
Set rsQry = moOraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
| 309 |
|
310 |
|