diff options
| -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>" |