loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.15, 2003/09/28 03:02:36	version 1.17, 2003/10/02 17:35:57
Line 277 sub get_language_handle {	Line 277 sub get_language_handle {
if (&Apache::lonnet::mod_perl_version == 1) {	if (&Apache::lonnet::mod_perl_version == 1) {
$r->content_languages([&current_language()]);	$r->content_languages([&current_language()]);
}	}
setlocale(LC_ALL,&current_locale);	### setlocale(LC_ALL,&current_locale);
}	}

	# ==================== Normalize string (reduce fragility in the lexicon files)

	# This normalizes a string to reduce fragility in the lexicon files of
	# huge messages (such as are used by the helper), and allow useful
	# formatting: reduce all consecutive whitespace to a single space,
	# and remove all HTML
	sub normalize_string {
	my $s = shift;
	$s =~ s/\s+/ /g;
	$s =~ s/<[^>]+>//g;
	return $s;
	}
1;	1;

__END__	__END__