--- loncom/localize/lonlocal.pm	2003/09/20 17:04:02	1.8
+++ loncom/localize/lonlocal.pm	2003/09/20 17:44:22	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.8 2003/09/20 17:04:02 www Exp $
+# $Id: lonlocal.pm,v 1.9 2003/09/20 17:44:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,6 +115,7 @@ sub endreroutetrans {
 # ========= Get a handle (do not invoke in vain, leave this to access handlers)
 
 sub get_language_handle {
+    my $r=shift;
     $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
     $r->content_languages(["&current_language()"]);
     my $enc=&current_encoding();