← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libapache2-mod-rivet/trusty

« back to all changes in this revision

Viewing changes to rivet/rivet-tcl/parray_table.tcl

  • Committer: Package Import Robot
  • Author(s): Massimo Manghi
  • Date: 2013-10-02 11:44:17 UTC
  • mfrom: (1.1.7)
  • Revision ID: package-import@ubuntu.com-20131002114417-aimbnyf22r39iv39
Tags: 2.1.3-1
* New upstream code 2.1.3 
* Removed package dh-apache2 from Build-Depends
* Undone patch removing distclean target from doc/Makefile.am

Show diffs side-by-side

added added

removed removed

Lines of Context:
rivet/rivet-tcl/parray_table.tcl
12
12
##              list attribute-value pairs to be given
13
13
##              to the <table> element tag
14
14
##
15
 
## $Id: parray_table.tcl 1231782 2012-01-15 22:40:35Z mxmanghi $
 
15
## $Id: parray_table.tcl 1523244 2013-09-14 14:05:00Z mxmanghi $
16
16
##
17
17
##
18
18
 
31
31
            puts "><thead><tr><th colspan=\"2\">$arrayName</th></tr></thead>"
32
32
        puts stdout "<tbody>"
33
33
        foreach name [lsort [array names array $pattern]] {
34
 
            puts stdout [format "<tr><td>%s</td><td>%s</td></tr>" $name $array($name)]
 
34
            puts stdout [format "<tr><td>%s</td><td>%s</td></tr>" [::rivet::escape_sgml_chars $name]    \
 
35
                                                                  [::rivet::escape_sgml_chars $array($name)]]
35
36
        }
36
37
        puts stdout "</tbody></table>"
37
38
    }