loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2012/07/03 15:18:54	version 1.51, 2013/05/06 16:15:59
Line 88 sub changefeeddisplay {	Line 88 sub changefeeddisplay {
}	}

sub advertisefeeds {	sub advertisefeeds {
my ($uname,$udom,$edit)=@_;	my ($uname,$udom,$edit,$count,$hidden)=@_;
my $feeds='';	my $feeds='';
my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);	my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
my $mode='public';	my $mode='public';
Line 100 sub advertisefeeds {	Line 100 sub advertisefeeds {
next if ($feed =~/^\s*$/ \|\|	next if ($feed =~/^\s*$/ \|\|
$feed =~ /^error:/ \|\|	$feed =~ /^error:/ \|\|
$feed =~ /^feed_display_option_/);	$feed =~ /^feed_display_option_/);
	if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
	if (ref($hidden)) {
	$$hidden ++;
	}
	if (ref($count)) {
	unless ($edit) {
	next;
	}
	}
	} else {
	if (ref($count)) {
	$$count ++;
	}
	}
my $feedurl= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';	my $feedurl= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
my $htmlurl= $server.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';	my $htmlurl= $server.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';
if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {	if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {