loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2006/03/21 21:25:33	version 1.14, 2006/04/13 16:23:03
Line 83 sub advertisefeeds {	Line 83 sub advertisefeeds {
}	}
foreach my $feed (sort(keys(%feednames))) {	foreach my $feed (sort(keys(%feednames))) {
if ($feed!~/^error\:/) {	if ($feed!~/^error\:/) {
my $feedurl='feed://'.$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';
$feeds.='<li>'.$feednames{$feed}.	$feeds.='<li>'.$feednames{$feed}.
'<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'.	'<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'.
Line 181 sub handler {	Line 181 sub handler {
my $feedname=&feedname($filename);	my $feedname=&feedname($filename);
my $displayfeedname=&displayfeedname($filename,$uname,$udom);	my $displayfeedname=&displayfeedname($filename,$uname,$udom);
if ($html) {	if ($html) {
$r->print(&Apache::lonxml::xmlbegin().	$r->print(&Apache::loncommon::start_page($displayfeedname,undef,
&Apache::loncommon::head($displayfeedname).	{'domain' => $udom,
&Apache::loncommon::bodytag($displayfeedname,'','','',$udom,	'force_register' =>
$env{'form.register'}).	$env{'form.register'}}).
&changed_js());	&changed_js());

} else {	} else {