WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_wform_build_package.asp

 Option explicit
 Response.Expires = 0   ' always load the page, dont store
 %>
 <%
 '=====================================================
-'              Change Group
+'   _wform_build_package.asp
 '=====================================================
 %>
 <!--#include file="common/conf.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/qstr.asp"-->
 <!--#include file="_access_control_general.asp"-->
 <!--#include file="_access_control_project.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim sMessage, sMessageType
+Dim rsTemp, TotalBuildTime, BuildTime
+Dim bLongBuild
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 sMessage = NULL
 sMessageType = 3
 '----------------------------------------------
+'--- Before Render
+'   Estimate the complete ripple time of this package
+'   Provide a warning if the complete ripple time is long
-%>
+        OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
+        OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
+        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CalcRippleTime.sql"), cint(0))
+        OraDatabase.Parameters.Remove "PV_ID"
+        OraDatabase.Parameters.Remove "RTAG_ID"
+        If rsTemp.RecordCount > 0 Then
+            TotalBuildTime = CLng (rsTemp("Total_BuildTime"))
+            BuildTime = CLng (rsTemp("BuildTime"))
+			If TotalBuildTime > 2 * 60 * 60 Then
+                bLongBuild = TRUE
+            End If
+        End If
+        rsTemp.Close()
+        Set rsTemp = nothing
-<%
 '------------------------------------------------------------------------------------------------------------------------------------------
 ' Add a line of text to the System Message
+'
 Sub sMessageAdd(eLevel, text)
     If NOT isNull(sMessage) Then
 <script type="text/javascript" charset="utf-8">
 //  This function will be called by vixDialog() when the dialoag has been loaded
 //  Intended use: Init the javascript items
 function buildPkgInit () {
     var myDateTimePicker = null;
+//console.log('buildPkgInit');
+//debugger;
+    showHideDatePicker();
     $('#cancel').click(function(){
         closeIFrame();
     });
     $('#release').click(function(){
         var data = getScheduledTime();
-console.log("Scheduled Date:", data);
+//console.log("Scheduled Date:", data);
-debugger;
+//debugger;
         displayError();
         if ( data && data.delta <=0 ) {
             displayError('Scheduled time is now in the past');
             return false;
+        }
         } else {
             $('#errorPane').addClass('display-none').html('');
+        }
+    }
-    $('#schedule').click(function(){
+    $('#schedule').change(showHideDatePicker);
+    function showHideDatePicker()
+    {
+        var radio_button_val = $("input[name='sched']:checked").val();
-        if ( $(this).prop('checked') ) {
+        if ( radio_button_val === 'sched' ) {
             $('#showdate').removeClass('display-none');
             myDateTimePicker = $('#datetime').datetimepicker(
+            {
                 timeFormat: "HH:mm z",
                 //dateFormat: "D dd-M-yy",
                 onSelect : function(p1,p2){
                      console.log("Select", p1 );
                      getScheduledTime();
                     },
                 });
+            //  Set default time to be midnight - Perth Time (UTC+8)
+			var midnight = new Date();
+            midnight.setUTCHours(24-8,0,0,0);
-            myDateTimePicker.datetimepicker('setDate', (new Date()));
+            myDateTimePicker.datetimepicker('setDate', midnight);
             getScheduledTime();
         } else {
             $('#datetime').datepicker( "destroy" );
             $('#showdate').addClass('display-none');
             myDateTimePicker = null;
+        }
-    });
+    }
     function getScheduledTime() {
         if ( myDateTimePicker ) {
             // Convert to Perth timezime 8 hours ahead of GMT
             // Then pick the essential bits out of the structure
             $('#otime').text(txt);
             $('#ofuture').text(result);
             return {txt: txt, delta: delta};
+        }
+    }
+}
 </script>
 <div class='Panel tight' style="width:100%">
    <div class=PanelPad>
        <!-- MESSAGE ++++++++++++++++++++++++++++++++++++++++++++++ -->
        <%Call Messenger ( sMessage , sMessageType, "100%" )%>
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
        <!--#include file="messages/_msg_inline.asp"-->
    </div>
    <div class='textPanel PanelPad'>
-       <img src="images/i_warning.gif" style="float:left; margin:0 7px 20px 0;">
+       <img class=PanelCell src="images/i_warning.gif" style="margin:0 7px 20px 0;">
-       <span>Approve this package for autobuild</span>
+       <span class=PanelCell>Approve this package for autobuild
+	        <p>Estimated build duration: <%=NiceDuration(BuildTime)%>
+			<br>Estimated duration of complete ripple: <%=NiceDuration(TotalBuildTime)%>
+	   </span>
+   </div>
+<%If bLongBuild Then%>
+   <div class='textPanel PanelPad informPanel'>
+       <img class=PanelCell src="images/s_warning.gif">
+	   <span class=PanelCell>This package will cause a significant ripple.<br>Consider scheduling it for a time to minimise dev impact.</span>
    </div>
+<%End If%>
     <div id=showdate class=display-none>
        <div class='textPanel PanelPad' id=datetime></div>
        <div>Perth Time: <span id=otime></span></div>
        <div>In: <span id=ofuture></span></div>
     </div>
+   <div class='PanelSep'></div>
-   <div class='buttonPanelWhite ui-widget-content ui-dialog-buttonpane'>
+   <div class='buttonPanelWhite' id=schedule>
+	   <div class=nowrap>
-        <span class=fleft><input type=checkbox id=schedule>Schedule</span>
+			<input name=sched type=radio value='sched' <%=IIF(bLongBuild, "checked","")%>>Schedule
-        <span id='progressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></span>
+			<input name=sched type=radio value='now'   <%=IIF(bLongBuild, "","checked")%>>Include immediately
-        <button id=release>Release</button>
+			<button id=release>Release</button>
-        <button id=cancel>Cancel</button>
+			<button id=cancel>Cancel</button>
+	   </div>
    </div>
+	<div id='progressBar' class='vixSpinner' style='visibility:hidden;'></div>
    <div id=errorPane class='display-none errorPanel PanelPadTop'></div>
 </div>
 <!-- DESTRUCTOR ------->
 <!--#include file="common/destructor.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_wform_build_package.asp – Rev 7022 → 7240