Subversion Repositories DevTools

Rev

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

Rev 5055 Rev 5061
Line 38... Line 38...
38 
Dim oJSON
 38 
Dim oJSON
39 
Set oJSON = New aspJSON
 39 
Set oJSON = New aspJSON
40 
Dim newitem
 40 
Dim newitem
41 
 
 41 
 
42 
Function canModify
 42 
Function canModify
43 
    canModify = objAccessControl.IsActive("CreateNewProject")
 43 
    canModify = canActionControlInProject("CreateNewProject")
44 
    If NOT canModify Then
 44 
    If NOT canModify Then
45 
        result = -4
 45 
        result = -4
46 
        oJSON.data("error") = 1
 46 
        oJSON.data("error") = 1
47 
        oJSON.data("emsgSummary") = "Permission denied"
 47 
        oJSON.data("emsgSummary") = "Permission denied"
48 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 48 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")