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 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					Remove Code Review URL
 8 
'               Remove Code Review URL
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 29... Line 29...
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
%>
 30 
%>
31 
<%
 31 
<%
32 
Sub RemoveCodeReviewURL ( nCr_id )
 32 
Sub RemoveCodeReviewURL ( nCr_id )
33 
 
 33 
 
34 
	OraDatabase.Parameters.Add "CR_ID",   nCr_id,   ORAPARM_INPUT,  ORATYPE_NUMBER
 34 
   OraDatabase.Parameters.Add "CR_ID",   nCr_id,   ORAPARM_INPUT,  ORATYPE_NUMBER
35
35 
 
- 
 
 36 
   objEH.TryORA ( OraSession )
36 
	OraSession.BeginTrans
 37 
   On Error Resume Next
- 
 
 38 
 
37 
	OraDatabase.ExecuteSQL _
 39 
   OraDatabase.ExecuteSQL _
38 
	"BEGIN PK_PACKAGE.REMOVE_CODE_REVIEW_URL ( :CR_ID );  END;"
 40 
   "BEGIN PK_PACKAGE.REMOVE_CODE_REVIEW_URL ( :CR_ID );  END;"
39
41 
 
40 
	OraSession.CommitTrans
 42 
   objEH.CatchORA ( OraSession )
41
43 
 
42 
	OraDatabase.Parameters.Remove "CR_ID"
 44 
   OraDatabase.Parameters.Remove "CR_ID"
43
45 
 
44 
End Sub
 46 
End Sub
45 
%>
 47 
%>
46 
<%
 48 
<%
47 
'-------------------------  MAIN LINE  -----------------------------------------
 49 
'-------------------------  MAIN LINE  -----------------------------------------
48 
 
 50 
 
Line 52... Line 54...
52 
  Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"&#CODE_REVIEW")
 54 
  Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"&#CODE_REVIEW")
53 
 
 55 
 
54 
%>
 56 
%>
55 
 
 57 
 
56 
<!-- DESTRUCTOR ------->
 58 
<!-- DESTRUCTOR ------->
57 
<!--#include file="common/destructor.asp"-->
 - 
 
58 

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

          

          

            -
            
 

            60