| Line 15... |
Line 15... |
| 15 |
<!--#include file="common/formating.asp"-->
|
15 |
<!--#include file="common/formating.asp"-->
|
| 16 |
<!--#include file="common/qstr.asp"-->
|
16 |
<!--#include file="common/qstr.asp"-->
|
| 17 |
<!--#include file="common/common_subs.asp"-->
|
17 |
<!--#include file="common/common_subs.asp"-->
|
| 18 |
<!--#include file="common/common_dbedit.asp"-->
|
18 |
<!--#include file="common/common_dbedit.asp"-->
|
| 19 |
<!--#include file="common/daemon_instructions.asp"-->
|
19 |
<!--#include file="common/daemon_instructions.asp"-->
|
| - |
|
20 |
<!--#include file="common/release_changed.asp"-->
|
| 20 |
<%
|
21 |
<%
|
| 21 |
' Set rfile parameter. This is a return page after Login
|
22 |
' Set rfile parameter. This is a return page after Login
|
| 22 |
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
|
23 |
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
|
| 23 |
'------------ ACCESS CONTROL ------------------
|
24 |
'------------ ACCESS CONTROL ------------------
|
| 24 |
%>
|
25 |
%>
|
| Line 33... |
Line 34... |
| 33 |
%>
|
34 |
%>
|
| 34 |
<%
|
35 |
<%
|
| 35 |
'--------------------------------------------------------------------------------------------------------------------------------------
|
36 |
'--------------------------------------------------------------------------------------------------------------------------------------
|
| 36 |
Sub RemovePackage( )
|
37 |
Sub RemovePackage( )
|
| 37 |
Dim ReturnCode
|
38 |
Dim ReturnCode
|
| - |
|
39 |
Dim nPvId
|
| - |
|
40 |
nPvId=Request("pv_id")
|
| - |
|
41 |
|
| - |
|
42 |
Dim objRC: Set objRC = New ReleaseChanged
|
| - |
|
43 |
Call objRC.Get_Package_Info (Request("rtag_id"),nPvId)
|
| - |
|
44 |
|
| 38 |
OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
45 |
OraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 39 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
46 |
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
|
| 40 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
|
47 |
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
|
| 41 |
OraDatabase.Parameters.Add "RETURN_CODE", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
48 |
OraDatabase.Parameters.Add "RETURN_CODE", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
| 42 |
|
49 |
|
| 43 |
If Request("btn") = "YES" Then
|
50 |
If Request("btn") = "YES" Then
|
| Line 51... |
Line 58... |
| 51 |
|
58 |
|
| 52 |
objEH.TryORA ( OraSession )
|
59 |
objEH.TryORA ( OraSession )
|
| 53 |
On Error Resume Next
|
60 |
On Error Resume Next
|
| 54 |
|
61 |
|
| 55 |
OraDatabase.ExecuteSQL _
|
62 |
OraDatabase.ExecuteSQL _
|
| 56 |
"BEGIN "&_
|
63 |
"BEGIN "&_
|
| 57 |
" :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
|
64 |
" :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
|
| 58 |
"END; "
|
65 |
"END; "
|
| 59 |
|
66 |
|
| 60 |
objEH.CatchORA ( OraSession )
|
67 |
objEH.CatchORA ( OraSession )
|
| 61 |
|
68 |
|
| Line 76... |
Line 83... |
| 76 |
OraDatabase.Parameters.Remove "PV_ID_LIST"
|
83 |
OraDatabase.Parameters.Remove "PV_ID_LIST"
|
| 77 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
84 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 78 |
OraDatabase.Parameters.Remove "USER_ID"
|
85 |
OraDatabase.Parameters.Remove "USER_ID"
|
| 79 |
OraDatabase.Parameters.Remove "FORCE_REMOVE"
|
86 |
OraDatabase.Parameters.Remove "FORCE_REMOVE"
|
| 80 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
87 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
| - |
|
88 |
|
| - |
|
89 |
If Not objEH.LastOraFailed Then
|
| - |
|
90 |
Call objRC.Run_ReleaseChanged(Request("rtag_id"),nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)
|
| - |
|
91 |
End If
|
| - |
|
92 |
|
| - |
|
93 |
Set objRC = Nothing
|
| - |
|
94 |
|
| 81 |
End Sub
|
95 |
End Sub
|
| 82 |
'--------------------------------------------------------------------------------------------------------------------------------------
|
96 |
'--------------------------------------------------------------------------------------------------------------------------------------
|
| 83 |
%>
|
97 |
%>
|
| 84 |
<%
|
98 |
<%
|
| 85 |
'----------------------- MAIN LINE ---------------------------
|
99 |
'----------------------- MAIN LINE ---------------------------
|