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 
'=====================================================
 3 
'=====================================================
4 
' 			 	    Change release Mode
 4 
'                  Change release Mode
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 25... Line 25...
25 
<!--#include file="_access_control_general.asp"-->
 25 
<!--#include file="_access_control_general.asp"-->
26 
<!--#include file="_access_control_project.asp"-->
 26 
<!--#include file="_access_control_project.asp"-->
27 
<%
 27 
<%
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim rsQry
 29 
Dim rsQry
30 
Dim	myMail
 30 
Dim   myMail
31 
'------------ Constants Declaration -----------
 31 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
 32 
'------------ Variable Init -------------------
33 
'----------------------------------------------
 33 
'----------------------------------------------
34 
%>
 34 
%>
35 
<%
 35 
<%
36 
Sub CheckWIPS ()
 36 
Sub CheckWIPS ()
37 
 
 37 
 
38 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
38 
   OraDatabase.Parameters.Add "RTAG_ID",  Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
39
39 
 
40 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
 40 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
41
41 
 
42 
	OraDatabase.Parameters.Remove "RTAG_ID"
 42 
   OraDatabase.Parameters.Remove "RTAG_ID"
43
43 
 
44 
	If	rsQry.RecordCount	> 0 Then
 44 
   If rsQry.RecordCount > 0 Then
45 
		Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") )
 45 
      Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") )
46 
	Else
 46 
   Else
47 
		'COMPLETE THE REQUEST...
 47 
      'COMPLETE THE REQUEST...
48 
		Call ChangeReleaseMode ()
 48 
      Call ChangeReleaseMode ()
49 
	End	If
 49 
   End If
50
50 
 
51 
	rsQry.Close()
 51 
   rsQry.Close()
52 
	Set	rsQry	=	Nothing
 52 
   Set rsQry = Nothing
53
- 
 
54 
 
 53 
 
55 
End Sub
 54 
End Sub
56 
'----------------------------------------------------------------------------------------------------------
 55 
'----------------------------------------------------------------------------------------------------------
57 
Sub ChangeReleaseMode ( )
 56 
Sub ChangeReleaseMode ( )
58
57 
 
59 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
58 
   OraDatabase.Parameters.Add "RTAG_ID",  Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
60 
	OraDatabase.Parameters.Add "MODECODE", 			Request("mode_code"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 59 
   OraDatabase.Parameters.Add "MODECODE", Request("mode_code"),    ORAPARM_INPUT, ORATYPE_NUMBER
61 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 60 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
62
- 
 
63
61 
 
- 
 
 62 
   objEH.TryORA ( OraSession )
64 
	OraSession.BeginTrans
 63 
   On Error Resume Next
65
64 
 
66 
	OraDatabase.ExecuteSQL _
 65 
   OraDatabase.ExecuteSQL _
67 
		" BEGIN   CHANGE_RELEASE_MODE ( :MODECODE, :RTAG_ID, :USER_ID );  END;"
 66 
      " BEGIN   CHANGE_RELEASE_MODE ( :MODECODE, :RTAG_ID, :USER_ID );  END;"
68
67 
 
69 
  	OraSession.CommitTrans
 68 
   objEH.CatchORA ( OraSession )
70
- 
 
71
69 
 
72 
	OraDatabase.Parameters.Remove "RTAG_ID"
 70 
   OraDatabase.Parameters.Remove "RTAG_ID"
73 
	OraDatabase.Parameters.Remove "MODECODE"
 71 
   OraDatabase.Parameters.Remove "MODECODE"
74 
	OraDatabase.Parameters.Remove "USER_ID"
 72 
   OraDatabase.Parameters.Remove "USER_ID"
75
73 
 
76 
End Sub
 74 
End Sub
77 
'------------------------------------------------------------------------------------------------
 75 
'------------------------------------------------------------------------------------------------
78 
Sub NotifyArchive
 76 
Sub NotifyArchive
79 
 
 77 
 
80 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
78 
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
81 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 79 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 80 
 
- 
 
 81 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0))
- 
 
 82 
 
- 
 
 83 
 
- 
 
 84 
   Set myMail=Server.CreateObject("Persits.MailSender")
- 
 
 85 
   myMail.Host = SMTP_HOST
- 
 
 86 
   myMail.Subject="Project Release Archival Request"
- 
 
 87 
   myMail.Body = "The Release Branch " & rsQry("rtag_name") &" in Project " & rsQry("proj_name") &" will be archived after 5 days. Please contact the Administrator for any change to the request."
- 
 
 88 
   myMail.From=ADMIN_EMAIL
- 
 
 89 
   myMail.AddAddress rsQry("user_email")&", releasem@erggroup.com"
- 
 
 90 
 
- 
 
 91 
   myMail.Send
- 
 
 92 
   set myMail=nothing
- 
 
 93 
 
- 
 
 94 
   rsQry.Close()
- 
 
 95 
   Set rsQry = Nothing
- 
 
 96 
 
