diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2016-10-18 09:39:38 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2016-10-18 09:39:38 -0400 |
| commit | ec29288320bead9b99c303b2594f09a4dcafdb72 (patch) | |
| tree | a8ba98c9997e06aa523bf1fe8bc1725a6ee9032b /GradeBook.tcl | |
| parent | 18782a6deee1736cbe8e4cd17607de7ece624019 (diff) | |
| download | GradeBook-ec29288320bead9b99c303b2594f09a4dcafdb72.tar.gz GradeBook-ec29288320bead9b99c303b2594f09a4dcafdb72.zip | |
mark the string as Json explicitly
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 59b1945..7e0fae4 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -98,9 +98,9 @@ lappend logEntry sortCol [::json::write string "$sortCol"] lappend logEntry programVersion [::json::write string "$VERSION"] lappend logEntry logLevel [::json::write string msg_level_log] -set logEntryString [json::write object {*}$logEntry] +set logEntryJsonString [json::write object {*}$logEntry] set fid [open $GradebookServerConfig(log_file) a+] -puts $fid "$logEntryString" +puts $fid "$logEntryJsonString" close $fid |