--- loncom/interface/loncommon.pm	2003/09/19 15:06:42	1.121
+++ loncom/interface/loncommon.pm	2003/09/20 13:21:45	1.122
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.121 2003/09/19 15:06:42 albertel Exp $
+# $Id: loncommon.pm,v 1.122 2003/09/20 13:21:45 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1664,10 +1664,6 @@ sub preferred_languages {
     return @genlanguages;
 }
 
-sub current_language {
-    return (&preferred_languages)[0];
-}
-
 ###############################################################
 ##               Student Answer Attempts                     ##
 ###############################################################