--- loncom/interface/lonaboutme.pm 2008/12/17 13:00:36 1.88
+++ loncom/interface/lonaboutme.pm 2009/02/12 21:15:47 1.92
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.88 2008/12/17 13:00:36 ehlerst Exp $
+# $Id: lonaboutme.pm,v 1.92 2009/02/12 21:15:47 schafran 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{};
+
+ #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{
};
+
if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);
}
@@ -321,8 +328,8 @@ my $image;
&Apache::lontemplate::start_ContentBox($r);
&print_portfiles_link($r,$is_course);
if(&Apache::lonrss::advertisefeeds($cnum,$cdom) ne ''){
- $r->print('