- 
 
 97 
   OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 98 
   OraDatabase.Parameters.Remove "USER_ID"
82 
 
 99 
 
83 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0))
 - 
 
84
- 
 
85
- 
 
86 
	Set myMail=Server.CreateObject("Persits.MailSender")
 - 
 
87 
	myMail.Host = SMTP_HOST
 - 
 
88 
	myMail.Subject="Project Release Archival Request"
 - 
 
89 
	myMail.Body = "The Release Branch " & rsQry("rtag_name") &" in Project " & rsQry("proj_name") &" will be archived after 5 days. Please contact the Administrator for any change to the request."
 - 
 
90 
	myMail.From=ADMIN_EMAIL
 - 
 
91 
	myMail.AddAddress rsQry("user_email")&", releasem@erggroup.com"
 - 
 
92
- 
 
93 
	myMail.Send
 - 
 
94 
	set myMail=nothing
 - 
 
95
- 
 
96 
	rsQry.Close()
 - 
 
97 
	Set	rsQry	=	Nothing
 - 
 
98 
 
 - 
 
99 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
100 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
101
- 
 
102 
End Sub
 100 
End Sub
103 
%>
 101 
%>
104 
<%
 102 
<%
105 
'-----------------------  MAIN LINE  ---------------------------
 103 
'-----------------------  MAIN LINE  ---------------------------
106 
	On Error Resume Next
 104 
On Error Resume Next
107
105 
 
108 
	objEH.Try()
 106 
objEH.Try()
109 
'--- Process submission ---
 107 
'--- Process submission ---
110 
If (Request("rtag_id") <> "")  AND  (Request("mode_code") <> "") Then
 108 
If (Request("rtag_id") <> "")  AND  (Request("mode_code") <> "") Then
111
109 
 
- 
 
 110 
   ' mode_code values are:
- 
 
 111 
   ' 1   Open
- 
 
 112 
   ' 2   Restrictive
- 
 
 113 
   ' 3   Closed
- 
 
 114 
   ' 4   CCB
- 
 
 115 
   ' 5   Archive
- 
 
 116 
 
112 
	If Request("mode_code") = 3 Then
 117 
   If Request("mode_code") = 3 Then
- 
 
 118 
      ' only allow change to closed mode if release has no wips or planned items.
113 
		Call CheckWIPS ()
 119 
      Call CheckWIPS ()
114 
	ElseIf Request("mode_code") = 5 Then
 120 
   ElseIf Request("mode_code") = 5 Then
115 
		Call ChangeReleaseMode()
 121 
      Call ChangeReleaseMode()
116 
		Call NotifyArchive()
 122 
      Call NotifyArchive()
117 
		OpenInWindow( "rtree.asp?proj_id="& Get_Proj_ID(Request("rtag_id")))
 123 
      OpenInWindow( "rtree.asp?proj_id="& Get_Proj_ID(Request("rtag_id")))
118 
	Else
 124 
   Else
119 
		'COMPLETE THE REQUEST...
 125 
      'COMPLETE THE REQUEST...
120 
		Call ChangeReleaseMode ()
 126 
      Call ChangeReleaseMode ()
121 
	End If
 - 
 
122
- 
 
123 
	' Display message
 - 
 
124 
	'If Request("mode_code") = "1" Then
 - 
 
125 
	'
- 
 
126 
	'	Call RaiseMsg ( enum_MSG_RELEASE_IS_IN_OPEN_MODE, parRtag_id )
 - 
 
127 
	'
- 
 
128 
	'ElseIf Request("mode_code") = "2" Then
 - 
 
129 
	'	Call RaiseMsg ( enum_MSG_RELEASE_IS_IN_RESTRICTIVE_MODE, parRtag_id )
 - 
 
130 
	'
- 
 
131 
	'ElseIf Request("mode_code") = "3" Then
 - 
 
132 
	'	Call RaiseMsg ( enum_MSG_RELEASE_IS_IN_CLOSED_MODE, parRtag_id )
- 
 
133 
	'
- 
 
134 
	'End If
 127 
   End If
135
128 
 
136 
	Call OpenInWindow( "dependencies.asp?rtag_id="& Request("rtag_id") )
 129 
   Call OpenInWindow( "dependencies.asp?rtag_id="& Request("rtag_id") )
137
- 
 
138
130 
 
139 
Else
 131 
Else
140 
	Err.Raise 8, "Request not accepted here."
 132 
   Err.Raise 8, "Request not accepted here."
141 
	'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 133 
   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
142 
	'Response.write QSTR_All
134 
   'Response.write QSTR_All
143 
End If
 135 
End If
144 
	objEH.Catch()
 136 
objEH.Catch()
145 
%>
 137 
%>
146 
 
 138 
 
147 
<!-- DESTRUCTOR ------->
 139 
<!-- DESTRUCTOR ------->
148 
<!--#include file="common/destructor.asp"-->
 - 
 
149 

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

          

          

            -
            
 

            141