Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0   ' always load the page, dont store
%>
<%
'=====================================================
'            Add Package Interest
'=====================================================
%>
<!--#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"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parRfile
Dim rsPkgInfo
Dim retERRmsg
Dim retParameters
Dim parPkg_id
Dim parProj_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parProj_id = Request("proj_id")
parRfile = QStrPar("rfile")
parPkg_id = Request("pkg_id")
'----------------------------------------------
%>
<%
Sub Add_Package_Interest ( nProj_id, nPkg_id )

   OraDatabase.Parameters.Add "PROJ_ID",  nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "PKG_ID",   nPkg_id,  ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER

   On Error Resume Next
   objEH.TryORA ( OraSession )

   OraDatabase.ExecuteSQL _
   "BEGIN   ADD_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "PROJ_ID"
   OraDatabase.Parameters.Remove "PKG_ID"
   OraDatabase.Parameters.Remove "USER_ID"

'Response.Write(objAccessControl.UserId)

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


Call Add_Package_Interest(parProj_id, parPkg_id)
%>
   <script language="JavaScript" type="text/javascript">
   window.opener.location='members_pkgs_followed.asp?proj_id=<%=parProj_id%>';
   </script>
<%
Call CloseWindow()

'Return Page
'If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then
'    Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
'Else
'    Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
'End If

%>


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