Subversion Repositories DevTools

Sub PlanControlPane

    Dim planDropChecked : planDropChecked = ""

    Dim planValue : planValue = 0

    Dim planOff : planOff = ""

    Dim planCautious : planCautious = ""

    Dim planAggressive : planAggressive = ""

' Get the planning control information

    query_string = _

        "SELECT PLAN_THRESHOLD, PLAN_DROP" &_

        " FROM release_tags rt" &_

        " WHERE rt.rtag_id  = " & parRtagId

    Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )

    If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then

        If rsQry("PLAN_DROP") <> "N" Then

            planDropChecked = " Checked"

        End If

        planValue = CInt(rsQry("PLAN_THRESHOLD"))

        Select Case planValue

        Case 0 : planOff = "Checked"

        Case 20 : planCautious = "Checked"

        Case 100  : planAggressive = "Checked"

        Case Else : planCautious = "Checked"

        End Select

    End If

    rsQry.Close()

    Set rsQry = nothing

%>

<fieldset class="body_rowg fset" <%=IIF(canControl, "", "disabled")%>>

    <legend class="body_scol">Plan Control</legend>

        <span id=planMode>

            <input     type="radio" name="plan"  <%=planOff%> value="0">Off

            <br><input type="radio" name="plan"  <%=planCautious%> value="20">Cautious

            <br><input type="radio" name="plan"  <%=planAggressive%> value="100">Aggressive

        </span>

        <hr>

        <input id=planDrop type=checkbox <%=planDropChecked%>>Drop Plan

</fieldset>

<%

End Sub

'-------------------------------------------------

Sub InsertJavaScript %>

<script language="JavaScript" type="text/JavaScript">

    formTips.tips.h_buildplan       = stdTip(300, 'Build Plan', 'The build plan is a guess as to the order in which packages will be built.' +

                                                              '<p>It will be recalculated before each build.' + 

                                                              '<p>The plan includes test builds, new builds and resultant ripples.' 

                                                              );

    formTips.tips.h_buildDuration    = stdTip(300, 'Planned Duration', 'The build duration (seconds) of the last build of this package - if known.' +

                                                              '<p>This is used as a guess as to the duration of the planned build.' 

                                                              );

    formTips.tips.h_buildEnd         = stdTip(300, 'Planned Completion', 'An educated guess as to the build completion time of the package.' +

                                                              '<p>It is based on the start time of the current build and the durations of each preceeding builds.' + 

                                                              '<p>If the duration of a build is not known then a time of 300 seconds will be assumed.' +

                                                              ' It also assumes 20 seconds to plan the next build.'

                                                              );

    formTips.tips.h_lastchange       = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +

                                                              '<p>Short times will be shown as seconds. Longer times will be shown as a time within ' + 

                                                              'the last 24 hours. Longer times will be shown as a date.' 

                                                              );

    formTips.tips.h_newPlan       = stdTip(300, 'New Plan', 'New package versions added to the release have would extend the existing'  +

                                                          ' ripple by more than 20%.<p>The changes will not be included in the current ripple, but will' +

                                                          ' be processed once the ripple is complete.'

                                                              );

<%If canControl Then%>

    var planTime = 0;

    var planDrop = 0;

    $(document).ready(function() {

        //  Update the table when the Plan Control is modified

        $('#planMode').change(function(event){

            planTime = $("input[name='plan']:checked").val();

            updatePlanTime();

        });

        $('#planDrop').change(function(event){

            planDrop = $('#planDrop').is(":checked");

            updatePlanDrop();

        });

    });

    function updatePlanTime()

    {

        $.ajax({

            type : 'POST',

            url : '_json_plan_control.asp',

            data : {Opr : 'setThreshold', threshold : planTime,  rtag_id : <%=parRtagId%> },

            dataType : 'json',

        }).done(function (data){

            if(data.result) {

                console.log("notDone:", data);

                vixAlert("The action failed due to some internal error<br>Error: " + data.emsgSummary + "<br>Details:" + data.emsgDetails);

            }

        }).fail(function (data,textStatus,errorThrown){

            vixAlert("The action failed due to some internal error<br>Error: " + errorThrown);

        })

    }

    function updatePlanDrop()

    {

        $.ajax({

            type : 'POST',

            url : '_json_plan_control.asp',

            data : {Opr : 'setDrop', mode : planDrop,  rtag_id : <%=parRtagId%> },

            dataType : 'json',

        }).done(function (data){

            if(data.result) {

                console.log("notDone:", data);

                vixAlert("The action failed due to some internal error<br>Error: " + data.emsgSummary + "<br>Details:" + data.emsgDetails);

            }

        }).fail(function (data,textStatus,errorThrown){

            vixAlert("The action failed due to some internal error<br>Error: " + errorThrown);

        });

    }

<%End If%>

</script>

<%End Sub

'----------------------------------------------

      <%Call InsertJavaScript %>

                <%Call PlanControlPane%>