loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2006/05/11 17:38:44	version 1.22, 2006/05/11 17:50:52
Line 29	Line 29
package Apache::lonrss;	package Apache::lonrss;

use strict;	use strict;
	use LONCAPA;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
Line 197 sub course_blog_link {	Line 198 sub course_blog_link {
sub add_blog_entry_link {	sub add_blog_entry_link {
my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;	my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;
return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.	return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.
&Apache::lonnet::escape($id).	&escape($id).
'&title='.&Apache::lonnet::escape($title).	'&title='.&escape($title).
'&description='.&Apache::lonnet::escape($description).	'&description='.&escape($description).
'&url='.&Apache::lonnet::escape($url).	'&url='.&escape($url).
'&status='.&Apache::lonnet::escape($status).	'&status='.&escape($status).
'&encurl='.&Apache::lonnet::escape($encurl).	'&encurl='.&escape($encurl).
'&enctype='.&Apache::lonnet::escape($enctype).	'&enctype='.&escape($enctype).
"'>".$linktext.'</a>';	"'>".$linktext.'</a>';

}	}