forked from hummypkg/webif
Fix problems pointed out by tclCheck and frink
This commit is contained in:
@@ -365,7 +365,7 @@ foreach sl $sortlist {
|
|||||||
|
|
||||||
set tag " (current)"
|
set tag " (current)"
|
||||||
if {$order != $index} {
|
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\">"
|
puts "<a href=\"$env(SCRIPT_NAME)?$qs&order=$index\" title=\"$tt\">"
|
||||||
set tag ""
|
set tag ""
|
||||||
set ket "a"
|
set ket "a"
|
||||||
|
|||||||
Reference in New Issue
Block a user