diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-23 21:36:05 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-23 21:36:05 -0500 |
| commit | 1bd25fbc629868b56cdc9d2448f93a4a7cb16c0f (patch) | |
| tree | 2ad5aae8189f6d9e53b5614ffc5b54c8560b8a0c /GradeBook.tcl | |
| parent | dc09da164c05e0228ce9a6a69ef85591fd86c466 (diff) | |
| download | GradeBook-1bd25fbc629868b56cdc9d2448f93a4a7cb16c0f.tar.gz GradeBook-1bd25fbc629868b56cdc9d2448f93a4a7cb16c0f.zip | |
log sequence changed
Ignore-this: 4743cb4ca4c508b1e0e410b6805fd627
darcs-hash:20110124023605-067c0-e762cb24cc2fe8d9f1fb79f77d6d8145daacb42c.gz
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 |