--- loncom/interface/lonsyllabus.pm 2005/06/06 02:29:46 1.41 +++ loncom/interface/lonsyllabus.pm 2005/11/17 21:33:40 1.42 @@ -1,7 +1,7 @@ # The LearningOnline Network # Syllabus # -# $Id: lonsyllabus.pm,v 1.41 2005/06/06 02:29:46 albertel Exp $ +# $Id: lonsyllabus.pm,v 1.42 2005/11/17 21:33:40 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,9 @@ ENDDOCUMENT # -------------------------------------------------------------- Announcements? if ($target ne 'tex') { $r->print(&Apache::lonannounce::showday(time,2, - &Apache::lonannounce::readcalendar($cdom.'_'.$cnum))); + &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)). + '

'.&mt('Course Announcement RSS Feed').': '. + ''.$feedurl.''); } else { $r->print(&Apache::lonxml::xmlparse($r,'tex', &Apache::lonannounce::showday(time,2,