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 }