--- loncom/interface/lonaboutme.pm 2008/11/18 10:34:45 1.72 +++ loncom/interface/lonaboutme.pm 2008/12/02 23:35:21 1.76 @@ -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.76 2008/12/02 23:35:21 harmsja 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; @@ -125,7 +172,7 @@ sub handler { my $start_page = &Apache::loncommon::start_page("Personal Information",$rss_link,$args); $r->print($start_page); - $r->print('

'.&Apache::loncommon::plainname($cnum,$cdom).'

'); + $r->print('

'.&Apache::loncommon::plainname($cnum,$cdom).'

'); } else { $r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\'); } @@ -157,8 +204,8 @@ sub handler { &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); } elsif ($privleged && $target ne 'tex') { my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}}); - $r->print('

'. - &mt('Edit').'

'); + $r->print('

'. + &mt('Edit').'

'); } if (($env{'form.uploaddoc.filename'}) && ($env{'form.storeupl'}) && ($allowed)) { @@ -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); } @@ -221,41 +269,17 @@ my $image; '
'); } - - - foreach my $field (sort(keys(%syllabusfields))) { - if (($syllabus{$field}) || ($allowed)) { - my $message=$syllabus{$field}; - &Apache::lonfeedback::newline_to_br(\$message); - $message - =~s/(http\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; - if ($allowed) { - $message=&Apache::lonspeller::markeduptext($message); - } - $message=&Apache::lontexconvert::msgtexconverted($message); - if ($target ne 'tex') { - - Apache::lontemplate::print_template($r,$syllabusfields{$field},$message); - - - - } else { - $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'. - &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); - } - if ($allowed) { - Apache::lontemplate::print_editbox_template($r,$syllabusfields{$field},$field); - } - } - } + &Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus); if($target ne 'tex') { &print_portfiles_link($r,$is_course); - + $r->print('
'); + $r->print($image); + $r->print('
'); $r->print(''); - $r->print('
'); - $r->print($image); + $r->print('

'); + $r->print('Kontakt'); $r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'

'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); @@ -373,10 +397,10 @@ sub print_portfiles_link { difl => 'Display file listing', ); if ($filecounts->{'both'} > 0) { - $output = '
'; - $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
'; + $output = '

'; + $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'

'; - #$output = '

'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'

'; + #$output = '

'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'

'; $output .= '
'.$lt{'difl'}. '

'; @@ -400,7 +424,7 @@ sub print_portfiles_link { $output .= '
  • '.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).'
  • '; } $output .= ''; - $output .='
    '; + $output .='

    '; } $r->print($output); return;