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_link )
35 
Sub Remove_Issue( NNpv_id, NNiss_link )
36 
 
 36 
 
- 
 
 37 
   objEH.TryORA ( OraSession )
37 
	OraSession.BeginTrans
 38 
   On Error Resume Next
38
39 
 
39 
	OraDatabase.ExecuteSQL _
 40 
   OraDatabase.ExecuteSQL _
40 
			"DELETE FROM jira_issues WHERE pv_id = "& NNpv_id &" AND iss_key = '"& NNiss_link&"'"
 41 
         "DELETE FROM jira_issues WHERE pv_id = "& NNpv_id &" AND iss_key = '"& NNiss_link&"'"
41
42 
 
42 
	OraDatabase.ExecuteSQL _
 43 
   OraDatabase.ExecuteSQL _
43 
			"BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_removed', "& objAccessControl.UserId &", 'Issue Key: "& NNiss_link &" Removed' );  END;"
 44 
         "BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_removed', "& objAccessControl.UserId &", 'Issue Key: "& NNiss_link &" Removed' );  END;"
44
45 
 
45 
  	OraSession.CommitTrans
 46 
   objEH.CatchORA ( OraSession )
46 
End Sub
 47 
End Sub
47 
%>
 48 
%>
48 
<%
 49 
<%
49 
'-----------------------  MAIN LINE  ---------------------------
 50 
'-----------------------  MAIN LINE  ---------------------------
50 
 
 51 
 
51 
'--- Process submition ---
 52 
'--- Process submition ---
52 
If (Request("pv_id") <> "") AND  (Request("iss_link") <> "") Then
 53 
If (Request("pv_id") <> "") AND  (Request("iss_link") <> "") Then
53 
	' All mandatory parameters FOUND
 54 
   ' All mandatory parameters FOUND
54 
	Call Remove_Issue( Request("pv_id"), Request("iss_link") )
 55 
   Call Remove_Issue( Request("pv_id"), Request("iss_link") )
55 
	Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 56 
   Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
56 
Else
 57 
Else
57 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 58 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
58 
	Response.write QSTR_All
59 
   Response.write QSTR_All
59 
End If
 60 
End If
60 
%>
 61 
%>
61 
 
 62 
 
62 
<!-- DESTRUCTOR ------->
 63 
<!-- DESTRUCTOR ------->
63 
<!--#include file="common/destructor.asp"-->
 - 
 
64 

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

          

          

            -
            
 

            65