Subversion Repositories DevTools

Rev

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

Rev 5102 Rev 5103
Line 207... Line 207...
207 
Function setActiveProject(proj_id)
 207 
Function setActiveProject(proj_id)
208 
 
 208 
 
209 
    setActiveProject = DB_PROJ_ID
 209 
    setActiveProject = DB_PROJ_ID
210 
    DB_PROJ_ID = proj_id
 210 
    DB_PROJ_ID = proj_id
211 
    bCanModifyProject = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")
 211 
    bCanModifyProject = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")
212 
    rmDebug = rmDebug & "{"& DB_PROJ_ID & ":" & bCanModifyProject &"}"
212 
    '--rmDebug = rmDebug & "{"& DB_PROJ_ID & ":" & bCanModifyProject &"}"
213 
End Function
 213 
End Function
214 
 
 214 
 
215 
%>
 215 
%>
216 
<%
 216 
<%
217 
'------------ RUN BEFORE CONTROL RENDER -------
 217 
'------------ RUN BEFORE CONTROL RENDER -------