forked from hummypkg/webif
more UTF-8 fixes
This commit is contained in:
parent
be1b26378e
commit
03d526549c
@ -668,7 +668,7 @@ proc {rsv construct} {event type} {
|
||||
set args(nsttime) [$event get start]
|
||||
set args(nduration) [$event get duration]
|
||||
set args(usevtid) [$event get event_id]
|
||||
set args(szevtname) "\025[$event get name]"
|
||||
set args(szevtname) "\025[xconv [$event get name]]"
|
||||
set args(eReady) 30
|
||||
lassign [system padding] args(ulPreOffset) args(ulPostOffset)
|
||||
|
||||
|
@ -656,13 +656,13 @@ proc {system nuggeted} {} {
|
||||
proc {system strip} {str} {
|
||||
if {[string range $str 1 2] eq "i7"} {
|
||||
# ISO6937, convert to UTF-8
|
||||
set str [xconv [string range $str 3 end]]
|
||||
return [xconv [string range $str 3 end]]
|
||||
}
|
||||
if {[string first "\025" $str] == 0} {
|
||||
# UTF-8
|
||||
set str [string range $str 1 end]
|
||||
return [string range $str 1 end]
|
||||
}
|
||||
return $str
|
||||
return [xconv $str]
|
||||
}
|
||||
|
||||
proc {system usbdisks} {{full 0}} {
|
||||
|
Loading…
Reference in New Issue
Block a user