diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-25 11:57:31 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-25 11:57:31 -0500 |
| commit | 517b21a1bc6686bc673a022e0b353df4560b3858 (patch) | |
| tree | 1bb10250b497c5e8e024dac5a93bbd22df8809ea /GradeBook_lib.tcl | |
| parent | 313bef363194e18d04b8a893962f88ed8a8d2135 (diff) | |
| download | GradeBook-517b21a1bc6686bc673a022e0b353df4560b3858.tar.gz GradeBook-517b21a1bc6686bc673a022e0b353df4560b3858.zip | |
added html warning procedure
Ignore-this: cb767a744e77e95606ae7b235369f088
darcs-hash:20110125165731-067c0-5ea660257fb5fccf6ccc29acea361be12da74427.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -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 |