--- loncom/interface/lonaboutme.pm 2009/10/13 16:37:57 1.140 +++ loncom/interface/lonaboutme.pm 2010/03/11 16:35:12 1.144 @@ -1,7 +1,7 @@ # The LearningOnline Network # Personal Information Page # -# $Id: lonaboutme.pm,v 1.140 2009/10/13 16:37:57 amueller Exp $ +# $Id: lonaboutme.pm,v 1.144 2010/03/11 16:35:12 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -168,7 +168,7 @@ sub handler { if ($is_course) { if ($target ne 'tex') { - my $brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"}, + my $brcrum = [{href=>"/adm/navmaps",text=>"Course Contents"}, {href=>"/adm/aboutme",text=>"Course Information"}]; my $start_page = &Apache::loncommon::start_page( @@ -327,7 +327,8 @@ sub handler { &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); } $syllabus{'uploaded.photourl'}= - &Apache::lonnet::userphotoupload('uploaddoc','aboutme'); + &Apache::lonnet::userfileupload('uploaddoc',undef,'aboutme', + undef,undef,undef,undef,undef,undef,undef,'400','500'); } $syllabus{'uploaded.lastmodified'}=time; &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); @@ -356,22 +357,19 @@ sub handler { if ($syllabus{'uploaded.photourl'}) { &Apache::lonnet::allowuploaded('/adm/aboutme',$syllabus{'uploaded.photourl'}); - #This call is to resize all "Personal Information" 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|Photo of the user|; if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); } - } if ($allowed) { $r->print( '
'. '

'.&mt('Upload a Photo').'

'. + '

'. + &mt('LON-CAPA will automatically scale your uploaded file so the image will not exceed a width of 400px and a height of 500px.').'

'. ''. ''. ''. @@ -810,7 +808,7 @@ sub parse_directory { $output.=''; if ($have_meta) { $output.= ''.&mt('Metadata').''; } $output .= '' @@ -831,7 +829,7 @@ sub aboutme_access { my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; if (($cdom eq '') || ($cnum eq '')) { - my %coursehash = &coursedescription($env{'request.course.id'}); + my %coursehash = &Apache::lonnet::coursedescription($env{'request.course.id'}); $cdom = $coursehash{'domain'}; $cnum = $coursehash{'cnum'}; }