Subversion Repositories DevTools

Rev

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

Rev 183 Rev 5061
Line 57... Line 57...
57 
Dim bis_patch: bis_patch = Not IsNull(rsQry("is_patch"))
 57 
Dim bis_patch: bis_patch = Not IsNull(rsQry("is_patch"))
58 
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
 58 
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
59 
Dim bcan_unlock
 59 
Dim bcan_unlock
60 
 
 60 
 
61 
If bis_patch Then
 61 
If bis_patch Then
62 
  bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
 62 
  bcan_unlock = canActionControlInProject("UnlockPatch")
63 
Else
 63 
Else
64 
  bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
 64 
  bcan_unlock = canActionControlInProject("EditCriticalInfoForLockedPackage")
65 
End If
 65 
End If
66 
 
 66 
 
67 
If bcan_unlock Then
 67 
If bcan_unlock Then
68 
  If rsQry("dlocked") = "N" Then
 68 
  If rsQry("dlocked") = "N" Then
69 
    Call LockPackage ()
 69 
    Call LockPackage ()