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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.17 and 1.20

version 1.17, 2003/03/25 19:18:40 version 1.20, 2003/06/20 13:31:46
Line 34  use Apache::loncommon; Line 34  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lontexconvert;  use Apache::lontexconvert;
 use Apache::lonfeedback;  use Apache::lonfeedback;
   use Apache::lonannounce;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 92  ENDDOCUMENT Line 93  ENDDOCUMENT
        ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));         ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.      $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');                $Apache::lonnet::domaindescription{$cdom}.'</h3>');
   # -------------------------------------------------------------- Announcements?
       $r->print(&Apache::lonannounce::showday(time,2,
                            &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)));
 # -------------------------------------------------------- Get course personnel  # -------------------------------------------------------- Get course personnel
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);      my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
     $r->print('<table border="2">');      $r->print('<table border="2">');
     foreach (keys %coursepersonnel) {      foreach (sort keys %coursepersonnel) {
  $r->print('<tr><td>'.$_.'</td><td>');   $r->print('<tr><td>'.$_.'</td><td>');
         foreach (split(/\,/,$coursepersonnel{$_})) {          foreach (split(/\,/,$coursepersonnel{$_})) {
     my ($puname,$pudom)=split(/\:/,$_);      my ($puname,$pudom)=split(/\:/,$_);
Line 215  ENDDOCUMENT Line 218  ENDDOCUMENT
               } else {                } else {
                  $message=~s/\n/\<br \/\>/g;                   $message=~s/\n/\<br \/\>/g;
                  $message                   $message
              =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;             =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
          $message=&Apache::lontexconvert::msgtexconverted($message);           $message=&Apache::lontexconvert::msgtexconverted($message);
                  $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.                   $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
                         $message.'</blockquote>');                          $message.'</blockquote>');
Removed from v.1.17  
changed lines
  Added in v.1.20

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