| Line 54... |
Line 54... |
| 54 |
'---------------------------------------
|
54 |
'---------------------------------------
|
| 55 |
QueryString = "SELECT pv.DLOCKED, pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& parPv_id
|
55 |
QueryString = "SELECT pv.DLOCKED, pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& parPv_id
|
| 56 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
56 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
| 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 |
|
60 |
|
| - |
|
61 |
If bis_patch Then
|
| 60 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
62 |
bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
|
| - |
|
63 |
Else
|
| - |
|
64 |
bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
|
| - |
|
65 |
End If
|
| - |
|
66 |
|
| - |
|
67 |
If bcan_unlock Then
|
| 61 |
If rsQry("dlocked") = "N" Then
|
68 |
If rsQry("dlocked") = "N" Then
|
| 62 |
Call LockPackage ()
|
69 |
Call LockPackage ()
|
| - |
|
70 |
If bis_patch Then
|
| - |
|
71 |
Response.Redirect ( "_generate_release_notes.asp?rfile=dependencies.asp&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| - |
|
72 |
else
|
| 63 |
Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
73 |
Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| - |
|
74 |
End If
|
| 64 |
Else
|
75 |
Else
|
| 65 |
Call RaiseMsg(enum_MSG_ERROR, "Can only lock a " & spkgtype & " that is currently unlocked." )
|
76 |
Call RaiseMsg(enum_MSG_ERROR, "Can only lock a " & spkgtype & " that is currently unlocked." )
|
| 66 |
End If
|
77 |
End If
|
| 67 |
Else
|
78 |
Else
|
| 68 |
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 & "." )
|