--- 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('
'); - $r->print('

'.'RSS Feeds and Blogs'.'

'); + $r->print('
'); + $r->print('

'.'RSS Feeds and Blogs'.'

'); $r->print(&Apache::lonrss::advertisefeeds($cnum,$cdom)); $r->print('
'); } @@ -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); @@ -442,7 +449,7 @@ sub print_portfiles_link { difl => 'Display file listing', ); if ($filecounts->{'both'} > 0) { - $output = '

'; + $output = '

'; $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'

'; #$output = '

'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'

'; @@ -764,7 +771,7 @@ sub parse_directory { ' '.$showname.''; $output.=''; if ($have_meta) { - $output.= ''.&mt('Catalog Information').''.&mt('Metadata').''; }