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 Runtime dependency
 4 
'                 REMOVE Runtime dependency
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 Remove_Runtime_Dependency ( NNpv_id, NNrtd_id )
 35 
Sub Remove_Runtime_Dependency ( NNpv_id, NNrtd_id )
36 
	OraDatabase.Parameters.Add "PV_ID", 		NNpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
36 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "RTD_ID", 		NNrtd_id,	ORAPARM_INPUT, ORATYPE_NUMBER
37 
   OraDatabase.Parameters.Add "RTD_ID",  NNrtd_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
39 
 
40
- 
 
- 
 
 40 
   objEH.TryORA ( OraSession )
41 
	OraSession.BeginTrans
 41 
   On Error Resume Next
42
42 
 
43 
	OraDatabase.ExecuteSQL _
 43 
   OraDatabase.ExecuteSQL _
44 
	"BEGIN  Remove_Runtime ( :PV_ID, :RTD_ID, :USER_ID );  END;"
 44 
   "BEGIN  Remove_Runtime ( :PV_ID, :RTD_ID, :USER_ID );  END;"
45
45 
 
46 
	OraSession.CommitTrans
 46 
   objEH.CatchORA ( OraSession )
47
- 
 
48
47 
 
49 
	OraDatabase.Parameters.Remove "PV_ID"
 48 
   OraDatabase.Parameters.Remove "PV_ID"
50 
	OraDatabase.Parameters.Remove "RTD_ID"
 49 
   OraDatabase.Parameters.Remove "RTD_ID"
51 
	OraDatabase.Parameters.Remove "USER_ID"
 50 
   OraDatabase.Parameters.Remove "USER_ID"
52 
End Sub
 51 
End Sub
53 
%>
 52 
%>
54 
<%
 53 
<%
55 
'-----------------------  MAIN LINE  ---------------------------
 54 
'-----------------------  MAIN LINE  ---------------------------
56 
 
 55 
 
57 
'--- Process submition ---
 56 
'--- Process submition ---
58 
If (Request("pv_id") <> "") AND (Request("rtd_id") <> "") AND (Request("rtag_id") <> "") Then
 57 
If (Request("pv_id") <> "") AND (Request("rtd_id") <> "") AND (Request("rtag_id") <> "") Then
59 
	' All mendatory parameters FOUND
 58 
   ' All mendatory parameters FOUND
60 
	Call Remove_Runtime_Dependency ( Request("pv_id"), Request("rtd_id") )
 59 
   Call Remove_Runtime_Dependency ( Request("pv_id"), Request("rtd_id") )
61 
	Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 60 
   Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
62 
Else
 61 
Else
63 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 62 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
64 
	Response.write QSTR_All
63 
   Response.write QSTR_All
65
64 
 
66 
End If
 65 
End If
67 
%>
 66 
%>
68 
 
 67 
 
69 
<!-- DESTRUCTOR ------->
 68 
<!-- DESTRUCTOR ------->
70 
<!--#include file="common/destructor.asp"-->
 - 
 
71 

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

          

          

            -
            
 

            70