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>