diff options
| -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 } { |