loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.261, 2010/01/19 19:00:02	version 1.262, 2010/01/24 03:56:09
Line 66 use LONCAPA;	Line 66 use LONCAPA;
sub coursepreflink {	sub coursepreflink {
my ($text,$category)=@_;	my ($text,$category)=@_;
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
return '<a href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>';	return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'">'.$text.'</a>';
} else {	} else {
return '';	return '';
}	}
Line 1285 sub htmlareaselectactive {	Line 1285 sub htmlareaselectactive {
my @fields=@_;	my @fields=@_;
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
#if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }	#if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }
my $output='<script type="text/javascript" defer="1">'."\n"	my $output='<script type="text/javascript" defer="defer">'."\n"
.'// <![CDATA['."\n";	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
$output.='	$output.='