Subversion Repositories DevTools

Rev

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

Rev 141 Rev 171
Line 56... Line 56...
56 
                  0, FALSE
 56 
                  0, FALSE
57 
   End If
 57 
   End If
58 
End Sub
 58 
End Sub
59 
%>
 59 
%>
60 
<%
 60 
<%
- 
 
 61 
 
61 
'Process submition
 62 
'Process submition
62 
'---------------------------------------
 63 
'---------------------------------------
63 
' THIS IS FOR SYSTEM ADMIN ONLY
 64 
' THIS IS FOR SYSTEM ADMIN ONLY
64 
'---------------------------------------
 65 
'---------------------------------------
65 
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
66 
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"))
- 
 
 69 
Dim spkgtype: spkgtype = iif(bis_patch,"patch","package")
- 
 
 70 
 
- 
 
 71 
If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch") OR objAccessControl.IsActive("UnlockPackage"))  Then
67 
If IsNull(rsQry("is_patch")) Then
 72 
  If rsQry("dlocked") = "Y" Then
- 
 
 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)
- 
 
 78 
    End If
- 
 
 79 
  Else
68 
   Call RaiseMsg(enum_MSG_ERROR, "Unlocking Packages is no longer allowed. Only patches may be unlocked." )
 80 
    Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
- 
 
 81 
  End If
69 
Else
 82 
Else
70 
   If objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))  Then
 - 
 
71 
      If rsQry("dlocked") = "Y" Then
 - 
 
72 
         Call UnlockPackage ()
 - 
 
73 
         Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 - 
 
74 
      Else
 - 
 
75 
         Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a patch that is currently locked." )
 - 
 
76 
      End If
 - 
 
77 
   Else
 - 
 
78 
      Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock patches." )
 83 
  Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
79 
   End If
 - 
 
80 
End If
 84 
End If
- 
 
 85 
 
81 
rsQry.Close
 86 
rsQry.Close
82 
Set rsQry = nothing
 87 
Set rsQry = nothing
- 
 
 88 
 
83 
%>
 89 
%>
84 
 
 90 
 
85 
<!-- DESTRUCTOR ------->
 91 
<!-- DESTRUCTOR ------->
86 
<!--#include file="common/destructor.asp"-->
 92 
<!--#include file="common/destructor.asp"-->