loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.5, 2003/09/17 23:16:27	version 1.8, 2003/09/20 17:04:02
Line 67 sub mt (@) {	Line 67 sub mt (@) {
}	}
}	}

	# ============================================================== What language?

	sub current_language {
	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 103 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;