loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.266, 2010/02/19 10:19:33	version 1.269, 2010/03/15 05:37:47
Line 1283 sub htmlarea_lang {	Line 1283 sub htmlarea_lang {
sub htmlareaselectactive {	sub htmlareaselectactive {
my @fields=@_;	my @fields=@_;
unless (&htmlareabrowser()) { return ''; }	unless (&htmlareabrowser()) { return ''; }
#if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); }
my $output='<script type="text/javascript" defer="defer">'."\n"	my $output='<script type="text/javascript" defer="defer">'."\n"
.'// <![CDATA['."\n";	.'// <![CDATA['."\n";
my $lang = &htmlarea_lang();	my $lang = &htmlarea_lang();
Line 1357 sub htmlareaselectactive {	Line 1356 sub htmlareaselectactive {
';	';
$output.="\nwindow.status='Activated Editfields';\n"	$output.="\nwindow.status='Activated Editfields';\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script><br />'.	.'</script><br />';
&disablelink(@fields);
return $output;	return $output;
}	}

Line 1440 returns: nothing	Line 1438 returns: nothing
if ($menulink) {	if ($menulink) {
my $description = 'Menu';	my $description = 'Menu';
my $no_mt_descr = 0;	my $no_mt_descr = 0;
if (exists($env{'request.course.id'}) &&	if ((exists($env{'request.course.id'})) &&
$env{'request.course.id'} ne '') {	($env{'request.course.id'} ne '') &&
	($env{'course.'.$env{'request.course.id'}.'.description'} ne '')) {
$description =	$description =
$env{'course.'.$env{'request.course.id'}.'.description'};	$env{'course.'.$env{'request.course.id'}.'.description'};
$no_mt_descr = 1;	$no_mt_descr = 1;