--- loncom/localize/lonlocal.pm 2003/10/08 18:21:38 1.22 +++ loncom/localize/lonlocal.pm 2003/10/11 21:06:11 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.22 2003/10/08 18:21:38 bowersj2 Exp $ +# $Id: lonlocal.pm,v 1.25 2003/10/11 21:06:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -180,6 +180,9 @@ use vars qw($lh); # ===================================================== The "MakeText" function 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'}) { if ($lh) { return $lh->maketext(@_);