version 1.22, 2003/10/08 18:21:38
|
version 1.23, 2003/10/10 16:56:16
|
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(@_); |