Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0   ' always load the page, dont store
%>
<%
'=====================================================
'               Remove Code Review URL
'=====================================================
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Sub RemoveCodeReviewURL ( nCr_id )

   OraDatabase.Parameters.Add "CR_ID",   nCr_id,   ORAPARM_INPUT,  ORATYPE_NUMBER

   objEH.TryORA ( OraSession )
   On Error Resume Next

   OraDatabase.ExecuteSQL _
   "BEGIN PK_PACKAGE.REMOVE_CODE_REVIEW_URL ( :CR_ID );  END;"

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "CR_ID"

End Sub
%>
<%
'-------------------------  MAIN LINE  -----------------------------------------

If Request("cr_id") <> "" Then
  Call RemoveCodeReviewURL ( Request("cr_id") )
End If
  Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"&#CODE_REVIEW")

%>

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