diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-08 21:45:15 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-08 21:45:15 -0500 |
| commit | 6e09da4962e67b0e66aa0de09d824eebd524338d (patch) | |
| tree | d7fb5938bafa339167f82c6ac8e7ac50031d3014 /GradeBook_lib.tcl | |
| parent | 938960059bcd002abfbf2f9a5995ae197d85a7af (diff) | |
| download | GradeBook-6e09da4962e67b0e66aa0de09d824eebd524338d.tar.gz GradeBook-6e09da4962e67b0e66aa0de09d824eebd524338d.zip | |
htmlError remade to show location of the error
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 01c67f1..bbfd95a 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -771,8 +771,12 @@ proc CreateAccessRightsTable {db} { AddAccessRightNonWeb resetforgottenpassword 0 0 0 0 1 } -proc htmlErrorMsg { msg } { - puts "<div class=\"errormsg\">error: $msg</div>" +proc htmlErrorMsg { msg {loc ""} } { + if { $loc eq "" } { + puts "<div class=\"errormsg\">error: $msg</div>" + } else { + puts "<div class=\"errormsg\">error in $loc: $msg</div>" + } } proc htmlInfoMsg { msg } { |