Fix problems pointed out by tclCheck and frink

This commit is contained in:
HummyPkg 2021-02-24 13:21:19 +00:00
parent bc2e6c1a85
commit 4820ade1f5
2 changed files with 2 additions and 2 deletions

View File

@ -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"