loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.6, 2003/09/20 13:21:45	version 1.9, 2003/09/20 17:44:22
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 108 sub endreroutetrans {	Line 115 sub endreroutetrans {
# ========= Get a handle (do not invoke in vain, leave this to access handlers)	# ========= Get a handle (do not invoke in vain, leave this to access handlers)

sub get_language_handle {	sub get_language_handle {
	my $r=shift;
$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);	$lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
# &Apache::lonnet::logthis($lh->encoding().' - '.$lh->language_tag());	$r->content_languages(["&current_language()"]);
	my $enc=&current_encoding();
	if ($enc) {

	}
}	}

1;	1;