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 Issue
 4 
'                 REMOVE Issue
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 30... Line 30...
30 
'------------ Constants Declaration -----------
 30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<%
 34 
<%
35 
Sub Remove_Issue( NNpv_id, NNiss_db, NNiss_id )
35 
Sub Remove_Issue( NNpv_id, NNiss_db, NNiss_id )
36 
	Dim iss_num
 36 
   Dim iss_num
37 
	iss_num = GetIssueNumber ( NNiss_db, NNiss_id )
 37 
   iss_num = GetIssueNumber ( NNiss_db, NNiss_id )
38
38 
 
- 
 
 39 
   objEH.TryORA ( OraSession )
39 
	OraSession.BeginTrans
 40 
   On Error Resume Next
40
41 
 
41 
	OraDatabase.ExecuteSQL _
 42 
   OraDatabase.ExecuteSQL _
42 
			"DELETE FROM cq_issues WHERE pv_id = "& NNpv_id &" AND iss_db = "& NNiss_db &" AND iss_id = "& NNiss_id
 43 
         "DELETE FROM cq_issues WHERE pv_id = "& NNpv_id &" AND iss_db = "& NNiss_db &" AND iss_id = "& NNiss_id
43
44 
 
44 
	OraDatabase.ExecuteSQL _
 45 
   OraDatabase.ExecuteSQL _
45 
			"BEGIN  Log_Action ( "& NNpv_id &", 'issue_removed', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
 46 
         "BEGIN  Log_Action ( "& NNpv_id &", 'issue_removed', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
46
47 
 
47 
  	OraSession.CommitTrans
 48 
   objEH.CatchORA ( OraSession )
48 
End Sub
 49 
End Sub
49 
%>
 50 
%>
50 
<%
 51 
<%
51 
'-----------------------  MAIN LINE  ---------------------------
 52 
'-----------------------  MAIN LINE  ---------------------------
52 
 
 53 
 
53 
'--- Process submition ---
 54 
'--- Process submition ---
54 
If (Request("pv_id") <> "") AND (Request("iss_db") <> "") AND (Request("iss_id") <> "") Then
 55 
If (Request("pv_id") <> "") AND (Request("iss_db") <> "") AND (Request("iss_id") <> "") Then
55 
	' All mendatory parameters FOUND
 56 
   ' All mendatory parameters FOUND
56 
	Call Remove_Issue( Request("pv_id"), Request("iss_db"), Request("iss_id") )
 57 
   Call Remove_Issue( Request("pv_id"), Request("iss_db"), Request("iss_id") )
57 
	Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 58 
   Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
58 
Else
 59 
Else
59 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 60 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
60 
	Response.write QSTR_All
61 
   Response.write QSTR_All
61 
End If
 62 
End If
62 
%>
 63 
%>
63 
 
 64 
 
64 
<!-- DESTRUCTOR ------->
 65 
<!-- DESTRUCTOR ------->
65 
<!--#include file="common/destructor.asp"-->
 - 
 
66 

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

          

          

            -
            
 

            67