From 517b21a1bc6686bc673a022e0b353df4560b3858 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Tue, 25 Jan 2011 11:57:31 -0500
Subject: added html warning procedure

Ignore-this: cb767a744e77e95606ae7b235369f088

darcs-hash:20110125165731-067c0-5ea660257fb5fccf6ccc29acea361be12da74427.gz
---
 GradeBook_lib.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'GradeBook_lib.tcl')

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