version 1.35, 2005/11/10 19:19:51
|
version 1.36, 2005/11/14 19:53:03
|
Line 163 package Apache::lonlocal;
|
Line 163 package Apache::lonlocal;
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::localize; |
use Apache::localize; |
use Apache::File; |
|
use locale; |
use locale; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
|
|
Line 179 use vars qw($lh);
|
Line 178 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'); |
# open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt'); |
# print $fh @_[0]."\n"; |
# print LOG (@_[0]."\n"); |
# $fh->close(); |
# close(LOG); |
if ($lh) { |
if ($lh) { |
return $lh->maketext(@_); |
return $lh->maketext(@_); |
} else { |
} else { |