linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

show rack list when _cc is present and rack is 'no'

Browse Source
This commit is contained in:
zolliker
2023-08-08 14:28:51 +02:00
parent d11d9db560
commit d3541bde19
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tcl/seacom.tcl
View File

@ -2109,15 +2109,20 @@ proc ObjState {} {
lappend list $obj lappend list $obj
} }
set canNotConnect 0 set canNotConnect 0
set showRackList 0
set rack [silent no result device rack]
foreach obj $list { foreach obj $list {
if {$obj eq "_cc"} { if {$obj eq "_cc"} {
set canNotConnect [showStatus _cc 1] set canNotConnect [showStatus _cc 1]
if {$canNotConnect || $rack eq "no"} {
set showRackList 1
}
} else { } else {
showStatus $obj 1 showStatus $obj 1
} }
} }
if {[result device name] eq "none"} { if {[result device name] eq "none"} {
Group rack "choose rack" set showRackList 1
} elseif {$canNotConnect} { } elseif {$canNotConnect} {
Style warning Style warning
if {[silent no result device rack] eq "other"} { if {[silent no result device rack] eq "other"} {
@ -2136,6 +2141,8 @@ proc ObjState {} {
Style hotwarning Style hotwarning
Label "please select rack (rack number as labelled on the top of the rack)" Label "please select rack (rack number as labelled on the top of the rack)"
} }
}
if {$showRackList} {
Group rack "choose rack" Group rack "choose rack"
} }
} }