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 
'=====================================================
 3 
'=====================================================
4 
' 			 	   REMOVE Packages
 4 
'                 REMOVE Packages
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 31... Line 31...
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
'--------------------------------------------------------------------------------------------------------------------------------------
 34 
'--------------------------------------------------------------------------------------------------------------------------------------
35 
Sub RemovePackage( )
 35 
Sub RemovePackage( )
36 
	Dim ReturnCode
 36 
   Dim ReturnCode
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 "RTAG_ID", 		Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 38 
   OraDatabase.Parameters.Add "RTAG_ID",     Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
39 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 39 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
40 
	OraDatabase.Parameters.Add "RETURN_CODE", 	NULL, 	ORAPARM_OUTPUT, ORATYPE_NUMBER
 40 
   OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER
41
41 
 
42 
	If Request("btn") = "YES" Then
 42 
   If Request("btn") = "YES" Then
43 
		' Force Remove
 43 
      ' Force Remove
44 
		OraDatabase.Parameters.Add "FORCE_REMOVE", 		"Y", 	ORAPARM_INPUT, ORATYPE_NUMBER
 44 
      OraDatabase.Parameters.Add "FORCE_REMOVE", "Y", ORAPARM_INPUT, ORATYPE_NUMBER
45
45 
 
46 
	Else
 46 
   Else
47 
		OraDatabase.Parameters.Add "FORCE_REMOVE", 		"N", 	ORAPARM_INPUT, ORATYPE_NUMBER
 47 
      OraDatabase.Parameters.Add "FORCE_REMOVE", "N", ORAPARM_INPUT, ORATYPE_NUMBER
48
48 
 
49 
	End If
 49 
   End If
50
- 
 
51
50 
 
- 
 
 51 
   objEH.TryORA ( OraSession )
52 
	OraSession.BeginTrans
 52 
   On Error Resume Next
53
53 
 
54 
	OraDatabase.ExecuteSQL _
 54 
   OraDatabase.ExecuteSQL _
55 
  	"BEGIN "&_
 55 
     "BEGIN "&_
56 
	"	:RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
 56 
   "   :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
57 
	"END; "
 57 
   "END; "
58
58 
 
59 
	OraSession.CommitTrans
 59 
   objEH.CatchORA ( OraSession )
60
- 
 
61
60 
 
62 
	ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
61 
   ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
63
62 
 
64 
	If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then
 63 
   If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then
65 
		'If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
 64 
      'If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
66 
			' Admin and System Admin users
 65 
         ' Admin and System Admin users
67 
			Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")
 66 
         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")
68
67 
 
69 
		'Else
 68 
      'Else
70 
		'	' Other users
 69 
      '   ' Other users
71 
		'	Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
 70 
      '   Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
72 
		'
71 
      '
73 
		'End If
 72 
      'End If
74 
	End If
 73 
   End If
75
- 
 
76
- 
 
77
74 
 
78 
	OraDatabase.Parameters.Remove "PV_ID_LIST"
 75 
   OraDatabase.Parameters.Remove "PV_ID_LIST"
79 
	OraDatabase.Parameters.Remove "RTAG_ID"
 76 
   OraDatabase.Parameters.Remove "RTAG_ID"
80 
	OraDatabase.Parameters.Remove "USER_ID"
 77 
   OraDatabase.Parameters.Remove "USER_ID"
81 
	OraDatabase.Parameters.Remove "FORCE_REMOVE"
 78 
   OraDatabase.Parameters.Remove "FORCE_REMOVE"
82 
	OraDatabase.Parameters.Remove "RETURN_CODE"
 79 
   OraDatabase.Parameters.Remove "RETURN_CODE"
83 
End Sub
 80 
End Sub
84 
'--------------------------------------------------------------------------------------------------------------------------------------
 81 
'--------------------------------------------------------------------------------------------------------------------------------------
85 
%>
 82 
%>
86 
<%
 83 
<%
87 
'-----------------------  MAIN LINE  ---------------------------
 84 
'-----------------------  MAIN LINE  ---------------------------
88 
	On Error Resume Next
 85 
   On Error Resume Next
89 
	objEH.Try
 86 
   objEH.Try
90 
'--- Process submition ---
 87 
'--- Process submition ---
91 
If (Request("pv_id") <> "")  AND (Request("rtag_id") <> "") Then
 88 
If (Request("pv_id") <> "")  AND (Request("rtag_id") <> "") Then
92
- 
 
93
89 
 
94 
	Call RemovePackage ()
 90 
   Call RemovePackage ()
95
91 
 
96 
	' All mendatory parameters FOUND
 92 
   ' All mendatory parameters FOUND
97 
	'If parBtn <> "NO" Then
 93 
   'If parBtn <> "NO" Then
98 
	'
94 
   '
99 
	'	retNOTRemove = -1
 95 
   '   retNOTRemove = -1
100 
	'	Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
 96 
   '   Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
101 
	'	Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
 97 
   '   Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
102 
	'
98 
   '
103 
	'
99 
   '
104 
	'	If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
 100 
   '   If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
105 
	'		If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
 101 
   '      If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
106 
	'			' Admin and System Admin users
 102 
   '         ' Admin and System Admin users
107 
	'			Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
 103 
   '         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
108 
	'
104 
   '
109 
	'		Else
 105 
   '      Else
110 
	'			' Other users
 106 
   '         ' Other users
111 
	'			Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
 107 
   '         Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
112 
	'
108 
   '
113 
	'		End If
 109 
   '      End If
114 
	'
110 
   '
115 
	'	End If
 111 
   '   End If
116 
	'
112 
   '
117 
	'End If
 113 
   'End If
118
114 
 
119
115 
 
120
116 
 
121 
	Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
 117 
   Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
122 
Else
 118 
Else
123 
			Err.Raise 8, "Please select the required package to delete."
 119 
         Err.Raise 8, "Please select the required package to delete."
124 
	'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 120 
   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
125 
	'Response.write QSTR_All
121 
   'Response.write QSTR_All
126 
End If
 122 
End If
127 
	objEH.Catch
 123 
   objEH.Catch
128 
%>
 124 
%>
129 
 
 125 
 
130 
<!-- DESTRUCTOR ------->
 126 
<!-- DESTRUCTOR ------->
131 
<!--#include file="common/destructor.asp"-->
 - 
 
132 

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

          

          

            -
            
 

            128