diff options
| -rwxr-xr-x | GradeBook.tcl | 13 |
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 |