--- loncom/interface/lonaboutme.pm 2004/11/13 10:06:17 1.32 +++ loncom/interface/lonaboutme.pm 2005/02/17 08:29:42 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.32 2004/11/13 10:06:17 albertel Exp $ +# $Id: lonaboutme.pm,v 1.36 2005/02/17 08:29:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,8 +44,9 @@ sub handler { my $target=$ENV{'form.grade_target'}; # ------------------------------------------------------------ Print the screen if ($target ne 'tex') { + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html The LearningOnline Network with CAPA ENDDOCUMENT @@ -158,8 +159,8 @@ ENDDOCUMENT if ($syllabus{'uploaded.photourl'}) { &Apache::lonnet::allowuploaded('/adm/aboutme', $syllabus{'uploaded.photourl'}); - my $image=''; + my $image= + qq{}; if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); }