Blame | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%Option explicitResponse.Expires = 0 ' always load the page, dont store%><%'=====================================================' Ripple Properties'=====================================================%><!--#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="common/_popup_window_common.asp"--><%' Set rfile parameter. This is a return page after LoginCall objPMod.StoreParameter ( "rfile", "fixed_issues.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 queryDim rsQry, rsTempDim checkedDim FRripplebuildYES, FRripplebuildNODim objFormCollectorDim Query_StringDim isDLocked'------------ Constants Declaration -----------'------------ Variable Init -------------------Set objFormCollector = CreateObject("Scripting.Dictionary")parPv_id = QStrPar("pv_id")'----------------------------------------------%><%'------------------------------------------------------------------------------------------------------------------------------------Sub UpdateRippleType ( )Dim rsTemp, Query_StringQuery_String = _" SELECT ripple_field"&_" FROM package_versions"&_" WHERE pv_id = "& Request("pv_id")Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))If (rsTemp("ripple_field").Value <> Request("ripple_type_combo")) OR IsNull(rsTemp("ripple_field").Value) Then'update fieldsrsTemp.Edit()rsTemp.Fields("ripple_field").Value = Request("ripple_type_combo")rsTemp.Update()'/* Log Action */If Request("ripple_type_combo") = "M" ThenCall Log_Action ( Request("pv_id"), "ripple_type_update", "Major Number" )ElseIf Request("ripple_type_combo") = "m" ThenCall Log_Action ( Request("pv_id"), "ripple_type_update", "Minor Number" )ElseIf Request("ripple_type_combo") = "p" ThenCall Log_Action ( Request("pv_id"), "ripple_type_update", "Patch Number" )ElseCall Log_Action ( Request("pv_id"), "ripple_type_update", "Build Number" )End IfEnd IfrsTemp.Close()Set rsTemp = nothingEnd Sub'------------------------------------------------------------------------------------------------------------------------------------Sub RipplePackage (flag)OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBEROraSession.BeginTransIf flag ThenOraDatabase.ExecuteSQL _"BEGIN Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID ); END;"ElseOraDatabase.ExecuteSQL _"BEGIN UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID ); END;"End IfOraSession.CommitTransOraDatabase.Parameters.Remove "PV_ID"OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "USER_ID"End Sub'------------------------------------------------------------------------------------------------------------------------------------Sub Get_Form_Details( nPv_id, ByRef objDetails )Dim rsTemp, Query_StringQuery_String = _" SELECT * "&_" FROM package_versions pv, packages pkg"&_" WHERE pv.pkg_id = pkg.pkg_id"&_" AND pv_id = "& nPv_idSet rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) ThenobjDetails.Item("pkg_name") = rsTemp("pkg_name")objDetails.Item("pkg_version") = rsTemp("pkg_version")objDetails.Item("pkg_label") = rsTemp("pkg_label")objDetails.Item("src_path") = rsTemp("src_path")objDetails.Item("pv_description") = rsTemp("pv_description")objDetails.Item("pv_overview") = rsTemp("pv_overview")objDetails.Item("v_ext") = rsTemp("v_ext")objDetails.Item("is_deployable") = rsTemp("is_deployable")objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")objDetails.Item("build_type") = rsTemp("build_type")objDetails.Item("bs_id") = rsTemp("bs_id")objDetails.Item("ripple_field") = rsTemp("ripple_field")End IfrsTemp.Close()Set rsTemp = NothingEnd Sub'----------------------------------------------------------------------------------------------------------------------Sub RenderRippleTypeCombo( cRippleType, cDLocked )Dim criticalSectionIsEditablecriticalSectionIsEditable = Is_Critical_Section_Editable ( isDLocked )Query_String = "select * from ripple_field_states"If (criticalSectionIsEditable) ThenResponse.Write "<select name='ripple_type_combo' class='form_item'>"ElseResponse.Write "<select name='ripple_type_combo' class='form_item' disabled>"End IfSet rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)If cRippleType = rsTemp.Fields("state_acronym") ThenResponse.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") &"</option>"ElseIf IsNull(cRippleType) AND rsTemp.Fields("state_acronym") = "b" Then 'If nothing selected, select Build NumberResponse.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") & "</option>"ElseResponse.write "<option value='"& rsTemp.Fields("state_acronym") &"'>"& rsTemp.Fields("state_name") & "</option>"End IfrsTemp.MoveNextWEndrsTemp.Close()Set rsTemp = nothingResponse.Write "</select>"End Sub'----------------------------------------------------------------------------------------------------------------------%><%'------------------------------- RUN BEFORE PAGE RENDER ----------------------------Call Get_Form_Details( parPv_id, objFormCollector )Call Get_Pkg_Short_Info( parPv_id, NULL, NULL, NULL, NULL, NULL, isDLocked )'-------------------------------------'Start Process SubmissionIf CBool(QStrPar("action")) AND objAccessControl.UserLogedIn ThenCall UpdateRippleType()If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" ThenCall RipplePackage(True)End IfIf CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "0" ThenCall RipplePackage(False)End IfCall OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )Call CloseWindowEnd If'End Process Submission'--------------------------------------------------------------------------------------------%><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><!-- TIPS --><script language="JavaScript" src="images/tipster.js"></script><script language="JavaScript" src="images/_help_tips.js"></script><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resizedif (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();"><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><form name="rippleproperties" method="post" action="<%=scriptName%>"><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="icons/i_pkg_ripple_type.gif" width="21" height="21" hspace="5" border="0"></td><td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl"> Ripple Properties </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><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="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td><td width="1%" nowrap class="form_group" valign="bottom"></td><td nowrap width="1%"> </td><td nowrap width="100%"> </td></tr><tr><td> </td><td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td><%FRripplebuildYES = ""FRripplebuildNO = ""Dim rsQryRipple, rippleFlagSet rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT * FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))If rsQryRipple.RecordCount = 0 ThenFRripplebuildYES = "checked"rippleFlag = TrueElseFRripplebuildNO = "checked"rippleFlag = FalseEnd IfrsQryRipple.Close()Set rsQryRipple = nothing%><td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">Yes<input name="FRripplebuild" type="radio" value="1" <%=FRripplebuildYES%>> No<input name="FRripplebuild" type="radio" value="0" <%=FRripplebuildNO%>></td><td background="images/bg_form_lightbluedark.gif"><span class='err_alert'><b>WARNING!</span><font size='1'> When set to No, this package and <u>all</u> packages which depend on this package, either directly or indirectly, will be excluded from the build.</font></b></td></tr><tr><td> </td><td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td><td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td bgcolor="#FFFFFF"><table width="100" border="0" cellpadding="3" cellspacing="0" background="images/bg_form_lightbluedark.gif"><tr><td nowrap background="images/bg_form_lightbluedark.gif" bgcolor="#F5F5F5" class="form_txt"><% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%></td></tr><tr><td width="1" background="images/bg_form_lightbluedark.gif"></td><td width="1"></td><td width="100%"></td></tr></table></td></tr></table></td><td background="images/bg_form_lightbluedark.gif"><span class='err_alert'><b>WARNING!</span><font size='1'> This enables a package to advertise how it will be numbered when rippled. THIS IS PRIMARILY INTENDED TO CATER FOR PACKAGES WHICH DO NOT SUPPORT A NON ZERO PATCH/BUILD NUMBER, AND FOR PRODUCTSWHERE CONSTANTLY RIPPLING A PATCH/BUILD NUMBER IS DISLIKED BY A CUSTOMER.</font></b></td></tr><tr><td> </td><td nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td><td nowrap> <p> </p></td><td nowrap> </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="rippleFlag" value="<%=rippleFlag%>"><input type="hidden" name="action" value="true"></form></body></html><%'------------- RUN AFTER PAGE RENDER ---------------Set objFormCollector = Nothing'---------------------------------------------------%><!-- DESTRUCTOR -------><!--#include file="common/destructor.asp"-->