Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 123
Line 12... Line 12...
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
 14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
 16 
<!--#include file="common/common_dbedit.asp"-->
- 
 
 17 
<!--#include file="common/common_make_release_subs.asp"-->
17 
<%
 18 
<%
18 
'------------ ACCESS CONTROL ------------------
 19 
'------------ ACCESS CONTROL ------------------
19 
%>
 20 
%>
20 
<!--#include file="_access_control_login.asp"-->
 21 
<!--#include file="_access_control_login.asp"-->
21 
<!--#include file="_access_control_general.asp"-->
 22 
<!--#include file="_access_control_general.asp"-->
Line 26... Line 27...
26 
'------------ Constants Declaration -----------
 27 
'------------ Constants Declaration -----------
27 
 
 28 
 
28 
'------------ Variable Init -------------------
 29 
'------------ Variable Init -------------------
29 
parPv_id = QStrPar("pv_id")
 30 
parPv_id = QStrPar("pv_id")
30 
'----------------------------------------------
 31 
'----------------------------------------------
31 
%>
 - 
 
32 
<%
 - 
 
33 
Sub ApproveMerge ( NNpv_id, NNrtag_id )
 - 
 
34 
	On Error Resume Next
 - 
 
35 
	objEH.ErrorRedirect = TRUE
 - 
 
36 
 
 - 
 
37 
	OraDatabase.Parameters.Add "PV_ID", 			NNpv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
38 
	OraDatabase.Parameters.Add "RTAG_ID", 			NNrtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
39 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
40 
 
 - 
 
41 
	objEH.TryORA ( OraSession )
 - 
 
42 
 
 - 
 
43 
	OraSession.BeginTrans
 - 
 
44 
 
 - 
 
45 
	OraDatabase.ExecuteSQL _
 - 
 
46 
  	"BEGIN "&_
 - 
 
47 
	" PK_ENVIRONMENT.APPROVE_MERGE ( :PV_ID, :RTAG_ID, :USER_ID );"&_
 - 
 
48 
	"END; "
 - 
 
49 
 
 - 
 
50 
  	OraSession.CommitTrans
 - 
 
51 
 
 - 
 
52 
	objEH.CatchORA ( OraSession )
 - 
 
53 
 
 - 
 
54 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
55 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
56 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
57 
End Sub
 - 
 
58 
'------------------------------------------------------------------------------------
 - 
 
59 
 
 32 
 
60 
'-------------------------------------------------------------------------------------
 33 
'-------------------------------------------------------------------------------------
61 
%>
 - 
 
62 
<%
 - 
 
63 
'---------------------------------- MAIN LINE ----------------------------------------
 34 
'---------------------------------- MAIN LINE ----------------------------------------
64 
 
 35 
 
65 
 
 36 
 
66 
' All Requirements OK
 37 
' All Requirements OK
67 
Call ApproveMerge ( parPv_id, parRtag_id )
 38 
Call PUBLIC_ApproveMerge ( parRtag_id, parPv_id )
68 
 
 39 
 
69 
If objEH.Finally Then
 40 
If objEH.Finally Then
70 
	Call OpenInWindow ( "dependencies.asp?rtag_id="&parRtag_id&"&pv_id="&parPv_id )
 41 
	Call OpenInWindow ( "dependencies.asp?rtag_id="&parRtag_id&"&pv_id="&parPv_id )
71 
End If
 42 
End If
72 
 
 43