| Line 58... |
Line 58... |
| 58 |
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
|
58 |
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
|
| 59 |
|
59 |
|
| 60 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
60 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
| 61 |
If rsQry("dlocked") = "N" Then
|
61 |
If rsQry("dlocked") = "N" Then
|
| 62 |
Call LockPackage ()
|
62 |
Call LockPackage ()
|
| 63 |
If bis_patch Then
|
- |
|
| 64 |
Response.Redirect ( "_generate_release_notes.asp?rfile=dependencies.asp&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
- |
|
| 65 |
else
|
- |
|
| 66 |
Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
63 |
Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| 67 |
End If
|
- |
|
| 68 |
Else
|
64 |
Else
|
| 69 |
Call RaiseMsg(enum_MSG_ERROR, "Can only lock a " & spkgtype & " that is currently unlocked." )
|
65 |
Call RaiseMsg(enum_MSG_ERROR, "Can only lock a " & spkgtype & " that is currently unlocked." )
|
| 70 |
End If
|
66 |
End If
|
| 71 |
Else
|
67 |
Else
|
| 72 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|
68 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|