loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrss.pm between versions 1.26 and 1.28

version 1.26, 2006/06/03 21:28:33	version 1.28, 2006/10/02 16:47:57
Line 200 sub add_blog_entry_link {	Line 200 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='.
&escape($id).	&escape($id).
'&title='.&escape($title).	'&title='.&escape($title).
'&description='.&escape($description).	'&description='.&escape($description).
'&url='.&escape($url).	'&url='.&escape($url).
'&status='.&escape($status).	'&status='.&escape($status).
'&encurl='.&escape($encurl).	'&encurl='.&escape($encurl).
'&enctype='.&escape($enctype).	'&enctype='.&escape($enctype).
"'>".$linktext.'</a>';	"'>".$linktext.'</a>';

}	}
Line 339 sub handler {	Line 339 sub handler {
&editentry($id,$uname,$udom,$feedname,	&editentry($id,$uname,$udom,$feedname,
$env{'form.'.$id.'_title'},	$env{'form.'.$id.'_title'},
$env{'form.'.$id.'_description'},	$env{'form.'.$id.'_description'},
$env{'form.'.$id.'_url'},	$env{'form.'.$id.'_link'},
$env{'form.'.$id.'_status'},	$env{'form.'.$id.'_status'},
$env{'form.'.$id.'_enclosureurl'},	$env{'form.'.$id.'_enclosureurl'},
$env{'form.'.$id.'_enclosuretype'},	$env{'form.'.$id.'_enclosuretype'},
Line 402 ENDEDIT	Line 402 ENDEDIT
} else { # not in edit mode, just displaying	} else { # not in edit mode, just displaying
if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }	if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }
if ($newsfeed{$id.'_status'} eq 'hidden') { next; }	if ($newsfeed{$id.'_status'} eq 'hidden') { next; }
	my $link = $newsfeed{$id.'_link'};
	if ($link =~ m\|^/\| ) {
	$link = "http://".$ENV{'HTTP_HOST'}.$link;
	}
$r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.	$r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.
($html?"</b><br />\n":"</title>\n<description>").	($html?"</b><br />\n":"</title>\n<description>").
$newsfeed{$id.'_description'}.	$newsfeed{$id.'_description'}.
($html?"<br />\n<a href='":"</description>\n<link>").	($html?"<br />\n<a href='":"</description>\n<link>").
"http://".$ENV{'HTTP_HOST'}.
$newsfeed{$id.'_link'}.	$link.
($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));	($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));
# Enclosure? Get stats	# Enclosure? Get stats
if ($newsfeed{$id.'_enclosureurl'}) {	if ($newsfeed{$id.'_enclosureurl'}) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.26
changed lines
	Added in v.1.28