[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.74

version 1.72, 2008/11/18 10:34:45 version 1.74, 2008/11/20 13:11:36
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 244  my $image; Line 292  my $image;
        &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');         &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
       }        }
               if ($allowed) {                if ($allowed) {
  Apache::lontemplate::print_editbox_template($r,$syllabusfields{$field},$field);   Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
       }        }
   }    }
        }         }
Removed from v.1.72  
changed lines
  Added in v.1.74

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