--- loncom/interface/lonaboutme.pm 2010/01/30 18:03:40 1.70.4.3 +++ loncom/interface/lonaboutme.pm 2008/11/19 11:51:49 1.73 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.70.4.3 2010/01/30 18:03:40 raeburn Exp $ +# $Id: lonaboutme.pm,v 1.73 2008/11/19 11:51:49 amueller Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,52 +26,6 @@ # http://www.lon-capa.org/ # -=pod - -=head1 NAME - -Apache::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; @@ -83,6 +37,7 @@ use Apache::lonfeedback; use Apache::lonrss(); use Apache::lonlocal; use Apache::lonmsgdisplay(); +use Apache::lontemplate; use HTML::Entities(); sub handler { @@ -106,34 +61,10 @@ sub handler { $is_course = &Apache::lonnet::is_course($cdom,$cnum); } - 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 Page")); - $r->print('
'.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'
'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); + $r->print(''.&mt('Privacy Note:').' '. + $r->print('
'.&mt('Privacy Note').': '. &mt('The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publicly.'). '
'. &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).''.&mt('Show Public View').''. @@ -274,20 +191,23 @@ sub handler { &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); } +my $lastmod; +my $image; # ---------------------------------------------------------------- Get syllabus if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { - my $lastmod=$syllabus{'uploaded.lastmodified'}; + $lastmod=$syllabus{'uploaded.lastmodified'}; $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); - $r->print(&mt('Last updated').': '.$lastmod); + # $r->print(&mt('Last updated').': '.$lastmod); #Old Last Modifi Pos if ($syllabus{'uploaded.photourl'}) { &Apache::lonnet::allowuploaded('/adm/aboutme', $syllabus{'uploaded.photourl'}); - my $image= - qq{}; + $image= + qq{}; + if ($target eq 'tex') { $image=&Apache::lonxml::xmlparse($r,'tex',$image); } - $r->print($image); + # $r->print($image); #Print old Image } if ($allowed) { $r->print( @@ -302,6 +222,8 @@ sub handler { '