Add missing $ for certain variable references

Missing $s invalidated attempts to check the length of title, synopsis, guidance.
This commit is contained in:
df 2020-12-31 15:22:42 +00:00
parent d05f841bb4
commit 98ef6a876f

View File

@ -296,21 +296,21 @@ ts method copy {dst} {
}
ts method settitle {newtitle} {
if {[string length newtitle] > 48} { return }
if {[string length $newtitle] > 48} { return }
exec /mod/bin/hmt "+settitle=${newtitle}" $file
set title $newtitle
}
ts method setsynopsis {newsynopsis} {
if {[string length newsynopsis] > 252} { return }
if {[string length $newsynopsis] > 252} { return }
exec /mod/bin/hmt "+setsynopsis=${newsynopsis}" $file
set synopsis $newsynopsis
}
ts method setguidance {newguidance} {
if {[string length newguidance] > 48} { return }
if {[string length $newguidance] > 48} { return }
if {$newguidance eq ""} {
exec /mod/bin/hmt "-guidance" $file