--- loncom/localize/lonlocal.pm 2003/10/08 18:21:38 1.22 +++ loncom/localize/lonlocal.pm 2003/10/10 16:56:16 1.23 @@ -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.23 2003/10/10 16:56:16 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(@_);