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.84.2.2 and 1.85

version 1.84.2.2, 2004/08/29 07:53:00	version 1.85, 2004/07/27 23:35:34
Line 869 sub crumbs {	Line 869 sub crumbs {
return $output.'</font>'.($noformat?'':'</b></tt><br />');	return $output.'</font>'.($noformat?'':'</b></tt><br />');
}	}

	# --------------------- A function that generates a window for the spellchecker

	sub spellheader {
	my $nothing = &javascript_nothing();
	return (<<ENDCHECK);
	<script type="text/javascript">
	var checkwin;

	function spellcheckerwindow() {
	checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
	checkwin.document.writeln('<html><body bgcolor="#DDDDDD"><form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="" /></form></body></html>');
	checkwin.document.close();
	}
	</script>
	ENDCHECK
	}

	# ---------------------------------- Generate link to spell checker for a field

	sub spelllink {
	my ($form,$field)=@_;
	my $linktext=&mt('Check Spelling');
	return (<<ENDLINK);
	<a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { document.$form.onsubmit();};spellcheckerwindow();checkwin.document.forms.spellcheckform.text.value=this.document.forms.$form.$field.value;checkwin.document.forms.spellcheckform.submit();">$linktext</a>
	ENDLINK
	}

# ------------------------------------------------- Output headers for HTMLArea	# ------------------------------------------------- Output headers for HTMLArea

sub htmlareaheaders {	sub htmlareaheaders {
Line 897 sub htmlareaaddbuttons {	Line 924 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(
' \\n<center><m>\\\\[','\\\\]</m></center>\\n ');	'<center><m>\\\\[','\\\\]</m></center>');
}	}
);	);
config.toolbar.push(['ed_math','ed_math_eqn']);	config.toolbar.push(['ed_math','ed_math_eqn']);
Line 1005 returns: nothing	Line 1032 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 1068 returns: nothing	Line 1095 returns: nothing
# if ($bug ne '') {	# if ($bug ne '') {
# $icons .= &Apache::loncommon::help_open_bug($bug);	# $icons .= &Apache::loncommon::help_open_bug($bug);
# }	# }
if ($helplink ne 'nohelp') {	$icons .= &Apache::loncommon::help_open_menu($color,$component,$component_help,$function,$faq,$bug);
$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.84.2.2
changed lines
	Added in v.1.85