Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 4079
Line 69... Line 69...
69 
   OraDatabase.Parameters.Remove "RTAG_ID"
 69 
   OraDatabase.Parameters.Remove "RTAG_ID"
70 
   OraDatabase.Parameters.Remove "MODECODE"
 70 
   OraDatabase.Parameters.Remove "MODECODE"
71 
   OraDatabase.Parameters.Remove "USER_ID"
 71 
   OraDatabase.Parameters.Remove "USER_ID"
72 
 
 72 
 
73 
End Sub
 73 
End Sub
74 
'------------------------------------------------------------------------------------------------
 - 
 
75 
Sub NotifyArchive
 - 
 
76 
 
 - 
 
77 
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
78 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
79 
 
 - 
 
80 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0))
 - 
 
81 
 
 - 
 
82 
   Send_Email   "Release Manager Notification",_
 - 
 
83 
                adminEmail, _
 - 
 
84 
                rsQry("user_email")&", releasem@erggroup.com", _
 - 
 
85 
                "Project Release Archival Request", _
 - 
 
86 
                "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.",_
 - 
 
87 
                NULL
 - 
 
88
- 
 
89 
   rsQry.Close()
 - 
 
90 
   Set rsQry = Nothing
 - 
 
91 
 
 - 
 
92 
   OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
93 
   OraDatabase.Parameters.Remove "USER_ID"
 - 
 
94 
 
 - 
 
95 
End Sub
 - 
 
96 
%>
 74 
%>
97 
<%
 75 
<%
98 
'-----------------------  MAIN LINE  ---------------------------
 76 
'-----------------------  MAIN LINE  ---------------------------
99 
On Error Resume Next
 77 
On Error Resume Next
100 
 
 78 
 
101 
objEH.Try()
 79 
objEH.Try()
102 
'--- Process submission ---
 80 
'--- Process submission ---
103 
If (Request("rtag_id") <> "")  AND  (Request("mode_code") <> "") Then
 81 
If (Request("rtag_id") <> "")  AND  (Request("mode_code") <> "") Then
104 
 
 82 
 
105 
   ' mode_code values are:
 83 
   ' mode_code values are:
106 
   ' 1   Open
 84 
   '    1   Open
107 
   ' 2   Restrictive
 85 
   '    2   Restrictive
108 
   ' 3   Closed
 86 
   '    3   Closed
109 
   ' 4   CCB
 87 
   '    4   CCB
110 
   ' 5   Archive
 88 
   '    5   Archive
111 
 
 89 
 
112 
   If Request("mode_code") = 3 Then
 90 
   If Request("mode_code") = 3  OR Request("mode_code") = 5 Then
113 
      ' only allow change to closed mode if release has no wips or planned items.
 91 
      ' only allow change to closed or archived mode if release has no wips or planned items.
114 
      Call CheckWIPS ()
 92 
      Call CheckWIPS ()
115 
   ElseIf Request("mode_code") = 5 Then
 - 
 
116 
      Call ChangeReleaseMode()
 - 
 
117 
      Call NotifyArchive()
 - 
 
118 
      OpenInWindow( "rtree.asp?proj_id="& Get_Proj_ID(Request("rtag_id")))
 - 
 
119 
   Else
 93 
   Else
120 
      'COMPLETE THE REQUEST...
 94 
      'COMPLETE THE REQUEST...
121 
      Call ChangeReleaseMode ()
 95 
      Call ChangeReleaseMode ()
122 
   End If
 96 
   End If
123 
 
 97