| Line 69... |
Line 69... |
| 69 |
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
|
69 |
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
|
| 70 |
|
70 |
|
| 71 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
71 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
| 72 |
If rsQry("dlocked") = "Y" Then
|
72 |
If rsQry("dlocked") = "Y" Then
|
| 73 |
Call UnlockPackage ()
|
73 |
Call UnlockPackage ()
|
| 74 |
If bis_patch Then
|
- |
|
| 75 |
Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
- |
|
| 76 |
Else
|
- |
|
| 77 |
Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
74 |
Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
| 78 |
End If
|
- |
|
| 79 |
Else
|
75 |
Else
|
| 80 |
Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
|
76 |
Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
|
| 81 |
End If
|
77 |
End If
|
| 82 |
Else
|
78 |
Else
|
| 83 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|
79 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|