Difference between revisions of "Jk-voting-template"

From AOLserver Wiki
Jump to navigation Jump to search
m (Reverted edit of 71.130.196.168, changed back to last version by WikiSysop)
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
 +
}

Revision as of 03:11, 19 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
}