--- loncom/interface/lonsyllabus.pm 2005/04/07 06:56:23 1.40 +++ loncom/interface/lonsyllabus.pm 2005/11/18 13:35:30 1.44 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.40 2005/04/07 06:56:23 albertel Exp $ +# $Id: lonsyllabus.pm,v 1.44 2005/11/18 13:35:30 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,17 +47,20 @@ sub handler { # ------------------------------------------------------------ Print the screen my $target=$env{'form.grade_target'}; + my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); + my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss'; if ($target ne 'tex') { my $html=&Apache::lonxml::xmlbegin(); $r->print(< The LearningOnline Network with CAPA + ENDDOCUMENT } else { $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'})); } - my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); + # Is this even a course? my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom); if ($homeserver eq 'no_host') { @@ -113,7 +116,8 @@ ENDDOCUMENT # -------------------------------------------------------------- Announcements? if ($target ne 'tex') { $r->print(&Apache::lonannounce::showday(time,2, - &Apache::lonannounce::readcalendar($cdom.'_'.$cnum))); + &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)). + &Apache::lonrss::advertisefeeds($cnum,$cdom)); } else { $r->print(&Apache::lonxml::xmlparse($r,'tex', &Apache::lonannounce::showday(time,2, @@ -285,7 +289,7 @@ ENDDOCUMENT $r->print($message); } } else { - $message=~s/\n/\
/g; + &Apache::lonfeedback::newline_to_br(\$message); $message =~s/(https*\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; if ($allowed) {