added students photos to the table view

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>"] {}]
 		}