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.9, 2003/09/20 17:44:22
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 102 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);
	$r->content_languages(["&current_language()"]);
	my $enc=&current_encoding();
	if ($enc) {

	}
}	}

1;	1;