Difference between revisions of "Jk-voting-template"

Revision as of 05:53, 24 March 2006

proc template {fn keyset} { set h [[open

@@ Line 1: / Line 1: @@
-proc template {fn keyset} {
+proc template {fn keyset} { set h [[open
-    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
- }