From 6e09da4962e67b0e66aa0de09d824eebd524338d Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Sun, 8 Dec 2013 21:45:15 -0500
Subject: htmlError remade to show location of the error

---
 GradeBook_lib.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'GradeBook_lib.tcl')

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 } {
-- 
cgit v1.2.3