diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 6 |
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 |