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 Patch
 4 
'                 REMOVE Patch
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 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 31... Line 31...
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
Sub RemovePatch ( NNpv_id, NNpatch_id )
 35 
Sub RemovePatch ( NNpv_id, NNpatch_id )
36 
	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
37 
	OraDatabase.Parameters.Add "PATCH_ID", 			Request("patch_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 37 
   OraDatabase.Parameters.Add "PATCH_ID", Request("patch_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
38 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 38 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
39 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
39 
   OraDatabase.Parameters.Add "RTAG_ID",  Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
40
40 
 
- 
 
 41 
   objEH.TryORA ( OraSession )
41 
	OraSession.BeginTrans
 42 
   On Error Resume Next
42
43 
 
43 
	OraDatabase.ExecuteSQL _
 44 
   OraDatabase.ExecuteSQL _
44 
	"BEGIN "&_
 45 
   "BEGIN "&_
45 
	" Remove_Patch ( :PATCH_ID, :PV_ID, :USER_ID ); "&_
 46 
   " Remove_Patch ( :PATCH_ID, :PV_ID, :USER_ID ); "&_
46 
	" PK_WORK_IN_PROGRESS.REMOVE_PACKAGE ( :PATCH_ID, :RTAG_ID, :USER_ID ); "&_
 47 
   " PK_WORK_IN_PROGRESS.REMOVE_PACKAGE ( :PATCH_ID, :RTAG_ID, :USER_ID ); "&_
47 
	"END; "
 48 
   "END; "
48
49 
 
49 
	OraSession.CommitTrans
 50 
   objEH.CatchORA ( OraSession )
50
- 
 
51
51 
 
52 
	OraDatabase.Parameters.Remove "PV_ID"
 52 
   OraDatabase.Parameters.Remove "PV_ID"
53 
	OraDatabase.Parameters.Remove "PATCH_ID"
 53 
   OraDatabase.Parameters.Remove "PATCH_ID"
54 
	OraDatabase.Parameters.Remove "USER_ID"
 54 
   OraDatabase.Parameters.Remove "USER_ID"
55 
	OraDatabase.Parameters.Remove "RTAG_ID"
 55 
   OraDatabase.Parameters.Remove "RTAG_ID"
56 
End Sub
 56 
End Sub
57 
%>
 57 
%>
58 
<%
 58 
<%
59 
'-----------------------  MAIN LINE  ---------------------------
 59 
'-----------------------  MAIN LINE  ---------------------------
60 
 
 60 
 
61 
'--- Process submition ---
 61 
'--- Process submition ---
62 
If (Request("pv_id") <> "") AND (Request("patch_id") <> "") Then
 62 
If (Request("pv_id") <> "") AND (Request("patch_id") <> "") Then
63 
	' All mendatory parameters FOUND
 63 
   ' All mendatory parameters FOUND
64 
	Call RemovePatch ( Request("pv_id"), Request("patch_id") )
 64 
   Call RemovePatch ( Request("pv_id"), Request("patch_id") )
65
65 
 
66 
	Response.Redirect("patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 66 
   Response.Redirect("patches.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
67 
Else
 67 
Else
68 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 68 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
69 
	Response.write QSTR_All
69 
   Response.write QSTR_All
70
70 
 
71 
End If
 71 
End If
72 
%>
 72 
%>
73 
 
 73 
 
74 
<!-- DESTRUCTOR ------->
 74 
<!-- DESTRUCTOR ------->
75 
<!--#include file="common/destructor.asp"-->
 - 
 
76 

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

          

          

            -
            
 

            76