--- loncom/interface/loncommon.pm	2007/02/27 22:16:02	1.507
+++ loncom/interface/loncommon.pm	2007/02/28 21:45:43	1.509
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.507 2007/02/27 22:16:02 raeburn Exp $
+# $Id: loncommon.pm,v 1.509 2007/02/28 21:45:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2267,6 +2267,19 @@ sub track_student_link {
 	&help_open_topic('View_recent_activity');
 }
 
+# ===================================================== Display a student photo
+
+
+sub student_image_tag {
+    my ($domain,$user)=@_;
+    my $imgsrc=&Apache::lonnet::studentphoto($domain,$user,'jpg');
+    if (($imgsrc) && ($imgsrc ne '/adm/lonKaputt/lonlogo_broken.gif')) {
+	return '<img src="'.$imgsrc.'" align="right" />';
+    } else {
+	return '';
+    }
+}
+
 =pod
 
 =back