Rev 129 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%Option explicitResponse.Expires = 0 ' always load the page, dont store%><%'=====================================================' Obsolete Patch'=====================================================%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/common_dbedit.asp"--><!--#include file="controls/ERGFormComponent/classFormComponent.asp"--><!--#include file="common/_popup_window_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_login.asp"--><!--#include file="_access_control_general.asp"--><!--#include file="_access_control_project.asp"--><%'------------ Variable Definition -------------Dim parPv_idDim objFormComponentDim patchRecCountDim rsTempDim parRfile'------------ Constants Declaration -----------'------------ Variable Init -------------------parPv_id = QStrPar("pv_id")parRfile = QStrPar("rfile")Set objFormComponent = New FormComponent'----------------------------------------------%><%'----------------------------------------------------------------------------------------------------Sub Run_onMakeOfficial ( nPv_id, nRtag_id )Dim objWSH, proj_id, QryobjEH.TryORA ( OraSession )On Error Resume NextOraDatabase.ExecuteSQL " UPDATE package_versions "&_" SET release_notes_info = '"& enum_RELEASE_NOTES_GENERATING &"'"&_" WHERE pv_id = "& nPv_idobjEH.CatchORA ( OraSession )If objEH.LastOraFailed = FALSE ThenSet objWSH = Server.CreateObject("WScript.Shell")'Used for getting the package name and package versionOraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBERSet Qry = OraDatabase.DbCreateDynaset( "SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID = :RTAG_ID", 0 )OraDatabase.Parameters.Remove "RTAG_ID"proj_id = Qry("proj_id")If proj_id = 281 Or proj_id = 221 ThenobjWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER_STEP &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes //job:PostRun "&_"/pv_id:"& nPv_id , _0, FalseElseobjWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes //job:PostRun "&_"/pv_id:"& nPv_id , _0, FalseEnd IfSet objWSH = nothingEnd IfEnd Sub'----------------------------------------------------------------------------------------------------Sub MakeRelease ( NNpv_id, NNrtag_id )On Error Resume NextobjEH.ErrorRedirect = TRUEOraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBERobjEH.TryORA ( OraSession )'OraDatabase.ExecuteSQL " UPDATE package_versions "&_' " SET dlocked = 'Y', "&_' " released_at = :RTAG_ID, "&_' " modified_stamp = "& ORA_SYSDATETIME &", "&_' " modifier_id = :USER_ID"&_' " WHERE pv_id = :PV_ID"OraDatabase.ExecuteSQL _"BEGIN "&_" PK_ENVIRONMENT.MAKE_RELEASE ( :PV_ID, :RTAG_ID, :USER_ID );"&_"END; "objEH.CatchORA ( OraSession )OraDatabase.Parameters.Remove "PV_ID"OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "USER_ID"'/* Log Action */'Call Log_Action ( NNpv_id, "makeofficial", NULL )End Sub'-----------------------------------------------------------------------------------------Sub MakeBulkReleasePatches ( NNPatch_id_list, NNrtagId )Dim pvId, iLooppvId = split(NNPatch_id_list, ",")For iLoop = LBound(pvId) to UBound(pvId)pvId(iLoop) = Trim(pvId(iLoop))NextFor iLoop = LBound(pvId) to UBound(pvId)Call MakeRelease(pvId(iLoop), NNrtagId )'Response.Redirect ( "_generate_release_notes.asp?pv_id="& pvId(iLoop) &"&rtag_id="& NNrtagId )Call Run_onMakeOfficial(pvId(iLoop), NNrtagId)' Response.Redirect( "_make_released.asp?pv_id="& pvId(iLoop) &"&rtag_id="& Request("rtag_id") )NextEnd Sub%><%'Process submission'------------ Action Requirements -------------------If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn ThenCall MakeBulkReleasePatches ( Request("patch_id_list"), Request("rtag_id") )Call OpenInParentWindow ( "patches.asp?pv_id="& parPv_id &"&rtag_id="& Request("rtag_id") )Call CloseWindowEnd If%><html><head><title>Release Manager</title><meta http-equiv="Pragma" content="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><script language="javascript">function checkAllAuto(){var args = arguments;start_point:for (var i=0;i<document.forms[0].elements.length;i++){found = false;var e=document.forms[0].elements[i];if ((e.name != 'checkallauto') && (e.type=='checkbox'))e.checked=document.forms[0].checkallauto.checked;}}</script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();"><%'-- FROM START ---------------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormSearch"objFormComponent.Action = scriptNameCall objFormComponent.FormStart()%><table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%"><tr><td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td><td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl"> Make Bulk Patches Official</td><td background="images/lbox_bg_blue.gif" align="right" width="50%"><input type="submit" name="btn" value="Submit" class="form_btn_comp"><input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()"></td><td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap><img src="images/h_trsp_dot.gif" width="5" height="22"></td></tr><!-- INCLUDE PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><%OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBERSet rsTemp = OraDatabase.DbCreateDynaset( GetQuery("BulkPatchesRelease.sql"), cint(0))OraDatabase.Parameters.Remove "PV_ID"patchRecCount = rsTemp.RecordCount%><tr><td height="100%" width="1%"> </td><td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td width="4%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td><td nowrap width="60%"> </td></tr><tr><td width="33%" colspan="3" nowrap class="body_colb">Available Patches To Make Official<br><table width="265" border="0"><tr><td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><input type="checkbox" name="checkallauto" value="Check All" onclick="checkAllAuto();"></td><td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><b>Select All</b></td><td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td></tr><tr><td width="20" background="images/bg_form_lightbluedark.gif"> </td><td width="90" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td><td width="119" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td></tr><%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%><tr><%If (rsTemp("patch_id")) <> "0" Then %><td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("patch_id")%>"></td><%Else%><td><input type="checkbox" name="patch_id_list" value="<%=rsTemp("ppatch_id")%>"></td><%End If%><td nowrap class="form_txt"><%=rsTemp("pkg_name")%></td><td width="18" nowrap class="form_txt"><%=rsTemp("pkg_version")%></td></tr><%rsTemp.MoveNextWEndrsTemp.CloseSet rsTemp = nothing%></table><br></td></tr></table></td></tr><tr><td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td><td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td></tr></table><input type="hidden" name="pv_id" value="<%=parPv_id%>"><input type="hidden" name="rtag_id" value="<%=parRtag_id%>"><input type="hidden" name="action" value="true"><%Call objFormComponent.FormEnd()'-- FROM END ----------------------------------------------------------------------------------------------------------------%></body></html><!-- DESTRUCTOR -------><!--#include file="common/destructor.asp"-->