Subversion Repositories DevTools

Rev

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

Rev 6267 Rev 6268
Line 473... Line 473...
473 
                              Dim currentRunLevel
 473 
                              Dim currentRunLevel
474 
                              Dim daemonState
 474 
                              Dim daemonState
475 
                              Dim delta
 475 
                              Dim delta
476 
                              Dim pkgId
 476 
                              Dim pkgId
477 
                              Dim bActive : bActive = rsQry("active")
 477 
                              Dim bActive : bActive = rsQry("active")
- 
 
 478 
                              If bActive = "N" Then bInactiveMachine = true
478 
 
 479 
 
479 
                              ' For this release configuration, get its entry from the run_level table. This table may not
 480 
                              ' For this release configuration, get its entry from the run_level table. This table may not
480 
                              ' have an entry so we must handle that outcome too.
 481 
                              ' have an entry so we must handle that outcome too.
481 
                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
 482 
                              query_string = " select rl.pause, rl.current_run_level, rl.current_pkg_id_being_built, "&_
482 
                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_
 483 
                                             "        TRUNC (86400*(SYSDATE - rl.KEEP_ALIVE)) as delta" &_