--- loncom/interface/lonrss.pm	2006/06/03 21:05:04	1.25
+++ loncom/interface/lonrss.pm	2006/10/02 16:47:57	1.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # RSS Feeder
 #
-# $Id: lonrss.pm,v 1.25 2006/06/03 21:05:04 albertel Exp $
+# $Id: lonrss.pm,v 1.28 2006/10/02 16:47:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -200,12 +200,12 @@ sub add_blog_entry_link {
     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;
     return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.
 	&escape($id).
-	'&title='.&escape($title).
-	'&description='.&escape($description).
-	'&url='.&escape($url).
-	'&status='.&escape($status).
-	'&encurl='.&escape($encurl).
-	'&enctype='.&escape($enctype).
+	'&amp;title='.&escape($title).
+	'&amp;description='.&escape($description).
+	'&amp;url='.&escape($url).
+	'&amp;status='.&escape($status).
+	'&amp;encurl='.&escape($encurl).
+	'&amp;enctype='.&escape($enctype).
 	"'>".$linktext.'</a>';
 
 }
@@ -243,7 +243,7 @@ sub handler {
     if ($html) {
 	my $title = $displayfeedname?$displayfeedname
                                     :"Available RSS Feeds and Blogs";
-	$r->print(&Apache::loncommon::start_page($title,undef
+	$r->print(&Apache::loncommon::start_page($title,undef,
 						 {'domain'         => $udom,
 						  'force_register' =>
 						      $env{'form.register'}}).
@@ -339,7 +339,7 @@ sub handler {
 			    &editentry($id,$uname,$udom,$feedname,
 				       $env{'form.'.$id.'_title'},
 				       $env{'form.'.$id.'_description'},
-				       $env{'form.'.$id.'_url'},
+				       $env{'form.'.$id.'_link'},
 				       $env{'form.'.$id.'_status'},
 				       $env{'form.'.$id.'_enclosureurl'},
 				       $env{'form.'.$id.'_enclosuretype'},
@@ -402,12 +402,16 @@ ENDEDIT
 		    } else { # not in edit mode, just displaying
 			if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }
 			if ($newsfeed{$id.'_status'} eq 'hidden') { next; }
+			my $link =  $newsfeed{$id.'_link'};
+			if ($link =~ m|^/| ) {
+			    $link = "http://".$ENV{'HTTP_HOST'}.$link;
+			}
 			$r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.
 				  ($html?"</b><br />\n":"</title>\n<description>").
 				  $newsfeed{$id.'_description'}.
 				  ($html?"<br />\n<a href='":"</description>\n<link>").
-				  "http://".$ENV{'HTTP_HOST'}.
-				  $newsfeed{$id.'_link'}.
+				  
+				  $link.
 				  ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));
 # Enclosure? Get stats
 			if ($newsfeed{$id.'_enclosureurl'}) {