diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 45af446..904c4b0 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1225,6 +1225,18 @@ proc htmlFormatColVal { col_value columnname user user_shown permission_list {fo } set html_str [join [list ${html_str} "<td class=\"$category\">$col_str_value $action_html_code</td>"] {}] } + IdNum { + set html_str [join [list ${html_str} "<td class=\"$category\">"] {} ] + if { $col_value ne "" } { + # add photo of the user with non void IdNum + set url_photo_album "https://bbphotos.wm.edu/idphotos" + # 90x90 is WM default + set photo_img_width 90 + set photo_img_height 90 + set html_str [join [list ${html_str} "<img src='$url_photo_album/$col_str_value.jpg' height='$photo_img_height' width='$photo_img_width'>"] {} ] + } + set html_str [join [list ${html_str} "$col_str_value</td>"] {} ] + } default { set html_str [join [list ${html_str} "<td class=\"$category\">$col_str_value</td>"] {}] } |