forked from hummypkg/webif
Also use non-breaking spaces in file name display
This commit is contained in:
parent
32ac3c8421
commit
8975cbd71d
@ -58,6 +58,10 @@ proc icon {img {hover ""} {extra ""} {class "va"}} {
|
|||||||
puts ">"
|
puts ">"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
proc nbsp {str} {
|
||||||
|
return [string map {" " } $str]
|
||||||
|
}
|
||||||
|
|
||||||
proc directory {file bfile tbfile} {
|
proc directory {file bfile tbfile} {
|
||||||
puts "<div class=\"va relative\">"
|
puts "<div class=\"va relative\">"
|
||||||
set img "/images/711_1_09_Media_Folder.png"
|
set img "/images/711_1_09_Media_Folder.png"
|
||||||
@ -69,7 +73,7 @@ proc directory {file bfile tbfile} {
|
|||||||
puts "<a class=dbf
|
puts "<a class=dbf
|
||||||
href=\"$::env(SCRIPT_NAME)?dir=[cgi_quote_url $file]\"
|
href=\"$::env(SCRIPT_NAME)?dir=[cgi_quote_url $file]\"
|
||||||
file=\"[cgi_quote_html $file]\">"
|
file=\"[cgi_quote_html $file]\">"
|
||||||
puts "[string map {" " } $bfile]</a><span class=filesize id=\"ID$tbfile\">
|
puts "[nbsp $bfile]</a><span class=filesize id=\"ID$tbfile\">
|
||||||
</span>"
|
</span>"
|
||||||
|
|
||||||
lassign [dir iconset $file] icons attrs
|
lassign [dir iconset $file] icons attrs
|
||||||
@ -173,7 +177,7 @@ proc entry {file} {{i 0}} {
|
|||||||
<input class=\"$fscl\" type=checkbox>
|
<input class=\"$fscl\" type=checkbox>
|
||||||
<a class=bf title=\"$synopsis\"
|
<a class=bf title=\"$synopsis\"
|
||||||
file=\"[cgi_quote_html $file]\" type=$type href=#>
|
file=\"[cgi_quote_html $file]\" type=$type href=#>
|
||||||
$bfile
|
[nbsp $bfile]
|
||||||
</a>
|
</a>
|
||||||
"
|
"
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user