Subversion Repositories DevTools

Rev

Rev 5590 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5590 Rev 6052
Line 43... Line 43...
43 
   End If
 43 
   End If
44 
   '---------------------------------------
 44 
   '---------------------------------------
45 
 
 45 
 
46 
 
 46 
 
47 
   '-- Check User access to this application ---
 47 
   '-- Check User access to this application ---
48 
   If NOT objAccessControl.UserApplication ( APPLICATION_ID )  Then
 48 
   If NOT objAccessControl.UserApplication ( APPLICATION_ID ) Then
49 
      If NOT isPopupWindow Then
 49 
      If NOT isPopupWindow Then
50 
         Call OpenInWindow ( "Login.asp?message=1&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
 50 
         Call OpenInWindow ( "Login.asp?message=1&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
51 
      Else
 51 
      Else
52 
         Call OpenInParentWindow ( "Login.asp?message=1&"& objPMod.ComposeURL() )
 52 
         Call OpenInParentWindow ( "Login.asp?message=1&"& objPMod.ComposeURL() )
53 
         Call CloseWindow()
 53 
         Call CloseWindow()
Line 223... Line 223...
223 
'-- rmDebug = rmDebug & "{"& DB_PROJ_ID & ":" & bCanModifyProject &"}"
223 
'-- rmDebug = rmDebug & "{"& DB_PROJ_ID & ":" & bCanModifyProject &"}"
224 
 
 224 
 
225 
'--- Application Run level Check ---
 225 
'--- Application Run level Check ---
226 
Call ApplicationRunlevelCheck ()
 226 
Call ApplicationRunlevelCheck ()
227 
 
 227 
 
228 
 
 - 
 
229 
'--- Update Login Session ---
 228 
'--- Update Login Session ---
230 
Call UpdateLoginSession ()
 229 
Call UpdateLoginSession ()
231 
 
 230 
 
232 
'----------------------------------------------
 231 
'----------------------------------------------
233 
%>
 232 
%>