From 13a0296f4341fd5cfa504204d6cc5a3b207d7c39 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Thu, 16 Dec 2010 12:31:06 -0500
Subject: added html output of the bottom/footer with version of the program

darcs-hash:20101216173106-067c0-0eaad9947d6b644bbb10b848f3d6b8858beaf16e.gz
---
 GradeBook.tcl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/GradeBook.tcl b/GradeBook.tcl
index e50e54e..b469e40 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -3,7 +3,9 @@
 # vim:set ft=tcl: \
 exec tclsh "$0" "$@"
 
-#load libtclsqlite3.so.0 Sqlite3
+# internal version of this code
+set VERSION 1.0
+
 package require sqlite3
 package require ncgi 
 package require md5
@@ -148,6 +150,14 @@ proc htmlTop {permission_list} {
 
 }
 
+proc htmlBottom {permission_list} {
+	array set permission $permission_list
+	global VERSION
+	puts "<div>"
+	puts "GradeBook $VERSION code is written by Eugeniy Mikhailov"
+	puts "</div>"
+}
+
 proc LogOffOption {} {
 	global user password script_name
 	puts "<div>"
@@ -314,6 +324,7 @@ htmlTop $permission_list
 ChoseAction $action $permission_list $user
 #htmlGradesTable db $permission_list  $user
 #htmlDBout db $sortCol
+htmlBottom $permission_list
 
 
 
-- 
cgit v1.2.3