loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.22, 2003/10/08 18:21:38	version 1.24, 2003/10/11 14:06:01
Line 180 use vars qw($lh);	Line 180 use vars qw($lh);
# ===================================================== The "MakeText" function	# ===================================================== The "MakeText" function

sub mt (@) {	sub mt (@) {
	# my $fh=Apache::File->new('>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
	# print $fh join('',@_)."\n";
	# $fh->close();
unless ($ENV{'environment.translator'}) {	unless ($ENV{'environment.translator'}) {
if ($lh) {	if ($lh) {
return $lh->maketext(@_);	return $lh->maketext(@_);
Line 207 sub mt (@) {	Line 210 sub mt (@) {
}	}
}	}

	# ================================================================ The <mt> tag

	BEGIN {
	}

	sub start_mt {
	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	return &mt(&Apache::lonxml::get_all_text("/mt",$parser));
	}

	sub end_mt {
	return '';
	}

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

sub current_language {	sub current_language {
Line 280 sub get_language_handle {	Line 297 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()]);
}	}
	&Apache::lonxml::register('Apache::lonlocal',('mt'));
### setlocale(LC_ALL,&current_locale);	### setlocale(LC_ALL,&current_locale);
}	}