From 59707c7a3e0484d93beb7acdf382846b2ebd9852 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 3 Dec 2014 18:44:51 -0500
Subject: added students photos to the table view

---
 GradeBook_lib.tcl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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>"] {}]
 		}
-- 
cgit v1.2.3