Subversion Repositories DevTools

Rev

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

Rev 183 Rev 5061
Line 68... Line 68...
68 
Dim bis_patch: bis_patch = Not IsNull(rsQry("is_patch"))
 68 
Dim bis_patch: bis_patch = Not IsNull(rsQry("is_patch"))
69 
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
 69 
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
70 
Dim bcan_unlock
 70 
Dim bcan_unlock
71 
 
 71 
 
72 
If bis_patch Then
 72 
If bis_patch Then
73 
  bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
 73 
  bcan_unlock = canActionControlInProject("UnlockPatch")
74 
Else
 74 
Else
75 
  bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
 75 
  bcan_unlock = canActionControlInProject("EditCriticalInfoForLockedPackage")
76 
End If
 76 
End If
77 
 
 77 
 
78 
If bcan_unlock  Then
 78 
If bcan_unlock  Then
79 
  If rsQry("dlocked") = "Y" Then
 79 
  If rsQry("dlocked") = "Y" Then
80 
    Call UnlockPackage (bis_patch)
 80 
    Call UnlockPackage (bis_patch)