| Line 29... |
Line 29... |
| 29 |
parPv_id = QStrPar("pv_id")
|
29 |
parPv_id = QStrPar("pv_id")
|
| 30 |
parRtag_id = QStrPar("rtag_id")
|
30 |
parRtag_id = QStrPar("rtag_id")
|
| 31 |
'----------------------------------------------
|
31 |
'----------------------------------------------
|
| 32 |
%>
|
32 |
%>
|
| 33 |
<%
|
33 |
<%
|
| 34 |
Sub UnlockPackage ()
|
34 |
Sub UnlockPackage (bRunAdminTools)
|
| 35 |
Dim objWSH
|
35 |
Dim objWSH
|
| 36 |
|
36 |
|
| 37 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
37 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 38 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
38 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 39 |
|
39 |
|
| Line 46... |
Line 46... |
| 46 |
objEH.CatchORA ( OraSession )
|
46 |
objEH.CatchORA ( OraSession )
|
| 47 |
|
47 |
|
| 48 |
OraDatabase.Parameters.Remove "PV_ID"
|
48 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 49 |
OraDatabase.Parameters.Remove "USER_ID"
|
49 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 50 |
|
50 |
|
| 51 |
If objEH.LastOraFailed = FALSE Then
|
51 |
If (objEH.LastOraFailed = FALSE) AND (bRunAdminTools) Then
|
| 52 |
Set objWSH = Server.CreateObject("WScript.Shell")
|
52 |
Set objWSH = Server.CreateObject("WScript.Shell")
|
| 53 |
|
53 |
|
| 54 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
|
54 |
objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
|
| 55 |
"/pv_id:"& Request("pv_id") , _
|
55 |
"/pv_id:"& Request("pv_id") , _
|
| 56 |
0, FALSE
|
56 |
0, FALSE
|
| Line 65... |
Line 65... |
| 65 |
'---------------------------------------
|
65 |
'---------------------------------------
|
| 66 |
QueryString = "SELECT pv.DLOCKED, pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& parPv_id
|
66 |
QueryString = "SELECT pv.DLOCKED, pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& parPv_id
|
| 67 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
67 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
| 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 |
|
71 |
|
| - |
|
72 |
If bis_patch Then
|
| 71 |
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage")) Then
|
73 |
bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
|
| - |
|
74 |
Else
|
| - |
|
75 |
bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
|
| - |
|
76 |
End If
|
| - |
|
77 |
|
| - |
|
78 |
If bcan_unlock Then
|
| 72 |
If rsQry("dlocked") = "Y" Then
|
79 |
If rsQry("dlocked") = "Y" Then
|
| 73 |
Call UnlockPackage ()
|
80 |
Call UnlockPackage (bis_patch)
|
| - |
|
81 |
If bis_patch Then
|
| - |
|
82 |
Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
| - |
|
83 |
Else
|
| 74 |
Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
84 |
Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
|
| - |
|
85 |
End If
|
| 75 |
Else
|
86 |
Else
|
| 76 |
Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
|
87 |
Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
|
| 77 |
End If
|
88 |
End If
|
| 78 |
Else
|
89 |
Else
|
| 79 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|
90 |
Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
|