--- loncom/interface/lonrss.pm	2006/03/16 19:56:21	1.10
+++ loncom/interface/lonrss.pm	2006/03/23 22:32:11	1.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # RSS Feeder
 #
-# $Id: lonrss.pm,v 1.10 2006/03/16 19:56:21 albertel Exp $
+# $Id: lonrss.pm,v 1.13 2006/03/23 22:32:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -97,6 +97,12 @@ sub advertisefeeds {
     }
 }
 
+sub rss_link {
+    my ($url) = @_;
+    return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|;
+
+}
+
 {
     my $feedcounter;
     sub addentry {
@@ -145,7 +151,7 @@ sub changed_js {
         tform.elements[id+"_modified"].checked=true;
     }
 </script>
-ENDSCRIPT 
+ENDSCRIPT
 }
 
 sub handler {
@@ -175,10 +181,10 @@ sub handler {
     my $feedname=&feedname($filename);
     my $displayfeedname=&displayfeedname($filename,$uname,$udom);
     if ($html) {
-	$r->print(&Apache::lonxml::xmlbegin().
-		  &Apache::loncommon::head($displayfeedname).
-		  &Apache::loncommon::bodytag($displayfeedname,'','','',$udom,
-					      $env{'form.register'}).
+	$r->print(&Apache::loncommon::start_page($displayfeedname,undef,
+						 {'domain'         => $udom,
+						  'force_register' =>
+						      $env{'form.register'}}).
 		  &changed_js());
 
     } else {