forked from hummypkg/webif
Fix problems pointed out by tclCheck and frink
This commit is contained in:
parent
bc2e6c1a85
commit
4820ade1f5
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user