Subversion Repositories DevTools

Rev

Rev 7063 | Rev 7168 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7063 Rev 7162
Line 210... Line 210...
210
                                        " AND rc.daemon_mode = 'M' AND rl.rcon_id(+) = rc.rcon_id", ORADYN_DEFAULT )
210
                                        " AND rc.daemon_mode = 'M' AND rl.rcon_id(+) = rc.rcon_id", ORADYN_DEFAULT )
211
Dim BuildStart
211
Dim BuildStart
212
Dim BuildDelta
212
Dim BuildDelta
213
Dim BuildPvId
213
Dim BuildPvId
214
Dim BuildNow
214
Dim BuildNow
-
 
215
Dim bFirstPlan : bFirstPlan = TRUE
215
If (rsQry.RecordCount > 0) Then
216
If (rsQry.RecordCount > 0) Then
216
    BuildStart = rsQry("BuildStart")
217
    BuildStart = rsQry("BuildStart")
217
    BuildDelta = rsQry("delta")
218
    BuildDelta = rsQry("delta")
218
    BuildPvId  = rsQry("current_pv_id")
219
    BuildPvId  = rsQry("current_pv_id")
219
    BuildNow  = rsQry("SYSDATE")
220
    BuildNow  = rsQry("SYSDATE")
Line 263... Line 264...
263
                   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
264
                   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
264
                       completionText = ""
265
                       completionText = ""
265
                       buildDuration = rsQry("BUILD_TIME")
266
                       buildDuration = rsQry("BUILD_TIME")
266
                       durationDisplay = buildDuration
267
                       durationDisplay = buildDuration
267
 
268
 
-
 
269
                       If rsQry("PV_ID") = 0 Then
-
 
270
                            bFirstPlan = FALSE
-
 
271
                       %>
-
 
272
                           <tr class=border>
-
 
273
                            <td colspan4>New Plan<%=Quick_Help("h_newPlan")%></td>
-
 
274
                          </tr>
-
 
275
                       <%
-
 
276
                       Else
268
                       ' If the current package build it taking longer than expected , then bump the build times
277
                           ' If the current package build it taking longer than expected , then bump the build times
269
                       ' and allow another 30 seconds.
278
                           ' and allow another 30 seconds.
270
                       If BuildPvId = rsQry("PV_ID") Then
279
                           If BuildPvId = rsQry("PV_ID") AND bFirstPlan Then
271
                           completionText = "&nbsp;<"
280
                               completionText = "&nbsp;<"
272
                           durationDisplay = durationDisplay & " ["& BuildDelta &"]"
281
                               durationDisplay = durationDisplay & " ["& BuildDelta &"]"
273
                           If BuildDelta > buildDuration Then
282
                               If CLng(BuildDelta) > CLng(buildDuration) Then
274
                                buildDuration = BuildDelta + 30
283
                                    buildDuration = BuildDelta + 30
275
                                completionText = "&nbsp;+"
284
                                    completionText = "&nbsp;+"
-
 
285
                               End If
276
                           End If
286
                           End If
277
                       End If
-
 
278
 
287
 
279
                       ' If the duration is not known - guess at 300 sconds
288
                           ' If the duration is not known - guess at 300 sconds
280
                       durationText = ""
289
                           durationText = ""
281
                       If ISNULL(buildDuration)  OR buildDuration = 0 Then
290
                           If (ISNULL(buildDuration)  OR buildDuration = 0) Then
282
                            buildDuration = 300
291
                                buildDuration = 300
283
                            durationText = "&nbsp;~"
292
                                durationText = "&nbsp;~"
284
                      End If
293
                          End If
285
 
294
 
286
                      BuildStart = DateAdd("s", buildDuration, BuildStart)
295
                          BuildStart = DateAdd("s", buildDuration, BuildStart)
287
                      %>
296
                          %>
288
                      <tr class=border>
297
                          <tr class=border>
289
                         <td><%=Get_Package_Name(rsQry("PKG_NAME"), parRtagId, rsQry("PV_ID"), 0, "Y")%></td>
298
                             <td><%=Get_Package_Name(rsQry("PKG_NAME"), parRtagId, rsQry("PV_ID"), 0, "Y")%></td>
290
                         <td><%=rsQry("PKG_VERSION")%></td>
299
                             <td><%=rsQry("PKG_VERSION")%></td>
291
                         <td><%=durationDisplay%></td>
300
                             <td><%=durationDisplay%></td>
292
                         <td><%=DisplayShortDateTimeSecs(BuildStart) & durationText  & completionText%></td>
301
                             <td><%=DisplayShortDateTimeSecs(BuildStart) & durationText  & completionText%></td>
293
                      </tr>
302
                          </tr>
294
                      <%
303
                          <%
295
                      ' Allow for 20 seconds of planning between builds
304
                          ' Allow for 20 seconds of planning between builds
296
                      BuildStart = DateAdd("s", 20, BuildStart)
305
                          BuildStart = DateAdd("s", 20, BuildStart)
-
 
306
                       End If
297
                      rsQry.MoveNext()
307
                      rsQry.MoveNext()
298
                   Wend
308
                   Wend
299
                   rsQry.Close()
309
                   rsQry.Close()
300
                   Set rsQry = nothing
310
                   Set rsQry = nothing
301
                   %>
311
                   %>
Line 338... Line 348...
338
                                                                  );
348
                                                                  );
339
      formTips.tips.h_lastchange       = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +
349
      formTips.tips.h_lastchange       = stdTip(300, 'Last Change', 'This is an indication of the time since the daemon interogated the database.' +
340
                                                                  '<p>Short times will be shown as seconds. Longer times will be shown as a time within ' + 
350
                                                                  '<p>Short times will be shown as seconds. Longer times will be shown as a time within ' + 
341
                                                                  'the last 24 hours. Longer times will be shown as a date.' 
351
                                                                  'the last 24 hours. Longer times will be shown as a date.' 
342
                                                                  );
352
                                                                  );
-
 
353
      formTips.tips.h_newPlan       = stdTip(300, 'New Plan', 'New package versions added to the release have would extend the existing'  +
-
 
354
                                                              ' ripple by more than 20%.<p>The changes will not be included in the current ripple, but will' +
-
 
355
                                                              ' be processed once the ripple is complete.'
-
 
356
                                                                  );
-
 
357
 
343
      </script>
358
      </script>
344
      <!-- DROPDOWN MENUS -->
359
      <!-- DROPDOWN MENUS -->
345
      <!--#include file="_menu_def.asp"-->
360
      <!--#include file="_menu_def.asp"-->
346
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
361
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
347
   </head>
362
   </head>