From a6b673042f66ac33c0913d1780e3e3221139dfa7 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 12 Dec 2012 22:02:23 -0500
Subject: log message changed to show user category

---
 GradeBook.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'GradeBook.tcl')

diff --git a/GradeBook.tcl b/GradeBook.tcl
index e66e212..4e45040 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -64,7 +64,7 @@ set script_name "$script_name/$coursedbfname"
 
 
 
-set timestamp [clock format [clock seconds] -format "%Y-%m-%dT%H:%M:%S"]
+set timestamp [timestamp]
 
 #CreateGradesTable db
 #CreateAccessRightsTable db
@@ -73,12 +73,12 @@ dbg [::ncgi::names] msg_level_info
 if { $action == "logon"  } { set action [ LogMeOn ] }   
 if { $action == "logoff" } { LogMeOff;  set action defaultview } 
 
-dbg "$timestamp user $user_requested DB $coursedbfname version $VERSION from $remote_ip" msg_level_log
+#dbg "[timestamp] user $user_requested DB $coursedbfname version $VERSION from $remote_ip" msg_level_log
 
 ::ncgi::header
 
 set user [ Authenticate_User $user_requested $password ]
-dbg "Requested user $user_requested logged in as $user"  msg_level_info
+dbg "[timestamp] authenticated user $user_requested DB $coursedbfname as $user version $VERSION from $remote_ip"  msg_level_log
 
 set dbfile "$GradebookServerConfig(grades_db_dir)/$coursedbfname"
 if { [file exists $dbfile] && ("$coursedbfname" ne "") } {
-- 
cgit v1.2.3