loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2006/05/18 22:30:11	version 1.24, 2006/06/02 10:02:37
Line 93 sub advertisefeeds {	Line 93 sub advertisefeeds {
$mode='adm';	$mode='adm';
}	}
foreach my $feed (sort(keys(%feednames))) {	foreach my $feed (sort(keys(%feednames))) {
if ($feed ne ''	if (($feed!~/^error\:/) && ($feed!~/^feed\_display\_option\_/)) {
&& ($feed!~/^error\:/) && ($feed!~/^feed\_display\_option\_/)) {
my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';	my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';	my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';
if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {	if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
Line 140 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,