--- loncom/interface/lonsyllabus.pm	2006/03/15 19:41:26	1.48
+++ loncom/interface/lonsyllabus.pm	2006/03/21 21:25:33	1.49
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.48 2006/03/15 19:41:26 albertel Exp $
+# $Id: lonsyllabus.pm,v 1.49 2006/03/21 21:25:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,25 +56,19 @@ sub handler {
     if ($homeserver eq 'no_host') {
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
-        $r->print(&Apache::loncommon::startpage('No syllabus available').
-		  &mt('No syllabus available').
-		  &Apache::loncommon::end_page());
+      	&Apache::loncommon::simple_error_page($r,'No syllabus available',
+					      'No syllabus available');
         return OK;
     }
 # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
 
 # ------------------------------------------------------------ Print the screen
-    my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss';
-    if ($target ne 'tex') {
-	my $html=&Apache::lonxml::xmlbegin();
-	my $head=&Apache::loncommon::headtag('The LearningOnline Network with CAPA');
-	$r->print(<<ENDDOCUMENT);
-$html
-$head
-<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$feedurl" />
-ENDDOCUMENT
-    } else {
+
+    my $rss_link =
+	&Apache::lonrss::rss_link('http://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss');
+
+    if ($target eq 'tex') {
 	$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
     } 
 # ----------------------------------------------------- Force menu registration
@@ -86,6 +80,7 @@ ENDDOCUMENT
     }
 # -------------------------------------------------- Let's see who handles this
     my $externalsyllabus=$courseenv{'externalsyllabus'};
+
     if ($externalsyllabus=~/\w/) {
        $r->print(&Apache::loncommon::endheadtag());
        if ($env{'form.wrapperdisplay'} eq 'menu') {
@@ -157,25 +152,29 @@ ENDDOCUMENT
        
 # ----------------------------------------------------------------- Make header 
     if ($target ne 'tex') {
-	$r->print(&Apache::lonhtmlcommon::htmlareaheaders().
-		  &Apache::loncommon::endheadtag().
-		  &Apache::loncommon::bodytag("Syllabus",$forcestudent,$addentries,'',$cdom,$env{'form.register'}));
-	$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
+	my $start_page = 
+	    &Apache::loncommon::start_page("Syllabus", $rss_link,
+					   {'function'       => $forcestudent,
+					    'add_entries'    => $addentries,
+					    'domain'         => $cdom,
+					    'force_register' =>
+						$env{'form.register'},});
+
+	$r->print($start_page.'<h1>'.$courseenv{'description'}.'</h1><h3>'.
                  $Apache::lonnet::domaindescription{$cdom}.'</h3>');
     } else {
 	$r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
                  $Apache::lonnet::domaindescription{$cdom}.'}\\\\');
     }
 # -------------------------------------------------------------- Announcements?
+    my $day = &Apache::lonannounce::showday(time,2,
+			 &Apache::lonannounce::readcalendar($cdom.'_'.$cnum));
     if ($target ne 'tex') {
-	$r->print(&Apache::lonannounce::showday(time,2,
-		       &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)).
-                       &Apache::lonrss::advertisefeeds($cnum,$cdom));
+	$r->print($day. &Apache::lonrss::advertisefeeds($cnum,$cdom));
     } else {
-	$r->print(&Apache::lonxml::xmlparse($r,'tex',
-		       &Apache::lonannounce::showday(time,2,
-                       &Apache::lonannounce::readcalendar($cdom.'_'.$cnum))));
+	$r->print(&Apache::lonxml::xmlparse($r,'tex',$day));
     }
+
 # -------------------------------------------------------- Get course personnel
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
     if ($target ne 'tex') {