[LON-CAPA-cvs] cvs: loncom /localize lonlocal.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 14 Nov 2005 19:53:04 -0000


albertel		Mon Nov 14 14:53:04 2005 EDT

  Modified files:              
    /loncom/localize	lonlocal.pm 
  Log:
  - deathe the Apache::File
  
  
Index: loncom/localize/lonlocal.pm
diff -u loncom/localize/lonlocal.pm:1.35 loncom/localize/lonlocal.pm:1.36
--- loncom/localize/lonlocal.pm:1.35	Thu Nov 10 14:19:51 2005
+++ loncom/localize/lonlocal.pm	Mon Nov 14 14:53:03 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.35 2005/11/10 19:19:51 www Exp $
+# $Id: lonlocal.pm,v 1.36 2005/11/14 19:53:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -163,7 +163,6 @@
 use strict;
 use Apache::Constants qw(:common);
 use Apache::localize;
-use Apache::File;
 use locale;
 use POSIX qw(locale_h);
 
@@ -179,9 +178,9 @@
 # ===================================================== The "MakeText" function
 
 sub mt (@) {
-#    my $fh=Apache::File->new('>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
-#    print $fh @_[0]."\n";
-#    $fh->close();
+#    open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
+#    print LOG (@_[0]."\n");
+#    close(LOG);
     if ($lh) {
 	return $lh->maketext(@_);
     } else {