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

Diff for /loncom/interface/lonaboutme.pm between versions 1.71 and 1.74

version 1.71, 2008/11/11 10:45:22 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 37  use Apache::lonfeedback; Line 84  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmsgdisplay();  use Apache::lonmsgdisplay();
   use Apache::lontemplate;
 use HTML::Entities();  use HTML::Entities();
   
 sub handler {  sub handler {
Line 201  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 270  my $image;
   
        }         }
   
        if($target ne 'tex')  
        {  
  $r->print('<div style="left:0;  width:75%">');  
        }   
   
        foreach my $field (sort(keys(%syllabusfields))) {         foreach my $field (sort(keys(%syllabusfields))) {
           if (($syllabus{$field}) || ($allowed)) {            if (($syllabus{$field}) || ($allowed)) {
Line 237  my $image; Line 282  my $image;
       }        }
       $message=&Apache::lontexconvert::msgtexconverted($message);        $message=&Apache::lontexconvert::msgtexconverted($message);
       if ($target ne 'tex') {        if ($target ne 'tex') {
   
  # Start Neu   Apache::lontemplate::print_template($r,$syllabusfields{$field},$message);
   $r->print('<fieldset><legend><b>'.$syllabusfields{$field}.'</b></legend>');  
   $r->print($message);  
   $r->print('</fieldset><br />');  
   #Ende NEU          
     
   # $r->print('<h3>'.$syllabusfields{$field}. 'MESSAGE ____' .'</h3><blockquote>'.  
                   #          $message.'</blockquote>');  
       } else {        } else {
      $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.       $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.
        &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');         &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
       }        }
               if ($allowed) {                if ($allowed) {
                  $r->print('<br /><textarea cols="80" rows="6" name="'.$field.'">'.   Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
    &HTML::Entities::encode($syllabus{$field},'"&<>').  
            '</textarea><input type="submit" name="storesyl" value="'.  
    &mt('Save').'" />');  
       }        }
   }    }
        }         }
        if($target ne 'tex')         if($target ne 'tex')
        {         {
   
          &print_portfiles_link($r,$is_course);    &print_portfiles_link($r,$is_course);
     
       $r->print('</div>');        $r->print('</div>');
  $r->print('<div style="margin:0 0 0 75">');   $r->print('<div style="margin:0 0 0 75">');
         $r->print($image);          $r->print($image);
   
  $r->print('<p style="clear:both">');  
  $r->print('<div style="border:1px solid #000000;float:right">');  
  $r->print('<div style="border-bottom:1px solid #000000; background-color:#efefef;">');  
  $r->print('Kontakt');   $r->print('Kontakt');
  $r->print('</div>');  
  $r->print('safasf@dsf.de');  
  $r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));   $r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));
   
  $r->print('</div></div>');  
   
        }         }
   
Removed from v.1.71  
changed lines
  Added in v.1.74

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