Fix problems pointed out by tclCheck and frink

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"

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 }