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:
hummypkg 2012-01-18 22:15:20 +00:00
parent 44038eb7a1
commit 95bef6f458

View File

@ -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>&gt;799</th> <th>&gt;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