Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 37... Line 37...
37 
FRforced = Request("forced")
 37 
FRforced = Request("forced")
38 
'----------------------------------------------
 38 
'----------------------------------------------
39 
%>
 39 
%>
40 
<%
 40 
<%
41 
'---------------------------------------------------------------------------------------------------------------------
 41 
'---------------------------------------------------------------------------------------------------------------------
42 
Sub SetIgnoreWarnings ()
 - 
 
43
- 
 
44 
	OraDatabase.Parameters.Add "RTAG_ID", 			FRrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
45 
	OraDatabase.Parameters.Add "PV_ID", 			FRpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
46 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
47 
	OraDatabase.Parameters.Add "IGNORE_ID_LIST", 	FRforced, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
48
- 
 
49 
	OraSession.BeginTrans
 - 
 
50
- 
 
51 
	OraDatabase.ExecuteSQL _
 - 
 
52 
	"BEGIN "&_
 - 
 
53 
	" Ignore_Dependency_Warnings( :RTAG_ID, :PV_ID, :IGNORE_ID_LIST, FALSE, :USER_ID ); "&_
 - 
 
54 
	"END; "
 - 
 
55
- 
 
56 
  	OraSession.CommitTrans
 - 
 
57
- 
 
58 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
59 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
60 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
61 
	OraDatabase.Parameters.Remove "IGNORE_ID_LIST"
 - 
 
62 
End Sub
 - 
 
63 
'---------------------------------------------------------------------------------------------------------------------
 - 
 
64 
%>
 42 
%>
65 
<%
 43 
<%
66 
'-----------------------  MAIN LINE  ---------------------------
 44 
'-----------------------  MAIN LINE  ---------------------------
67 
 
 45 
 
68 
'--- Process submition ---
 46 
'--- Process submition ---
69 
If (FRrtag_id <> "") AND (FRpv_id <> "") Then
 47 
If (FRrtag_id <> "") AND (FRpv_id <> "") Then
70 
	Call SetIgnoreWarnings ()
 48 
   Call SetIgnoreWarnings (FRforced, FRpv_id, FRrtag_id)
71
49
72 
	'Call Notify ( FRrtag_id )
 50 
	'Call Notify ( FRrtag_id )
73
51
74 
	Response.Redirect("dependencies.asp?rtag_id="& FRrtag_id &"&pv_id="& FRpv_id)
 52 
	Response.Redirect("dependencies.asp?rtag_id="& FRrtag_id &"&pv_id="& FRpv_id)
75 
Else
 53 
Else