--- loncom/interface/lonsyllabus.pm 2005/06/06 02:29:46 1.41 +++ loncom/interface/lonsyllabus.pm 2006/03/06 22:17:48 1.45 @@ -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.45 2006/03/06 22:17:48 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,29 +41,38 @@ use Apache::lonspeller(); sub handler { my $r = shift; + +# --------------------------------------------------- Get course info from URL + 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') { + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + $r->print(''.&mt('No syllabus available').''); + return OK; + } +# ------------------------------------- There is such a course, get environment + my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; - # ------------------------------------------------------------ Print the screen my $target=$env{'form.grade_target'}; + 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') { - $r->print(''.&mt('No syllabus available').''); - return OK; - } + # --------------------------------------------------------- The syllabus fields my %syllabusfields=&Apache::lonlocal::texthash( 'aaa_instructorinfo' => 'Instructor Information', @@ -98,8 +107,7 @@ ENDDOCUMENT my $forceedit=''; if ($env{'form.forceedit'}) { $forceedit='edit'; } -# ------------------------------------- There is such a course, get environment - my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); +# ----------------------------------------------------------------- Make header if ($target ne 'tex') { $r->print(&Apache::lonhtmlcommon::htmlareaheaders(). ''.&Apache::loncommon::bodytag @@ -113,7 +121,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,