From 4820ade1f530b825bb5736caa5fff5acf2683dc0 Mon Sep 17 00:00:00 2001
From: HummyPkg <af123@hpkg.tv>
Date: Wed, 24 Feb 2021 13:21:19 +0000
Subject: [PATCH] Fix problems pointed out by tclCheck and frink

---
 webif/html/browse/index.jim | 2 +-
 webif/html/xepg/index.jim   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/webif/html/browse/index.jim b/webif/html/browse/index.jim
index 6351ab5..be17858 100755
--- a/webif/html/browse/index.jim
+++ b/webif/html/browse/index.jim
@@ -365,7 +365,7 @@ foreach sl $sortlist {
 
 	set tag " (current)"
 	if {$order != $index} {
-		set qs [regsub -all {&order=[[[:digit:]]+} $env(QUERY_STRING) ""]
+		set qs [regsub -all {&order=[[:digit:]]+} $env(QUERY_STRING) ""]
 		puts "<a href=\"$env(SCRIPT_NAME)?$qs&order=$index\" title=\"$tt\">"
 		set tag ""
 		set ket "a"
diff --git a/webif/html/xepg/index.jim b/webif/html/xepg/index.jim
index fef0fd5..0e1e373 100755
--- a/webif/html/xepg/index.jim
+++ b/webif/html/xepg/index.jim
@@ -270,7 +270,7 @@ foreach e $records {
 	set txt [list [cgi_quote_html [$e get name]] "([\
 	    clock format $es -format "%H:%M"] - [\
 	    clock format $ee -format "%H:%M"])[\
-	    expr {$showing? " ($perc%)": ""}]"]
+	    expr {$showing ? " ($perc%)" : ""}]"]
 
 	if {$es < $stt} { set es $stt }
 	if {$ee > $ett} { set ee $ett }