<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' Change release Mode ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "dependencies.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsQry '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <% Sub CheckWIPS () OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" If rsQry.RecordCount > 0 Then Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") ) Else 'COMPLETE THE REQUEST... Call ChangeReleaseMode () End If rsQry.Close() Set rsQry = Nothing End Sub '---------------------------------------------------------------------------------------------------------- Sub ChangeReleaseMode ( ) OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "MODECODE", Request("mode_code"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ " BEGIN CHANGE_RELEASE_MODE ( :MODECODE, :RTAG_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "MODECODE" OraDatabase.Parameters.Remove "USER_ID" End Sub '------------------------------------------------------------------------------------------------ Sub NotifyArchive OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NotifyArchive.sql"), cint(0)) Send_Email "Release Manager Notification",_ adminEmail, _ rsQry("user_email")&", releasem@erggroup.com", _ "Project Release Archival Request", _ "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.",_ NULL rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "USER_ID" End Sub %> <% '----------------------- MAIN LINE --------------------------- On Error Resume Next objEH.Try() '--- Process submission --- If (Request("rtag_id") <> "") AND (Request("mode_code") <> "") Then ' mode_code values are: ' 1 Open ' 2 Restrictive ' 3 Closed ' 4 CCB ' 5 Archive If Request("mode_code") = 3 Then ' only allow change to closed mode if release has no wips or planned items. Call CheckWIPS () ElseIf Request("mode_code") = 5 Then Call ChangeReleaseMode() Call NotifyArchive() OpenInWindow( "rtree.asp?proj_id="& Get_Proj_ID(Request("rtag_id"))) Else 'COMPLETE THE REQUEST... Call ChangeReleaseMode () End If Call OpenInWindow( "dependencies.asp?rtag_id="& Request("rtag_id") ) Else Err.Raise 8, "Request not accepted here." 'Response.write "Some mandatory parameters are missing!" & "
" 'TODO 'Response.write QSTR_All End If objEH.Catch() %>