--- loncom/interface/lonsyllabus.pm	2003/03/10 14:20:07	1.16
+++ loncom/interface/lonsyllabus.pm	2003/06/20 13:31:46	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.16 2003/03/10 14:20:07 www Exp $
+# $Id: lonsyllabus.pm,v 1.20 2003/06/20 13:31:46 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,7 @@ use Apache::loncommon;
 use Apache::lonnet;
 use Apache::lontexconvert;
 use Apache::lonfeedback;
+use Apache::lonannounce;
 
 sub handler {
     my $r = shift;
@@ -92,6 +93,24 @@ ENDDOCUMENT
        ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');
+# -------------------------------------------------------------- Announcements?
+    $r->print(&Apache::lonannounce::showday(time,2,
+                         &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)));
+# -------------------------------------------------------- Get course personnel
+    my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
+    $r->print('<table border="2">');
+    foreach (sort keys %coursepersonnel) {
+	$r->print('<tr><td>'.$_.'</td><td>');
+        foreach (split(/\,/,$coursepersonnel{$_})) {
+	    my ($puname,$pudom)=split(/\:/,$_);
+	    $r->print(' '.&Apache::loncommon::aboutmewrapper(
+                          &Apache::loncommon::plainname($puname,
+                          $pudom),$puname,$pudom));
+	}
+        $r->print('</td></tr>');
+    }
+    $r->print('</table>');
+# ---------------------------------------------------------- Load syllabus info
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
     my $allowed=0;
 
@@ -199,7 +218,7 @@ ENDDOCUMENT
               } else {
                  $message=~s/\n/\<br \/\>/g;
                  $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);
                  $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
                         $message.'</blockquote>');