--- loncom/interface/loncommon.pm	2001/12/17 14:16:35	1.17
+++ loncom/interface/loncommon.pm	2001/12/21 17:03:17	1.18
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.17 2001/12/17 14:16:35 harris41 Exp $
+# $Id: loncommon.pm,v 1.18 2001/12/21 17:03:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -28,6 +28,7 @@
 # YEAR=2001
 # 2/13-12/7 Guy Albertelli
 # 12/11,12/12,12/17 Scott Harrison
+# 12/21 Gerd Kortemeyer
 
 # Makes a table out of the previous attempts
 # Inputs result_from_symbread, user, domain, course_id
@@ -40,13 +41,14 @@ use POSIX qw(strftime);
 use Apache::Constants qw(:common);
 use Apache::lonmsg();
 
+
 my %language;
 my %cprtag;
 my %fe; my %fd;
 my %fc;
 
 # ----------------------------------------------------------------------- BEGIN
-sub BEGIN {
+BEGIN {
 # ------------------------------------------------------------------- languages
     {
 	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.