loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2004/11/13 10:06:17	version 1.36, 2005/02/17 08:29:42
Line 44 sub handler {	Line 44 sub handler {
my $target=$ENV{'form.grade_target'};	my $target=$ENV{'form.grade_target'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
ENDDOCUMENT	ENDDOCUMENT
Line 158 ENDDOCUMENT	Line 159 ENDDOCUMENT
if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
&Apache::lonnet::allowuploaded('/adm/aboutme',	&Apache::lonnet::allowuploaded('/adm/aboutme',
$syllabus{'uploaded.photourl'});	$syllabus{'uploaded.photourl'});
my $image='<img src="'.$syllabus{'uploaded.photourl'}.'"	my $image=
align="right" />';	qq{<img src="$syllabus{'uploaded.photourl'}" align="right" />};
if ($target eq 'tex') {	if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);	$image=&Apache::lonxml::xmlparse($r,'tex',$image);
}	}