loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2009/01/26 11:10:10	version 1.91, 2009/02/05 14:56:49
Line 86 use Apache::lonlocal;	Line 86 use Apache::lonlocal;
use Apache::lonmsgdisplay();	use Apache::lonmsgdisplay();
use Apache::lontemplate;	use Apache::lontemplate;
use HTML::Entities();	use HTML::Entities();
	use Image::Magick;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 284 my $image;	Line 285 my $image;
if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/aboutme',	&Apache::lonnet::allowuploaded('/adm/aboutme',
$syllabus{'uploaded.photourl'});	$syllabus{'uploaded.photourl'});
$image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
	#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{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};

if ($target eq 'tex') {	if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);	$image=&Apache::lonxml::xmlparse($r,'tex',$image);
}	}