loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2008/12/08 23:16:46	version 1.39.2.2, 2008/12/22 14:41:05
Line 306 sub handler {	Line 306 sub handler {
my ($blocked,$blocktext,$disabled,$disabletext);	my ($blocked,$blocktext,$disabled,$disabletext);
if (!&Apache::lonnet::is_course($udom,$uname)) {	if (!&Apache::lonnet::is_course($udom,$uname)) {
($blocked,$blocktext) = &blocking_blogdisplay($uname,$udom,$html,$filterfeedname);	($blocked,$blocktext) = &blocking_blogdisplay($uname,$udom,$html,$filterfeedname);
$disabled = &Apache::lonnet::usertools_access($uname,$udom,'blog');	if (&Apache::lonnet::usertools_access($uname,$udom,'blog')) {
if ($disabled) {	$disabled = 0;
	} else {
	$disabled = 1;
if ($html) {	if ($html) {
$disabletext = '<h2>'.&mt('No user blog available') .'</h2>'.	$disabletext = '<h2>'.&mt('No user blog available') .'</h2>'.
&mt('This is a result of one of the following:').'<ul>'.	&mt('This is a result of one of the following:').'<ul>'.
Line 341 sub handler {	Line 343 sub handler {
my $newid = &get_new_feed_id();	my $newid = &get_new_feed_id();
# Is this user for real?	# Is this user for real?
my $homeserver=&Apache::lonnet::homeserver($uname,$udom);	my $homeserver=&Apache::lonnet::homeserver($uname,$udom);
if ($html && !$blocked && !&disabled) {	if ($html && !$blocked && !$disabled) {
# Any new feeds or renaming of feeds?	# Any new feeds or renaming of feeds?
if ($edit) {	if ($edit) {
# Hide a feed?	# Hide a feed?