Subversion Repositories DevTools

Rev

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

Rev 5299 Rev 5345
Line 85... Line 85...
85 
 
 85 
 
86 
      IsApplicationRunning = mbIsApplicationRunning
 86 
      IsApplicationRunning = mbIsApplicationRunning
87 
   End Property
 87 
   End Property
88 
 
 88 
 
89 
   Public Property Get isDevSystem()
 89 
   Public Property Get isDevSystem()
90 
      isDevSystem = InStr(OraDatabase.DatabaseName,"RELMANU1") > 0
 90 
      isDevSystem = IsEmpty(Application("LiveSystem"))
91 
   End Property
 91 
   End Property
92 
 
 92 
 
93 
   '-----------------------------------------------------------------------------------------------------------------
 93 
   '-----------------------------------------------------------------------------------------------------------------
94 
   Public Function UserApplication ( nAppId )
 94 
   Public Function UserApplication ( nAppId )
95 
      UserApplication = FALSE
 95 
      UserApplication = FALSE
Line 342... Line 342...
342 
 
 342 
 
343 
      moOraDatabase.Parameters.Remove "USER_ID"
 343 
      moOraDatabase.Parameters.Remove "USER_ID"
344 
      rsQry.Close
 344 
      rsQry.Close
345 
      Set rsQry = Nothing
 345 
      Set rsQry = Nothing
346 
 
 346 
 
347 
 
 - 
 
348 
      '--- Check if User is still Loged on ---
 347 
      '--- Check if User is still Logged on ---
349 
      If is_Online = "Y" Then
 348 
      If is_Online = "Y" Then
350 
         Call SessionsAndCookieSetup ( sUserId )
 349 
         Call SessionsAndCookieSetup ( sUserId )
351 
 
 - 
 
352 
      End If
 350 
      End If
353 
 
 351 
 
354 
 
 - 
 
355 
   End Function
 352 
   End Function
356 
   '-----------------------------------------------------------------------------------------------------------------
 353 
   '-----------------------------------------------------------------------------------------------------------------
357 
   Public Sub LogonUser ( sUserName, sUserPassword )
 354 
   Public Sub LogonUser ( sUserName, sUserPassword )
358 
      Dim rsQry, query, sMessage
 355 
      Dim rsQry, query, sMessage
359 
      sMessage = NULL
 356 
      sMessage = NULL
Line 392... Line 389...
392 
 
 389 
 
393 
               ' Tag user login
 390 
               ' Tag user login
394 
               Call TagLogon ( rsQry )
 391 
               Call TagLogon ( rsQry )
395 
 
 392 
 
396 
            End If
 393 
            End If
397 
 
 - 
 
398 
 
 - 
 
399 
         End If
 394 
         End If
400 
 
 395 
 
401 
      Else
 396 
      Else
402 
         ' User Not Found !
 397 
         ' User Not Found !
403 
         sMessage = "Account <b>"& sUserName &"</b> Not Found!"
 398 
         sMessage = "Account <b>"& sUserName &"</b> Not Found!"
Line 408... Line 403...
408 
         '-- Raise Exception --
 403 
         '-- Raise Exception --
409 
         Err.Raise 8, sMessage, "Make sure your Username is correct <br>OR <br>Please go back and register if you are new user. "
 404 
         Err.Raise 8, sMessage, "Make sure your Username is correct <br>OR <br>Please go back and register if you are new user. "
410 
 
 405 
 
411 
      End If
 406 
      End If
412 
      '--------------------------
 407 
      '--------------------------
413 
 
 - 
 
414 
 
 - 
 
415 
 
 - 
 
416 
 
 - 
 
417 
      rsQry.Close()
 408 
      rsQry.Close()
418 
      Set rsQry = Nothing
 409 
      Set rsQry = Nothing
419 
   End Sub
 410 
   End Sub
420 
   '-----------------------------------------------------------------------------------------------------------------
 411 
   '-----------------------------------------------------------------------------------------------------------------
421 
   Public Function RequiresPasswordUpdate ( sUserName )
 412 
   Public Function RequiresPasswordUpdate ( sUserName )
Line 603... Line 594...
603 
 
 594 
 
604 
   End Sub
 595 
   End Sub
605 
   '-----------------------------------------------------------------------------------------------------------------
 596 
   '-----------------------------------------------------------------------------------------------------------------
606 
   Private Sub LoginTrail ( nEvent, sUserName, sMessage )
 597 
   Private Sub LoginTrail ( nEvent, sUserName, sMessage )
607 
 
 598 
 
608 
      moOraDatabase.Parameters.Add "EVENT_ENUM",         nEvent,       ORAPARM_INPUT, ORATYPE_NUMBER
 599 
      moOraDatabase.Parameters.Add "EVENT_ENUM",        nEvent,                 ORAPARM_INPUT, ORATYPE_NUMBER
609 
      moOraDatabase.Parameters.Add "LOGIN_USER_NAME",   sUserName,       ORAPARM_INPUT, ORATYPE_VARCHAR2
 600 
      moOraDatabase.Parameters.Add "LOGIN_USER_NAME",   sUserName,              ORAPARM_INPUT, ORATYPE_VARCHAR2
610 
      moOraDatabase.Parameters.Add "CLIENT_IP",         Request.ServerVariables("REMOTE_ADDR"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
 601 
      moOraDatabase.Parameters.Add "CLIENT_IP",         Request.ServerVariables("REMOTE_ADDR"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
611 
      moOraDatabase.Parameters.Add "APPLICATION_ID",      APPLICATION_ID,       ORAPARM_INPUT, ORATYPE_NUMBER
 602 
      moOraDatabase.Parameters.Add "APPLICATION_ID",    APPLICATION_ID,         ORAPARM_INPUT, ORATYPE_NUMBER
612 
      moOraDatabase.Parameters.Add "LOGIN_COMMENTS",      sMessage,       ORAPARM_INPUT, ORATYPE_VARCHAR2
 603 
      moOraDatabase.Parameters.Add "LOGIN_COMMENTS",    sMessage,               ORAPARM_INPUT, ORATYPE_VARCHAR2
613 
 
 604 
 
614 
      objEH.TryORA ( moOraSession )
 605 
      objEH.TryORA ( moOraSession )
615 
      On Error Resume Next
 606 
      On Error Resume Next
616 
 
 607 
 
617 
      moOraDatabase.ExecuteSQL _
 608 
      moOraDatabase.ExecuteSQL _