Difference between revisions of "Jk-voting-template"
Jump to navigation
Jump to search
m (Reverted edit of 69.146.41.187, changed back to last version by Vkurup) |
|||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| − | proc template {fn keyset} { set h [[open | + | proc template {fn keyset} { |
| + | set h [[open "[ns_info pageroot]]/templates/$fn" r] | ||
| + | set cont [[read $h]] | ||
| + | close $h | ||
| + | |||
| + | set keymap "" | ||
| + | for {set x 0} {$x < [[ns_set size $keyset]]} {incr x} { | ||
| + | set key [[ns_set key $keyset $x]] | ||
| + | set value [[ns_set value $keyset $x]] | ||
| + | lappend keymap "%%%%$key%%%%" | ||
| + | lappend keymap $value | ||
| + | } | ||
| + | if {$keymap != ""} { | ||
| + | set cont [[string map $keymap $cont]] | ||
| + | } | ||
| + | return $cont | ||
| + | } | ||
Latest revision as of 13:06, 24 March 2006
proc template {fn keyset} {
set h [[open "[ns_info pageroot]]/templates/$fn" r] set cont read $h close $h
set keymap ""
for {set x 0} {$x < ns_set size $keyset} {incr x} {
set key ns_set key $keyset $x
set value ns_set value $keyset $x
lappend keymap "%%%%$key%%%%"
lappend keymap $value
}
if {$keymap != ""} {
set cont string map $keymap $cont
}
return $cont
}
