Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					System Unlock Package
 8 
'               System Unlock Package
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 32... Line 32...
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
Sub UnDeprecatePackage ()
 35 
Sub UnDeprecatePackage ()
36 
 
 36 
 
37 
	Dim rsTemp, Query_String
 37 
   Dim rsTemp, Query_String
38
38 
 
39 
	Set rsTemp = OraDatabase.DbCreateDynaset("SELECT PKG.PKG_ID, PKG.pkg_name FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID = "&parPv_id, cint(0))
 39 
   Set rsTemp = OraDatabase.DbCreateDynaset("SELECT PKG.PKG_ID, PKG.pkg_name FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID = "&parPv_id, cint(0))
40
40 
 
41 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 41 
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
42 
	OraDatabase.Parameters.Add "PKG_ID", 		rsTemp("pkg_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "PKG_ID",  rsTemp("pkg_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 43 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
44 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
44 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
45
45 
 
46 
	OraSession.BeginTrans
 46 
   On Error Resume Next
- 
 
 47 
 
- 
 
 48 
   objEH.TryORA ( OraSession )
47
49 
 
48 
	OraDatabase.ExecuteSQL _
 50 
   OraDatabase.ExecuteSQL _
49 
	"BEGIN   Undeprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :USER_ID );   END;"
 51 
   "BEGIN   Undeprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :USER_ID );   END;"
50 
	OraSession.CommitTrans
 - 
 
51
52 
 
52 
	OraSession.BeginTrans
 53 
   If Err.Number = 0 Then
53
- 
 
54 
	OraDatabase.ExecuteSQL _
 54 
      OraDatabase.ExecuteSQL _
55 
	"BEGIN   Log_Action ( :PV_ID, 'undeprecate_package', :USER_ID );   END;"
 55 
      "BEGIN   Log_Action ( :PV_ID, 'undeprecate_package', :USER_ID );   END;"
- 
 
 56 
   End If
- 
 
 57 
 
56 
	OraSession.CommitTrans
 58 
   objEH.CatchORA ( OraSession )
57
59 
 
58 
	OraDatabase.Parameters.Remove "RTAG_ID"
 60 
   OraDatabase.Parameters.Remove "RTAG_ID"
59 
	OraDatabase.Parameters.Remove "PKG_ID"
 61 
   OraDatabase.Parameters.Remove "PKG_ID"
60 
	OraDatabase.Parameters.Remove "USER_ID"
 62 
   OraDatabase.Parameters.Remove "USER_ID"
61 
	OraDatabase.Parameters.Remove "PV_ID"
 63 
   OraDatabase.Parameters.Remove "PV_ID"
62
64 
 
63 
	rsTemp.Close
 65 
   rsTemp.Close
64 
	Set rsTemp = nothing
66 
   Set rsTemp = nothing
65 
End Sub
 67 
End Sub
66 
%>
 68 
%>
67 
<%
 69 
<%
68 
'Process submission
 70 
'Process submission
69 
'---------------------------------------
 71 
'---------------------------------------
70 
' THIS IS FOR SYSTEM ADMIN ONLY
 72 
' THIS IS FOR SYSTEM ADMIN ONLY
71 
'---------------------------------------
 73 
'---------------------------------------
72 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPackage") Then
 74 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPackage") Then
73 
	Call UnDeprecatePackage ()
 75 
   Call UnDeprecatePackage ()
74 
	Response.Redirect(parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 76 
   Response.Redirect(parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
75 
	'Call CloseWindow
 77 
   'Call CloseWindow
76 
'End If
 78 
'End If
77 
%>
 79 
%>
78 
 
 80 
 
79 
<!-- DESTRUCTOR ------->
 81 
<!-- DESTRUCTOR ------->
80 
<!--#include file="common/destructor.asp"-->
 - 
 
81 

            82
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            83