diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2010-12-15 17:24:01 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2010-12-15 17:24:01 -0500 |
| commit | 95fa28c130488e6fd58a9cc27dd9fca47e1c9771 (patch) | |
| tree | 47ce907f0acdd53c4b1e52f364d67f765c7ab924 /GradeBook.tcl | |
| parent | 5ba2697e3103bd29b83fefdbf535da093ff317f1 (diff) | |
| download | GradeBook-95fa28c130488e6fd58a9cc27dd9fca47e1c9771.tar.gz GradeBook-95fa28c130488e6fd58a9cc27dd9fca47e1c9771.zip | |
added new actions to menu
darcs-hash:20101215222401-067c0-277dc401e65e275ff8b7b7042e12bdabdd02091a.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index c93bf67..3ba5ab4 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -1,6 +1,6 @@ #!/bin/sh # FILE: "/home/evmik/src/my_src/GradeBook/GradeBook.tcl" -# LAST MODIFICATION: "Wed, 15 Dec 2010 17:16:40 -0500 (evmik)" +# LAST MODIFICATION: "Wed, 15 Dec 2010 17:23:52 -0500 (evmik)" # (C) 2010 by Eugeniy Mikhailov, <evgmik@gmail.com> # $Id:$ # vim:set ft=tcl: \ @@ -108,7 +108,13 @@ proc htmlDBout {db {sort_col {}}} { puts {<table border="1">} puts "<tr>" foreach col $v(*) { - puts -nonewline "<th><a href=$script_name?action=sort&sortCol=$col>$col</a></th>" + puts -nonewline "<th><a href=$script_name?action=sort&sortCol=$col>$col</a>" + set action_list [list edit edit delete delete] + set separator {<br>} + foreach {act act_label} $action_list { + puts -nonewline "$separator<a href=$script_name?action=$act&sortCol=$col>$act_label</a>" + } + puts -nonewline "</th>" } puts "</tr>" puts "<tr>" |