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

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

          

          

            -
            
 

            71