Jk-voting-template
Jump to navigation
Jump to search
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
}
