--- loncom/interface/lonrss.pm 2006/06/03 21:28:33 1.26 +++ 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.26 2006/06/03 21:28:33 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 "".$linktext.''; } @@ -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