--- loncom/interface/lonaboutme.pm 2008/12/17 14:51:11 1.89
+++ 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.89 2008/12/17 14:51:11 harmsja 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{
};
+
+ #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);
}
@@ -372,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);