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

version 1.17, 2003/03/25 19:18:40 version 1.19, 2003/05/21 20:10:53
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(/\:/,$_);
Removed from v.1.17  
changed lines
  Added in v.1.19

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