--- loncom/interface/lonaboutme.pm 2008/12/17 00:44:53 1.87
+++ 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.87 2008/12/17 00:44:53 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('
'.&mt('No personal information provided').'.
'); } @@ -371,7 +379,7 @@ my $image; ('View recent activity by this student', $cnum,$cdom).(' 'x2)); } - $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom)); + $r->print(&Apache::loncommon::noteswrapper(&mt('Add Records'),$cnum,$cdom)); } else { $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom); @@ -441,7 +449,7 @@ sub print_portfiles_link { difl => 'Display file listing', ); if ($filecounts->{'both'} > 0) { - $output = '