Subversion Repositories DevTools

Rev

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

Rev 6053 Rev 7573
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	    Destroy Release
 4 
'                   Destroy Release
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 29... Line 29...
29 
<%
 29 
<%
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
31 
Dim csvStr
 31 
Dim csvStr
32 
Dim subStrArr
 32 
Dim subStrArr
33 
Dim subStr
 33 
Dim subStr
- 
 
 34 
Dim parRfile
- 
 
 35 
Dim parParentRtag
34 
 
 36 
 
35 
'------------ Constants Declaration -----------
 37 
'------------ Constants Declaration -----------
36 
'------------ Variable Init -------------------
 38 
'------------ Variable Init -------------------
- 
 
 39 
parRfile = Request("rfile")
- 
 
 40 
parParentRtag = Request("parentRtag")
- 
 
 41 
 
37 
'----------------------------------------------
 42 
'----------------------------------------------
38 
%>
 43 
%>
39 
<%
 44 
<%
40 
Sub DestroyRelease ( )
 45 
Sub DestroyRelease ( )
41 
 
 46 
 
42 
	On Error Resume Next
 47 
    On Error Resume Next
43 
	objEH.ErrorRedirect = TRUE
 48 
    objEH.ErrorRedirect = TRUE
44 
 
 - 
 
45 
 
 - 
 
46 
 
 49 
 
47 
	OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 50 
    OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"),  ORAPARM_INPUT, ORATYPE_NUMBER
48 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 51 
    OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
49 
 
 52 
 
50 
	objEH.TryORA ( OraSession )
 53 
    objEH.TryORA ( OraSession )
51 
 
 54 
 
- 
 
 55 
    OraDatabase.ExecuteSQL _
- 
 
 56 
    "BEGIN "&_
- 
 
 57 
    " PK_RELEASE.DESTROY_RELEASE ( :RTAG_ID, :USER_ID ); "&_
- 
 
 58 
    "END;"
52 
 
 59 
 
53 
	OraDatabase.ExecuteSQL _
 60 
    objEH.CatchORA ( OraSession )
54 
	"BEGIN "&_
 - 
 
55 
	" PK_RELEASE.DESTROY_RELEASE ( :RTAG_ID, :USER_ID ); "&_
 - 
 
56 
	"END;"
 - 
 
57 
 
 61 
 
58 
	objEH.CatchORA ( OraSession )
 - 
 
59 
 
 - 
 
60 
 
 - 
 
61 
	OraDatabase.Parameters.Remove "RTAG_ID"
 62 
    OraDatabase.Parameters.Remove "RTAG_ID"
62 
	OraDatabase.Parameters.Remove "USER_ID"
 63 
    OraDatabase.Parameters.Remove "USER_ID"
63 
End Sub
 64 
End Sub
64 
%>
 65 
%>
65 
<%
 66 
<%
66 
'-----------------------  MAIN LINE  ---------------------------
 67 
'-----------------------  MAIN LINE  ---------------------------
67 
 
 68 
 
Line 92... Line 93...
92 
 
 93 
 
93 
   Call DestroyRelease ()
 94 
   Call DestroyRelease ()
94 
 
 95 
 
95 
   If objEH.Finally Then
 96 
   If objEH.Finally Then
96 
        Call Destroy_All_Objects
 97 
        Call Destroy_All_Objects
- 
 
 98 
 
- 
 
 99 
        If parRfile <> "" AND parParentRtag <> "" Then
- 
 
 100 
            Response.Redirect(parRfile & "?rtag_id=" & parParentRtag )
- 
 
 101 
        Else
97 
        Response.Redirect("rtree.asp?proj_id="& Request("proj_id") )
 102 
            Response.Redirect("rtree.asp?proj_id="& Request("proj_id") )
- 
 
 103 
        End If
98 
   End If
 104 
   End If
99 
 
 105 
 
100 
Else
 106 
Else
101 
	Response.write "Some parameters are missing!" & "<br>" 'TODO
 107 
    Response.write "Some parameters are missing!" & "<br>" 'TODO
102 
End If
 108 
End If
103 
%>
 109 
%>
104 
<!-- DESTRUCTOR ------->
 110 
<!-- DESTRUCTOR ------->
105 
<!--#include file="common/destructor.asp"-->
 111 
<!--#include file="common/destructor.asp"-->