<%
'===================================================================
' User Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim parApp_id
Dim parUser_id
Dim objUserCollector
Dim objBtnControl
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const PARENT_TITLE = "User Accounts"
Const LIMG_ROLE = "
"
Const LIMG_SPEC_ROLE = "
"
Const LIMG_DRILL_DOWN = "
"
Const LIMG_CONTROL = "
"
Const LIMG_USER_LRG = "
"
Const LIMG_USER_DISABLED_LRG = "
"
Const LIMG_USER = "
"
Const LIMG_USER_DISABLED = "
"
Const LIMG_DISK = "
"
Const LIMG_EDIT = "
"
Const LIMG_REMOVE = "
"
Const LMINUTES_SINCE_LAST_REQUEST = 20 'minutes
'------------ VARIABLE INIT -------------------
parUser_id = Request("user_id")
parApp_id = Request("app_id")
Set objUserCollector = CreateObject("Scripting.Dictionary")
Set objBtnControl = New ActionButtonControl
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ("user_id")
objPMod.PersistInQryString ("app_id")
objPMod.PersistInQryString ("tree")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetUserDetails ( nUser_id, ByRef outobjDetails )
Dim rsQry, query
query = "SELECT * FROM USERS WHERE user_id = "& nUser_id
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
outobjDetails.Item ("user_id") = rsQry("user_id")
outobjDetails.Item ("full_name") = rsQry("full_name")
outobjDetails.Item ("user_name") = rsQry("user_name")
outobjDetails.Item ("domain") = rsQry("domain")
outobjDetails.Item ("is_disabled") = rsQry("is_disabled")
outobjDetails.Item ("user_email") = rsQry("user_email")
Else
Err.Raise 8, "Sub GetUserDetails", "Empty record set returned. nUser_id="& nUser_id
End If
rsQry.Close
Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
If objCollector.Item("is_disabled") = enumDB_YES Then
Response.write LIMG_USER_DISABLED_LRG
Else
Response.write LIMG_USER_LRG
End If
Response.write ""& objCollector.Item("full_name") &" ["& objCollector.Item("user_name") &"]"
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Function UserOnlineIcon ( sUserOnlineIcon, nLastRequest )
If NOT IsNull( sUserOnlineIcon ) Then
If NOT IsNull( nLastRequest ) Then
If (TIMER_VALUE - nLastRequest) < LMINUTES_SINCE_LAST_REQUEST Then
' User is still online
UserOnlineIcon = sUserOnlineIcon
Else
' User has not responded within MINUTES_SINCE_LAST_REQUEST
UserOnlineIcon = NULL
End If
Else
UserOnlineIcon = sUserOnlineIcon
End If
Else
UserOnlineIcon = NULL
End If
End Function
'--------------------------------------------------------------------------------------------------------------------------
Function LastRequest ( nLastRequest )
Dim minDiff
If NOT IsNull( nLastRequest ) Then
minDiff = TIMER_VALUE - nLastRequest
If minDiff < 60 Then
' Show in Minutes
LastRequest = minDiff &" minutes ago"
ElseIf minDiff < 1440 Then
' Show in Hours
LastRequest = (minDiff \ 60) &" hours ago"
ElseIf minDiff < 43800 Then
' Show in Days
LastRequest = (minDiff \ 1440) &" days ago"
ElseIf minDiff < 525600 Then
' Show in Months
LastRequest = (minDiff \ 43800) &" months ago"
Else
' Show in Years
LastRequest = (minDiff \ 525600) &" years ago"
End If
Else
LastRequest = NULL
End If
End Function
'--------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------
%>