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"-->
22 
<!--#include file="_access_control_project.asp"-->
 23 
<!--#include file="_access_control_project.asp"-->
23 
<%
 24 
<%
24 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
25 
Dim parPv_id
 26 
Dim parPv_id
26 
Dim parRfile
 27 
Dim parRfile
27 
Dim rsPkgInfo
 - 
 
28 
Dim retERRmsg
 28 
Dim retERRmsg
29 
Dim retALRTmsg
 29 
Dim retALRTmsg
30 
Dim retParameters
 30 
Dim retParameters
31 
Dim parSReq		' Skip requirements test
 31 
Dim parSReq		' Skip requirements test
32 
Dim pkgType
 32 
Dim pkgType
Line 36... Line 36...
36 
parRfile = QStrPar("rfile")
 36 
parRfile = QStrPar("rfile")
37 
parSReq = QStrPar("sreq")
 37 
parSReq = QStrPar("sreq")
38 
'----------------------------------------------
 38 
'----------------------------------------------
39 
%>
 39 
%>
40 
<%
 40 
<%
41 
Sub MakeRelease ( NNpv_id, NNrtag_id )
 - 
 
42 
	On Error Resume Next
 - 
 
43 
	objEH.ErrorRedirect = TRUE
 - 
 
44
- 
 
45
- 
 
46 
	OraDatabase.Parameters.Add "PV_ID", 			NNpv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
47 
	OraDatabase.Parameters.Add "RTAG_ID", 			NNrtag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
48 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
49
- 
 
50 
	objEH.TryORA ( OraSession )
 - 
 
51
- 
 
52
- 
 
53 
	OraSession.BeginTrans
 - 
 
54
- 
 
55 
	'OraDatabase.ExecuteSQL " UPDATE package_versions "&_
 - 
 
56 
	'					   " SET dlocked = 'Y', "&_
 - 
 
57 
	'					   "     released_at = :RTAG_ID, "&_
 - 
 
58 
	'					   "     modified_stamp = "& ORA_SYSDATETIME  &", "&_
 - 
 
59 
	'					   "     modifier_id = :USER_ID"&_
 - 
 
60 
	'					   " WHERE pv_id = :PV_ID"
 - 
 
61
- 
 
62 
	OraDatabase.ExecuteSQL _
 - 
 
63 
  	"BEGIN "&_
 - 
 
64 
	" PK_ENVIRONMENT.MAKE_RELEASE ( :PV_ID, :RTAG_ID, :USER_ID );"&_
 - 
 
65 
	"END; "
 - 
 
66
- 
 
67 
  	OraSession.CommitTrans
 - 
 
68
- 
 
69 
	objEH.CatchORA ( OraSession )
 - 
 
70
- 
 
71 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
72 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
73 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
74
- 
 
75
- 
 
76 
	'/* Log Action */
 - 
 
77 
	'Call Log_Action ( NNpv_id, "makeofficial", NULL )
 - 
 
78
- 
 
79 
End Sub
 - 
 
80 
'------------------------------------------------------------------------------------
 41 
'------------------------------------------------------------------------------------
81 
 
 42 
 
82 
'-------------------------------------------------------------------------------------
 43 
'-------------------------------------------------------------------------------------
83 
%>
 44 
%>
84 
<%
 45 
<%
85 
'---------------------------------- MAIN LINE ----------------------------------------
 46 
'---------------------------------- MAIN LINE ----------------------------------------
86 
'If parSReq = "Y" Then
47 
'If parSReq = "Y" Then
87 
'	' SKIP REQUIREMENTS
 48 
'	' SKIP REQUIREMENTS
88 
'	Call Release_Single_Package ( parPv_id, parRtag_id )
 49 
'	Call Release_Single_Package ( parPv_id, parRtag_id )
89 
'	Call Notify ( parRtag_id )
 50 
'	Call Notify ( parRtag_id )
90 
'	Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 51 
'	Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
91 
'End If
 52 
'End If
Line 97... Line 58...
97 
' REQUREMENTS CHECK for ALL
 58 
' REQUREMENTS CHECK for ALL
98 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
 59 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
99 
'Response.write "HERE"
 60 
'Response.write "HERE"
100 
If IsNull(retERRmsg) Then
 61 
If IsNull(retERRmsg) Then
101 
	' All Requirements OK
 62 
	' All Requirements OK
102 
	Call MakeRelease ( parPv_id, parRtag_id )
 63 
   Call PUBLIC_MakeRelease ( parRtag_id, parPv_id )
103
64 
 
104 
	If objEH.Finally Then
 65 
	If objEH.Finally Then
105 
		'Call Notify ( parRtag_id )
 66 
		'Call Notify ( parRtag_id )
106 
		'Call NotifyInterest(parPv_id, parRtag_id)
 67 
		'Call NotifyInterest(parPv_id, parRtag_id)
107 
		Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 68 
		Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
108
69 
 
109 
	End If
 70 
	End If
110
71 
 
111 
Else
 72 
Else
112 
	'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
 73 
	'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
113 
	'	' Products
 74 
	'	' Products
114 
	'	If retALRTmsg = "WARNING" Then
 75 
	'	If retALRTmsg = "WARNING" Then
115 
	'		' Allow overide
 76 
	'		' Allow overide
116 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "Y")
 77 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "Y")
117 
	'
78 
	'
118 
	'	Else
 79 
	'	Else
119 
	'		' Disallow overide
 80 
	'		' Disallow overide
120 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N")
 81 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N")
121 
	'
82 
	'
122 
	'	End If
 83 
	'	End If
123 
	'
84 
	'
124 
	'Else
 85 
	'Else
125 
		' Other Packages
 86 
		' Other Packages
126 
		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
 87 
		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
127
88 
 
128 
	'End If
 89 
	'End If
129
90 
 
130 
End If
 91 
End If
131 
 
 92 
 
132 
%>
 93 
%>
133 
 
 94 
 
134 
 
 95 
 
135 
<!-- DESTRUCTOR ------->
 96 
<!-- DESTRUCTOR ------->
136 
<!--#include file="common/destructor.asp"-->
 - 
 
137 

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

          

          

            -
            
 

            98