--- loncom/interface/lonaboutme.pm 2008/12/17 14:51:11 1.89 +++ loncom/interface/lonaboutme.pm 2009/02/17 08:24:28 1.95 @@ -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.95 2009/02/17 08:24:28 schualex 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; @@ -208,7 +209,8 @@ sub handler { my $start_page = &Apache::loncommon::start_page("Personal Information",$rss_link,$args); $r->print($start_page); - $r->print('
'); $r->print(''); + $r->print(''.&Apache::lonnet::domain($cdom,'description').'
');#OLD SendMessage POS } else { $r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); @@ -280,16 +283,21 @@ my $image; if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { $lastmod=$syllabus{'uploaded.lastmodified'}; $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); - $r->print('
'.&mt('Last updated').': '.$lastmod); + $r->print('
'.&mt('Last updated').': '.$lastmod); 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); } - # $r->print($image); #Print old Image + } if ($allowed) { $r->print( @@ -298,7 +306,7 @@ my $image; ''. ''. ''. - ' + '
'); } @@ -307,32 +315,38 @@ my $image; $r->print('