loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.45, 2009/02/10 09:30:16	version 1.47, 2009/04/20 15:20:23
Line 322 sub handler {	Line 322 sub handler {
}	}
}	}
if ($html) {	if ($html) {
my $title = $displayfeedname?$displayfeedname	# my $title = $displayfeedname?$displayfeedname:"Available RSS Feeds and Blogs";
:"Available RSS Feeds and Blogs";	my $title = "My Space";
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"}];	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,
Line 390 sub handler {	Line 390 sub handler {
}	}
# Add a new feed	# Add a new feed
if (($html) && ($edit)) {	if (($html) && ($edit)) {
	$r->print('<h4>' . &mt('New RSS Feed or Blog'). '</h4>');
$r->print('<form method="post" name="makenewfeed">');	$r->print('<form method="post" name="makenewfeed">');
$r->print(&mt('Name').": <input type='text' size='40' name='namenewblog' />");	$r->print(&mt('Name').": <input type='text' size='40' name='namenewblog' />");
$r->print('<input type="submit" value="'.&mt('New Feed').'" />');	$r->print('<input type="submit" value="'.&mt('New Feed').'" />');