loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.7, 2003/09/20 14:16:09	version 1.8, 2003/09/20 17:04:02
Line 73 sub current_language {	Line 73 sub current_language {
return $lh->language_tag();	return $lh->language_tag();
}	}

	# ============================================================== What encoding?

	sub current_encoding {
	my $enc=$lh->maketext('char_encoding');
	return ($enc eq 'char_encoding'?'':$enc);
	}

# ============================================================== Translate hash	# ============================================================== Translate hash

sub texthash {	sub texthash {
Line 109 sub endreroutetrans {	Line 116 sub endreroutetrans {

sub get_language_handle {	sub get_language_handle {
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);	$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
	$r->content_languages(["&current_language()"]);
	my $enc=&current_encoding();
	if ($enc) {

	}
}	}

1;	1;