--- loncom/interface/lonaboutme.pm 2008/11/18 10:34:45 1.72 +++ loncom/interface/lonaboutme.pm 2008/11/20 13:11:36 1.74 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.72 2008/11/18 10:34:45 amueller Exp $ +# $Id: lonaboutme.pm,v 1.74 2008/11/20 13:11:36 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,53 @@ # http://www.lon-capa.org/ # +=pod + +=head1 NAME + +pache::lonaboutme + +=head1 SYNOPSIS + +(empty) + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + +=head1 OVERVIEW + +(empty) + + +=head1 SUBROUTINES + +=over + +=item handler() + +=item in_course() + +=item aboutme_info() + +=item print_portfiles_link() + +=item build_query_string() + +=item display_portfolio_header() + +=item display_portfolio_files() + +=item portfolio_files() + +=item build_hierarchy() + +=item parse_directory() + +=back + +=cut + + package Apache::lonaboutme; use strict; @@ -202,7 +249,8 @@ my $image; &Apache::lonnet::allowuploaded('/adm/aboutme', $syllabus{'uploaded.photourl'}); $image= - qq{}; + qq{}; + if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); } @@ -244,7 +292,7 @@ my $image; &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); } if ($allowed) { - Apache::lontemplate::print_editbox_template($r,$syllabusfields{$field},$field); + Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field); } } }