--- loncom/interface/lonaboutme.pm	2009/01/26 11:10:10	1.90
+++ loncom/interface/lonaboutme.pm	2009/02/05 14:56:49	1.91
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.90 2009/01/26 11:10:10 bisitz Exp $
+# $Id: lonaboutme.pm,v 1.91 2009/02/05 14:56:49 neumanie Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -86,6 +86,7 @@ use Apache::lonlocal;
 use Apache::lonmsgdisplay();
 use Apache::lontemplate;
 use HTML::Entities();
+use Image::Magick;
 
 sub handler {
     my $r = shift;
@@ -284,8 +285,14 @@ my $image;
        if ($syllabus{'uploaded.photourl'}) {
 	   &Apache::lonnet::allowuploaded('/adm/aboutme',
 					  $syllabus{'uploaded.photourl'});
-	   $image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
+	
+           #This call is to resize all "about me" images in the LonCapa System. When its done, you can remove this line.
+	   &Apache::lonnet::resizeImage(&Apache::lonnet::filelocation('',$syllabus{'uploaded.photourl'}));
+
+#--End Resize---
 
+	   $image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
+	   
 	   if ($target eq 'tex') {
 	       $image=&Apache::lonxml::xmlparse($r,'tex',$image);
 	   }