From 95c9471b5127d68863c5f7870d76930651794262 Mon Sep 17 00:00:00 2001
From: prpr <prpr19xx@gmail.com>
Date: Thu, 28 Mar 2024 18:58:07 +0000
Subject: [PATCH] Fix expression in expression errors

---
 webif/html/browse/crop/execute.jim    | 2 +-
 webif/html/browse/thumbnail/index.jim | 2 +-
 webif/html/diag/disk.jim              | 4 ++--
 webif/html/sched/list/index.jim       | 2 +-
 webif/html/xepg/index.jim             | 4 ++--
 5 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/webif/html/browse/crop/execute.jim b/webif/html/browse/crop/execute.jim
index 5dfa48c..40b9d32 100755
--- a/webif/html/browse/crop/execute.jim
+++ b/webif/html/browse/crop/execute.jim
@@ -50,7 +50,7 @@ set cmd [list /mod/bin/nicesplice \
 	-out "$dir/$shname"]
 
 if {$invert} {
-	if {$([llength $bookmarks] % 2) != 0} {
+	if {([llength $bookmarks] % 2) != 0} {
 		lappend bookmarks [$ts duration 1]
 	}
 	foreach k [array names bookmarks] {
diff --git a/webif/html/browse/thumbnail/index.jim b/webif/html/browse/thumbnail/index.jim
index bcc9360..07ae186 100755
--- a/webif/html/browse/thumbnail/index.jim
+++ b/webif/html/browse/thumbnail/index.jim
@@ -71,7 +71,7 @@ puts "<div style=\"width=100%; text-align: center\">
 <tr>
 "
 
-for {set i $($start + 0.0}) {$i <= $limit} {set i $($i + 0.5)} {
+for {set i $($start + 0.0)} {$i <= $limit} {set i $($i + 0.5)} {
 	lappend times $i
 	puts "<th style=\"text-align: center\">
 	    @ <span class=mark>$i</span>s</th>"
diff --git a/webif/html/diag/disk.jim b/webif/html/diag/disk.jim
index 0e143eb..9102c3f 100755
--- a/webif/html/diag/disk.jim
+++ b/webif/html/diag/disk.jim
@@ -84,7 +84,7 @@ proc flags {val} {
 	set f ""
 	set fx ""
 	loop i 0 [llength $flaglist] {
-		if {$($val & (1 << $i))} {
+		if {$val & (1 << $i)} {
 			append f [lindex $flaglist $i]
 			append fx "[lindex $flagdescr $i]\n"
 		} else {
@@ -135,7 +135,7 @@ foreach line [split $msg "\n"] {
 	set left ""
 	if {$flags eq ""} { set flags 0 }
 	if {$id ni $nolife &&
-	    $($flags & 0x18) == 0x10 && $val == $worst && $val <= 100 &&
+	    ($flags & 0x18) == 0x10 && $val == $worst && $val <= 100 &&
 	    $thresh < 100} {
 		# Event counter which is not a rate and has not regressed.
 		set notes ""
diff --git a/webif/html/sched/list/index.jim b/webif/html/sched/list/index.jim
index 425fa66..caf0faf 100755
--- a/webif/html/sched/list/index.jim
+++ b/webif/html/sched/list/index.jim
@@ -289,7 +289,7 @@ proc eventrow {event {table TBL_RESERVATION}} {
 			foreach e $elist {
 				lassign $e service_id start end event_id
 				if {$start == $s} continue
-				if {[incr i] == $max && $($c - $i) > 1} {
+				if {[incr i] == $max && ($c - $i) > 1} {
 				    puts "<div class=\"hidden moretoshowc\">"
 				} else {
 				    puts "<br>"
diff --git a/webif/html/xepg/index.jim b/webif/html/xepg/index.jim
index c2de1bb..46d3de3 100755
--- a/webif/html/xepg/index.jim
+++ b/webif/html/xepg/index.jim
@@ -40,7 +40,7 @@ set stt [cgi_get stt $now]
 set dst $($now - $stt)
 if {$dst >= 0 && $dst < 1800} {
 	set current 1
-} elseif { $stt < $(int ($now / 86400) * 86400) } {
+} elseif { $stt < (int ($now / 86400) * 86400) } {
 	set stt $now
 	set current 0
 } else {
@@ -124,7 +124,7 @@ for {set i 0} {$i < 24} {incr i} {
 
 	if {$i == $starthour} {
 		append xclass " tjstart"
-	} elseif {$i > $starthour && $i < $($starthour + $hours)} {
+	} elseif {$i > $starthour && $i < ($starthour + $hours)} {
 		append xclass " tjother"
 	}