--- loncom/interface/lonaboutme.pm 2008/12/11 16:46:50 1.70.2.1 +++ loncom/interface/lonaboutme.pm 2008/12/09 11:31:56 1.79 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.70.2.1 2008/12/11 16:46:50 raeburn Exp $ +# $Id: lonaboutme.pm,v 1.79 2008/12/09 11:31:56 amueller 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; @@ -37,6 +84,7 @@ use Apache::lonfeedback; use Apache::lonrss(); use Apache::lonlocal; use Apache::lonmsgdisplay(); +use Apache::lontemplate; use HTML::Entities(); sub handler { @@ -62,25 +110,23 @@ sub handler { my $candisplay = 1; if (!$is_course) { - if ($action ne 'portfolio') { - $candisplay = &Apache::lonnet::usertools_access($cnum,$cdom,'aboutme'); - if ((!$candisplay) && ($env{'request.course.id'})) { - $candisplay = &aboutme_access($cnum,$cdom); - } - if (!$candisplay) { - if ($target eq 'tex') { - $r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\'); - } else { - $r->print(&Apache::loncommon::start_page("Personal Information")); - $r->print('
'.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'
'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); + $r->print('