[BACK]Return to lonaboutme.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaboutme.pm between versions 1.72 and 1.75

version 1.72, 2008/11/18 10:34:45 version 1.75, 2008/12/02 09:41:07
Line 26 Line 26
 # http://www.lon-capa.org/  # 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;  package Apache::lonaboutme;
   
 use strict;  use strict;
Line 202  my $image; Line 249  my $image;
    &Apache::lonnet::allowuploaded('/adm/aboutme',     &Apache::lonnet::allowuploaded('/adm/aboutme',
   $syllabus{'uploaded.photourl'});    $syllabus{'uploaded.photourl'});
    $image=     $image=
                qq{<img src="$syllabus{'uploaded.photourl'}" style="vertical-align:text-top;float:right;" />};                 qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" style="vertical-align:text-top;float:right;" />};
   
    if ($target eq 'tex') {     if ($target eq 'tex') {
        $image=&Apache::lonxml::xmlparse($r,'tex',$image);         $image=&Apache::lonxml::xmlparse($r,'tex',$image);
    }     }
Line 221  my $image; Line 269  my $image;
  '</form><form method="post">');   '</form><form method="post">');
   
        }         }
    &Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);
   
        foreach my $field (sort(keys(%syllabusfields))) {  
           if (($syllabus{$field}) || ($allowed)) {  
               my $message=$syllabus{$field};  
       &Apache::lonfeedback::newline_to_br(\$message);  
               $message  
              =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$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);  
       }  
   }  
        }  
        if($target ne 'tex')         if($target ne 'tex')
        {         {
   
Removed from v.1.72  
changed lines
  Added in v.1.75

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>