--- loncom/interface/lonrss.pm 2006/05/11 17:38:44 1.21 +++ loncom/interface/lonrss.pm 2006/06/03 21:05:04 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # RSS Feeder # -# $Id: lonrss.pm,v 1.21 2006/05/11 17:38:44 www Exp $ +# $Id: lonrss.pm,v 1.25 2006/06/03 21:05:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -29,6 +29,7 @@ package Apache::lonrss; use strict; +use LONCAPA; use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonnet; @@ -138,7 +139,8 @@ sub editentry { } my $feedname=&feedname($filename); &Apache::lonnet::put('nohist_all_rss_feeds', - { &filterfeedname($filename) => &displayfeedname($filename,$uname,$udom) }, + { &filterfeedname($filename) => + (&displayfeedname($filename,$uname,$udom))[0] }, $udom,$uname); return &Apache::lonnet::put($feedname,{ $id.'_title' => $title, @@ -197,13 +199,13 @@ sub course_blog_link { sub add_blog_entry_link { my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_; return "".$linktext.''; } @@ -239,7 +241,9 @@ sub handler { my $feedname=&feedname($filename); my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom); if ($html) { - $r->print(&Apache::loncommon::start_page(($displayfeedname?$displayfeedname:&mt("Available RSS Feeds and Blogs")),undef, + my $title = $displayfeedname?$displayfeedname + :"Available RSS Feeds and Blogs"; + $r->print(&Apache::loncommon::start_page($title,undef {'domain' => $udom, 'force_register' => $env{'form.register'}}).