From 95fa28c130488e6fd58a9cc27dd9fca47e1c9771 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 15 Dec 2010 17:24:01 -0500
Subject: added new actions to menu

darcs-hash:20101215222401-067c0-277dc401e65e275ff8b7b7042e12bdabdd02091a.gz
---
 GradeBook.tcl | 10 ++++++++--
 1 file 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>"
-- 
cgit v1.2.3