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.42, 2008/12/15 16:37:44
Line 323 sub handler {	Line 323 sub handler {
my $title = $displayfeedname?$displayfeedname	my $title = $displayfeedname?$displayfeedname
:"Available RSS Feeds and Blogs";	:"Available RSS Feeds and Blogs";
my $rss_link = &Apache::lonrss::rss_link($uname,$udom);	my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
	my $brcrumb = [{href=>$rss_link,text=>"Available RSS Feeds and Blogs"}];
$r->print(&Apache::loncommon::start_page($title,$rss_link,	$r->print(&Apache::loncommon::start_page($title,$rss_link,
{'domain' => $udom,	{'bread_crumbs' => $brcrumb,
'force_register' =>	'domain' => $udom,
$env{'form.register'}}).	'force_register' => $env{'form.register'}}).
&changed_js());	&changed_js());
} else { # render RSS	} else { # render RSS
my $server = &Apache::lonnet::absolute_url();	my $server = &Apache::lonnet::absolute_url();
Line 341 sub handler {	Line 342 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?