loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2006/05/11 17:50:52	version 1.25, 2006/06/03 21:05:04
Line 139 sub editentry {	Line 139 sub editentry {
}	}
my $feedname=&feedname($filename);	my $feedname=&feedname($filename);
&Apache::lonnet::put('nohist_all_rss_feeds',	&Apache::lonnet::put('nohist_all_rss_feeds',
{ &filterfeedname($filename) => &displayfeedname($filename,$uname,$udom) },	{ &filterfeedname($filename) =>
	(&displayfeedname($filename,$uname,$udom))[0] },
$udom,$uname);	$udom,$uname);
return &Apache::lonnet::put($feedname,{	return &Apache::lonnet::put($feedname,{
$id.'_title' => $title,	$id.'_title' => $title,
Line 240 sub handler {	Line 241 sub handler {
my $feedname=&feedname($filename);	my $feedname=&feedname($filename);
my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);	my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
if ($html) {	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,	{'domain' => $udom,
'force_register' =>	'force_register' =>
$env{'form.register'}}).	$env{'form.register'}}).