Subversion Repositories DevTools

Rev

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

Rev 5172 Rev 5293
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 - 
 
4 
Response.Expires = 0   ' always load the page, dont store
 - 
 
5 
%>
 - 
 
6 
<%
 - 
 
7 
'=====================================================
 3 
'=====================================================
- 
 
 4 
'   _s_unlock_package.asp
8 
'               System Unlock Package
 5 
'   System Unlock Package
9 
'=====================================================
 6 
'=====================================================
- 
 
 7 
Option explicit
- 
 
 8 
Response.Expires = 0   ' always load the page, dont store
10 
%>
 9 
%>
11 
<!--#include file="common/conf.asp"-->
 10 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 11 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 12 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
 13 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 14 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
 15 
<!--#include file="common/common_dbedit.asp"-->
- 
 
 16 
<!--#include file="common/release_changed.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_login.asp"-->
 20 
<!--#include file="_access_control_login.asp"-->
21 
<!--#include file="_access_control_general.asp"-->
 21 
<!--#include file="_access_control_general.asp"-->
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 (bRunAdminTools)
 34 
Sub UnlockPackage (bIsPatch)
35 
   Dim objWSH
 - 
 
36 
 
 35 
 
37 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
 36 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
38 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 37 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
39 
 
 38 
 
40 
   objEH.TryORA ( OraSession )
 39 
   objEH.TryORA ( OraSession )
Line 46... Line 45...
46 
   objEH.CatchORA ( OraSession )
 45 
   objEH.CatchORA ( OraSession )
47 
 
 46 
 
48 
   OraDatabase.Parameters.Remove "PV_ID"
 47 
   OraDatabase.Parameters.Remove "PV_ID"
49 
   OraDatabase.Parameters.Remove "USER_ID"
 48 
   OraDatabase.Parameters.Remove "USER_ID"
50 
 
 49 
 
51 
   If (objEH.LastOraFailed = FALSE) AND (bRunAdminTools) Then
 50 
   If (objEH.LastOraFailed = FALSE) AND (bIsPatch) Then
- 
 
 51 
        ' If this is a patch, then make the package, in dpkg_archive, writable
52 
       ' Does nothing.
 52 
        ' This is UGLY
- 
 
 53 
        '
53 
       ' Once upon a time it would make the package writable in the package archive
 54 
        Dim objRC: Set objRC = New ReleaseChanged
54 
       ' but this is no more.
 55 
        Call objRC.MakeWritable(parRtag_id, parPv_id )
- 
 
 56 
 
55 
   End If
 57 
   End If
56 
End Sub
 58 
End Sub
57 
%>
 59 
%>
58 
<%
 60 
<%
59 
 
 61 
 
Line 74... Line 76...
74 
End If
 76 
End If
75 
 
 77 
 
76 
If bcan_unlock  Then
 78 
If bcan_unlock  Then
77 
  If rsQry("dlocked") = "Y" Then
 79 
  If rsQry("dlocked") = "Y" Then
78 
    Call UnlockPackage (bis_patch)
 80 
    Call UnlockPackage (bis_patch)
79 
    If bis_patch Then
 - 
 
80 
      Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 - 
 
81 
    Else
 - 
 
82 
      Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 81 
    Response.Redirect ( "fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
83 
    End If
 - 
 
84 
  Else
 82 
  Else
85 
    Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
 83 
    Call RaiseMsg(enum_MSG_ERROR, "Can only unlock a " & spkgtype & " that is currently locked." )
86 
  End If
 84 
  End If
87 
Else
 85 
Else
88 
  Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )
 86 
  Call RaiseMsg(enum_MSG_ERROR, "You do not have permissions to lock/unlock " & spkgtype & "." )