--- doc/build/generate_web_pages.pl	2005/10/05 23:34:56	1.26
+++ doc/build/generate_web_pages.pl	2005/10/12 18:04:17	1.27
@@ -45,10 +45,11 @@ $shell =~ s/\r/\n/g;
 
 # Call with: The title, breadcrumb, and content
 sub replaceText {
-    my ($title, $breadcrumb, $content) = @_;
+    my ($title, $links, $breadcrumb, $content) = @_;
 
     my $page = $shell;
     $page =~ s/\<!-- *title *--\>/$title/g;
+    $page =~ s/\<!-- *links *--\>/$links/g;
     $page =~ s/\<!-- *breadcrumb *--\>/$breadcrumb/g;
     $page =~ s/\<!-- *content *--\>/$content/g;
 
@@ -118,8 +119,10 @@ for (@other_pages) {
 
 $content .= "</ul>\n";
 
-my $index = replaceText("Install LON-CAPA", "Install LON-CAPA",
-    $content);
+$links='<link rel="alternate" type="application/rss+xml" title="CVS RSS" href="loncapa.rss" />';
+
+my $index = replaceText("Install LON-CAPA", $links, "Install LON-CAPA",
+			$content);
 
 print INDEX $index;
 close INDEX;
@@ -133,7 +136,7 @@ for (@pages,@other_pages) {
     $content = join '', <SOURCE>;
     close SOURCE;
 
-    $content = replaceText($title, '<a href="/">Install LON-CAPA</a> &gt; ' . $title,
+    $content = replaceText($title, '', '<a href="/">Install LON-CAPA</a> &gt; ' . $title,
 			   $content);
     open DEST, '>', $source.'.html';
     print DEST $content;