1 files changed, 6 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index d65a33f..a427fee 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -142,6 +142,12 @@ proc htmlErrorMsg { msg } {
 			puts "<div class=\"errormsg\">error: $msg</div>"
 }
 
+proc htmlInfoMsg { msg } {
+	puts {<div class=infomsg>}
+	puts "$msg"
+	puts {</div>}
+}
+
 proc htmlReplaceEmptyString { string } {
 	#  empty string replaced with "---"
 	regsub {^$} $string "---" string