Subversion Repositories DevTools

Rev

Rev 4756 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4756 Rev 4867
Line 63... Line 63...
63
                  "       rc.RTAG_ID, " &_
63
                  "       rc.RTAG_ID, " &_
64
                  "       bm.DISPLAY_NAME, " &_
64
                  "       bm.DISPLAY_NAME, " &_
65
                  "       rc.DAEMON_MODE, "&_
65
                  "       rc.DAEMON_MODE, "&_
66
                  "       rt.RTAG_NAME, " &_
66
                  "       rt.RTAG_NAME, " &_
67
                  "       rt.OFFICIAL, " &_
67
                  "       rt.OFFICIAL, " &_
-
 
68
                  "       rt.BUILD_AGE, " &_
68
                  "       p.PROJ_ID, " &_
69
                  "       p.PROJ_ID, " &_
69
                  "       p.PROJ_NAME, " &_
70
                  "       p.PROJ_NAME, " &_
70
                  "       rl.CURRENT_PKG_ID_BEING_BUILT, "&_
71
                  "       rl.CURRENT_PKG_ID_BEING_BUILT, "&_
71
                  "       rl.CURRENT_RUN_LEVEL, "&_
72
                  "       rl.CURRENT_RUN_LEVEL, "&_
72
                  "       NVL(rl.PAUSE,0) as PAUSE, " &_
73
                  "       NVL(rl.PAUSE,0) as PAUSE, " &_
Line 94... Line 95...
94
        bms.Item("RTAG_ID")                     = rsQry("RTAG_ID")
95
        bms.Item("RTAG_ID")                     = rsQry("RTAG_ID")
95
        bms.Item("DISPLAY_NAME")                = rsQry("DISPLAY_NAME")
96
        bms.Item("DISPLAY_NAME")                = rsQry("DISPLAY_NAME")
96
        bms.Item("RTAG_NAME")                   = rsQry("RTAG_NAME")
97
        bms.Item("RTAG_NAME")                   = rsQry("RTAG_NAME")
97
        bms.Item("DAEMON_MODE")                 = rsQry("DAEMON_MODE")
98
        bms.Item("DAEMON_MODE")                 = rsQry("DAEMON_MODE")
98
        bms.Item("OFFICIAL")                    = rsQry("OFFICIAL")
99
        bms.Item("OFFICIAL")                    = rsQry("OFFICIAL")
-
 
100
        bms.Item("BUILD_AGE")                   = NiceInt(rsQry("BUILD_AGE"), 31)
99
        bms.Item("PROJ_ID")                     = rsQry("PROJ_ID")
101
        bms.Item("PROJ_ID")                     = rsQry("PROJ_ID")
100
        bms.Item("PROJ_NAME")                   = rsQry("PROJ_NAME")
102
        bms.Item("PROJ_NAME")                   = rsQry("PROJ_NAME")
101
        bms.Item("CURRENT_PKG_ID_BEING_BUILT")  = rsQry("CURRENT_PKG_ID_BEING_BUILT")
103
        bms.Item("CURRENT_PKG_ID_BEING_BUILT")  = rsQry("CURRENT_PKG_ID_BEING_BUILT")
102
        bms.Item("CURRENT_RUN_LEVEL")           = rsQry("CURRENT_RUN_LEVEL")
104
        bms.Item("CURRENT_RUN_LEVEL")           = rsQry("CURRENT_RUN_LEVEL")
103
        bms.Item("PAUSE")                       = CInt(rsQry("PAUSE"))
105
        bms.Item("PAUSE")                       = CInt(rsQry("PAUSE"))
Line 179... Line 181...
179
                Else
181
                Else
180
                    eRelease.Item("bDisplay_whole_set") = true
182
                    eRelease.Item("bDisplay_whole_set") = true
181
                    eMachine.Item("bRow_displayed") = "ShowUnknownState"
183
                    eMachine.Item("bRow_displayed") = "ShowUnknownState"
182
                End If
184
                End If
183
 
185
 
184
                If bShowProblemDaemonSets AND eMachine.Item("last_build_days") > param_inactivity Then
186
                If bShowProblemDaemonSets AND eMachine.Item("BUILD_AGE") > 0 Then
-
 
187
                    If (eMachine.Item("last_build_days") > eMachine.Item("BUILD_AGE")) OR (eMachine.Item("last_build_days") > param_inactivity) Then
185
                   If dState = "active" OR dState = "idle" Then
188
                       If dState = "active" OR dState = "idle" Then
186
                      eRelease.Item("bDisplay_whole_set") = true
189
                          eRelease.Item("bDisplay_whole_set") = true
187
                      eRelease.Item("bShowAge") = true
190
                          eRelease.Item("bShowAge") = true
188
                      eMachine.Item("bRow_displayed") = "ShowInactiveWarning"
191
                          eMachine.Item("bRow_displayed") = "ShowInactiveWarning"
-
 
192
                       End If
189
                   End If
193
                    End If
190
                End If
194
                End If
191
 
195
 
192
                If eMachine.Exists("bRow_displayed") Then
196
                If eMachine.Exists("bRow_displayed") Then
193
                    eRelease.Item("bDisplay_some") = true
197
                    eRelease.Item("bDisplay_some") = true
194
                End If
198
                End If