loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2008/12/09 10:45:44	version 1.79, 2008/12/09 11:31:56
Line 236 sub handler {	Line 236 sub handler {
&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});	&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
}	}
$syllabus{'uploaded.photourl'}=	$syllabus{'uploaded.photourl'}=
&Apache::lonnet::userfileupload('uploaddoc',undef,'aboutme');	&Apache::lonnet::userphotoupload('uploaddoc','aboutme');
}	}
$syllabus{'uploaded.lastmodified'}=time;	$syllabus{'uploaded.lastmodified'}=time;
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);	&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
Line 270 my $image;	Line 270 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=	$image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
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);