added html output of the bottom/footer with version of the program

darcs-hash:20101216173106-067c0-0eaad9947d6b644bbb10b848f3d6b8858beaf16e.gz

1 files changed, 12 insertions, 1 deletions

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