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 
'				Add Package Interest
 8 
'            Add Package Interest
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 35... Line 35...
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
Sub Add_Package_Interest ( nProj_id, nPkg_id )
 38 
Sub Add_Package_Interest ( nProj_id, nPkg_id )
39 
 
 39 
 
40 
	OraDatabase.BeginTrans
 - 
 
41
- 
 
42 
	OraDatabase.Parameters.Add "PROJ_ID",	nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
40 
   OraDatabase.Parameters.Add "PROJ_ID",  nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "PKG_ID",	nPkg_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
41 
   OraDatabase.Parameters.Add "PKG_ID",   nPkg_id,  ORAPARM_INPUT, ORATYPE_NUMBER
44 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
45 
 
 - 
 
46 
	objEH.TryORA ( OraSession )
 - 
 
47
- 
 
48 
	OraDatabase.ExecuteSQL _
 - 
 
49 
	"BEGIN   ADD_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
 - 
 
50
- 
 
51 
	objEH.CatchORA ( OraSession )
 - 
 
52
- 
 
53 
	OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
54 
	OraDatabase.Parameters.Remove "PKG_ID"
- 
 
55 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
56
- 
 
57 
	OraDatabase.CommitTrans
- 
 
58 
 
 43 
 
- 
 
 44 
   On Error Resume Next
- 
 
 45 
   objEH.TryORA ( OraSession )
- 
 
 46 
 
- 
 
 47 
   OraDatabase.ExecuteSQL _
- 
 
 48 
   "BEGIN   ADD_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID );   END;"
- 
 
 49 
 
- 
 
 50 
   objEH.CatchORA ( OraSession )
- 
 
 51 
 
- 
 
 52 
   OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 53 
   OraDatabase.Parameters.Remove "PKG_ID"
- 
 
 54 
   OraDatabase.Parameters.Remove "USER_ID"
59 
 
 55 
 
60 
'Response.Write(objAccessControl.UserId)
 56 
'Response.Write(objAccessControl.UserId)
61
- 
 
62
57 
 
63 
End Sub
 58 
End Sub
64 
%>
 59 
%>
65 
<%
 60 
<%
66 
'---------------------------------- MAIN LINE ----------------------------------------
 61 
'---------------------------------- MAIN LINE ----------------------------------------
67 
 
 62 
 
68 
 
 63 
 
69 
Call Add_Package_Interest(parProj_id, parPkg_id)
 64 
Call Add_Package_Interest(parProj_id, parPkg_id)
70 
%>
 65 
%>
71 
	<script language="JavaScript" type="text/javascript">
 66 
   <script language="JavaScript" type="text/javascript">
72 
	window.opener.location='members_notifications.asp?proj_id=<%=parProj_id%>';
 67 
   window.opener.location='members_notifications.asp?proj_id=<%=parProj_id%>';
73 
	</script>
68 
   </script>
74 
<%
 69 
<%
75 
Call CloseWindow()
 70 
Call CloseWindow()
76 
 
 71 
 
77 
'Return Page
 72 
'Return Page
78 
'If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then
 73 
'If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then
79 
'    Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 74 
'    Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
80 
'Else
 75 
'Else
81 
'    Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 76 
'    Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
82 
'End If
 77 
'End If
83
78 
 
84 
%>
 79 
%>
85 
 
 80 
 
86 
 
 81 
 
87 
<!-- DESTRUCTOR ------->
 82 
<!-- DESTRUCTOR ------->
88 
<!--#include file="common/destructor.asp"-->
 - 
 
89 

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

          

          

            -
            
 

            84