forked from hummypkg/webif
add network name
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@678 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
parent
44038eb7a1
commit
95bef6f458
@ -32,17 +32,19 @@ puts "
|
|||||||
<th>Frequency</th>
|
<th>Frequency</th>
|
||||||
<th>Signal Strength</th>
|
<th>Signal Strength</th>
|
||||||
<th>Signal Quality</th>
|
<th>Signal Quality</th>
|
||||||
|
<th>Network</th>
|
||||||
<th>Mux</th>
|
<th>Mux</th>
|
||||||
<th>Channels</th>
|
<th>Channels</th>
|
||||||
<th>>799</th>
|
<th>>799</th>
|
||||||
</tr>
|
</tr>
|
||||||
"
|
"
|
||||||
foreach tw [$db query {
|
foreach tw [$db query {
|
||||||
select tsIdx, usTsID, ulFrequency, ucLevel, ucQuality
|
select tsIdx, szNetName, usTsID, ulFrequency, ucLevel, ucQuality
|
||||||
from TBL_TS
|
from TBL_TS join TBL_NET using (netIdx)
|
||||||
order by ulFrequency
|
order by ulFrequency
|
||||||
}] {
|
}] {
|
||||||
lassign $tw x tsIdx x usTsID x ulFrequency x ucLevel x ucQuality
|
lassign $tw \
|
||||||
|
x tsIdx x netName x usTsID x ulFrequency x ucLevel x ucQuality
|
||||||
|
|
||||||
altrow
|
altrow
|
||||||
puts "
|
puts "
|
||||||
@ -51,6 +53,7 @@ foreach tw [$db query {
|
|||||||
"
|
"
|
||||||
puts "<td>[progressbar $ucLevel]</td>"
|
puts "<td>[progressbar $ucLevel]</td>"
|
||||||
puts "<td>[progressbar $ucQuality]</td>"
|
puts "<td>[progressbar $ucQuality]</td>"
|
||||||
|
puts "<td>[string range $netName 3 end]</td>"
|
||||||
|
|
||||||
set channels [$db query {
|
set channels [$db query {
|
||||||
select usLcn, szSvcName, szPrvName, aucDefaultAuthority
|
select usLcn, szSvcName, szPrvName, aucDefaultAuthority
|
||||||
|
Loading…
Reference in New Issue
Block a user