forked from hummypkg/webif
More fixes for expr weirdness
This commit is contained in:
parent
3f1832387a
commit
8c2a33b54d
@ -15,8 +15,7 @@ if {[catch {set db [sqlite3.open /var/lib/humaxtv/channel.db]} msg]} {
|
|||||||
pkg loadmuxdb
|
pkg loadmuxdb
|
||||||
|
|
||||||
proc f2c {frequency} {
|
proc f2c {frequency} {
|
||||||
set ch int($((($frequency / 1000) - 303.25) / 8))
|
return $(int((($frequency / 1000) - 303.25) / 8))
|
||||||
return [expr {int($ch)}]
|
|
||||||
}
|
}
|
||||||
|
|
||||||
proc svc2mux {svcid mux} {
|
proc svc2mux {svcid mux} {
|
||||||
|
@ -23,7 +23,7 @@ lmap i \
|
|||||||
#set svcmap [lreverse $hmap]
|
#set svcmap [lreverse $hmap]
|
||||||
|
|
||||||
proc lsum {l} {
|
proc lsum {l} {
|
||||||
expr [join $l +] + 0
|
expr [join [linsert $l 0 0] +]
|
||||||
}
|
}
|
||||||
|
|
||||||
proc pop_event {} {
|
proc pop_event {} {
|
||||||
|
@ -201,10 +201,11 @@ puts "</div>"
|
|||||||
######################################################################
|
######################################################################
|
||||||
# Events
|
# Events
|
||||||
|
|
||||||
|
if {[catch {set stt2 [expr {$stt + 0}]}]} { set stt2 0 }
|
||||||
puts "
|
puts "
|
||||||
<script type=text/javascript>
|
<script type=text/javascript>
|
||||||
var hours = $hours;
|
var hours = $hours;
|
||||||
var stt = [expr {$stt + 0}];
|
var stt = $stt2;
|
||||||
var nowoffset = $offset;
|
var nowoffset = $offset;
|
||||||
</script>
|
</script>
|
||||||
"
|
"
|
||||||
|
Loading…
Reference in New Issue
Block a user