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

version 1.71, 2008/11/11 10:45:22 version 1.72, 2008/11/18 10:34:45
Line 37  use Apache::lonfeedback; Line 37  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 221  my $image; Line 222  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 234  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,$syllabusfields{$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.72

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