loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.86 and 1.90

version 1.86, 2004/08/05 16:59:29	version 1.90, 2004/09/29 14:50:43
Line 117 sub store_recent {	Line 117 sub store_recent {
time.'&'.&Apache::lonnet::escape($value) });	time.'&'.&Apache::lonnet::escape($value) });
}	}

	sub remove_recent {
	my ($area,$names)=@_;
	my $file=&recent_filename($area);
	return &Apache::lonnet::del($file,$names);
	}

sub select_recent {	sub select_recent {
my ($area,$fieldname,$event)=@_;	my ($area,$fieldname,$event)=@_;
my %recent=&Apache::lonnet::dump(&recent_filename($area));	my %recent=&Apache::lonnet::dump(&recent_filename($area));
Line 519 sub javascript_nothing {	Line 525 sub javascript_nothing {
return $nothing;	return $nothing;
}	}

	##############################################
	##############################################
	sub javascript_docopen {
	# safari does not understand document.open() and loads "text/html"
	my $nothing = "''";
	my $user_browser;
	my $user_os;
	$user_browser = $ENV{'browser.type'} if (exists($ENV{'browser.type'}));
	$user_os = $ENV{'browser.os'} if (exists($ENV{'browser.os'}));
	if (! defined($user_browser) \|\| ! defined($user_os)) {
	(undef,$user_browser,undef,undef,undef,$user_os) =
	&Apache::loncommon::decode_user_agent();
	}
	if ($user_browser eq 'safari' && $user_os =~ 'mac') {
	$nothing = "document.clear()";
	} else {
	$nothing = "document.open('text/html','replace')";
	}
	return $nothing;
	}


##############################################	##############################################
##############################################	##############################################
Line 926 sub htmlareaaddbuttons {	Line 953 sub htmlareaaddbuttons {
config.registerButton('ed_math','LaTeX Inline',	config.registerButton('ed_math','LaTeX Inline',
'/htmlarea/images/ed_math.gif',false,	'/htmlarea/images/ed_math.gif',false,
function(editor,id) {	function(editor,id) {
editor.surroundHTML('<m>\$','\$</m>');	editor.surroundHTML(' <m>\$','\$</m> ');
}	}
);	);
config.registerButton('ed_math_eqn','LaTeX Equation',	config.registerButton('ed_math_eqn','LaTeX Equation',
'/htmlarea/images/ed_math_eqn.gif',false,	'/htmlarea/images/ed_math_eqn.gif',false,
function(editor,id) {	function(editor,id) {
editor.surroundHTML(	editor.surroundHTML(
'<center><m>\\\\[','\\\\]</m></center>');	' \\n<center><m>\\\\[','\\\\]</m></center>\\n ');
}	}
);	);
config.toolbar.push(['ed_math','ed_math_eqn']);	config.toolbar.push(['ed_math','ed_math_eqn']);
Line 1034 returns: nothing	Line 1061 returns: nothing
my @Crumbs;	my @Crumbs;

sub breadcrumbs {	sub breadcrumbs {
my ($color,$component,$component_help,$function,$domain,$menulink) =	my ($color,$component,$component_help,$function,$domain,$menulink,
@_;	$helplink) = @_;
if (! defined($color)) {	if (! defined($color)) {
if (! defined($function)) {	if (! defined($function)) {
$function = &Apache::loncommon::get_users_function();	$function = &Apache::loncommon::get_users_function();
Line 1097 returns: nothing	Line 1124 returns: nothing
# if ($bug ne '') {	# if ($bug ne '') {
# $icons .= &Apache::loncommon::help_open_bug($bug);	# $icons .= &Apache::loncommon::help_open_bug($bug);
# }	# }
$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);	if ($helplink ne 'nohelp') {
	$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);
	}
if ($icons ne '') {	if ($icons ne '') {
$Str .= $icons.' ';	$Str .= $icons.' ';
}	}

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

Removed from v.1.86
changed lines
	Added in v.1.90