--- loncom/interface/lonaboutme.pm 2008/12/15 16:37:44 1.85 +++ loncom/interface/lonaboutme.pm 2009/02/17 10:24:54 1.96 @@ -1,7 +1,7 @@ # The LearningOnline Network -# "About Me" Personal Information +# Personal Homepage # -# $Id: lonaboutme.pm,v 1.85 2008/12/15 16:37:44 raeburn Exp $ +# $Id: lonaboutme.pm,v 1.96 2009/02/17 10:24:54 weissno 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; @@ -119,7 +120,7 @@ sub handler { if ($target eq 'tex') { $r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\'); } else { - $r->print(&Apache::loncommon::start_page("Personal Information")); + $r->print(&Apache::loncommon::start_page("Personal Homepage")); $r->print('
'); $r->print(''.&Apache::lonnet::domain($cdom,'description').'
');#OLD SendMessage POS } else { $r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); @@ -230,16 +233,16 @@ sub handler { my $privleged=$allowed=(($env{'user.name'} eq $cnum) && ($env{'user.domain'} eq $cdom)); if ($forcestudent or $target eq 'tex') { $allowed=0; } - + my $query_string; if ($allowed) { - my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}}); + $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}}); $r->print(''.&mt('Privacy Note').': '. &mt('The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publicly.'). - '
'. - &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).''.&mt('Show Public View').''. - &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
'); + ''.&mt('Show Public View').''. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
'. + &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).''); } elsif ($privleged && $target ne 'tex') { - my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}}); + $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}}); $r->print(''); } @@ -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); #Old Last Modifi Pos + $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 "Personal Info" 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,32 +306,47 @@ my $image; ''. ''. ''. - ' + ''); } - &Apache::lontemplate::start_columnSection($r); - &Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus); - if($target ne 'tex') - { - &Apache::lontemplate::start_ContentBox($r); - $r->print($image); + + if($allowed) { + $r->print('