diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index e057b97..c2da964 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -848,13 +848,14 @@ if { $action == "logon" } { LogMeOn; set action defaultview } if { $action == "logoff" } { LogMeOff; set action defaultview } +dbg "===== Connection at $timestamp for user $user =====" ::ncgi::header htmlHeader puts "<body>" set dbfile "courses/$coursedbfname" +dbg "DB filename: $dbfile" if { ($coursedbfname ne "") && [file exists $dbfile] } { sqlite3 db $dbfile - dbg "===== Connection at $timestamp for user $user =====" set permission_list [AccessGroupRights db $user $password] htmlTop $permission_list ChoseAction $action $permission_list $user |