--- loncom/interface/loncommon.pm	2001/12/25 21:02:35	1.20
+++ loncom/interface/loncommon.pm	2001/12/28 19:48:42	1.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.20 2001/12/25 21:02:35 www Exp $
+# $Id: loncommon.pm,v 1.22 2001/12/28 19:48:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@
 # 12/11,12/12,12/17 Scott Harrison
 # 12/21 Gerd Kortemeyer
 # 12/21 Scott Harrison
-# 12/25 Gerd Kortemeyer
+# 12/25,12/28 Gerd Kortemeyer
 
 # Makes a table out of the previous attempts
 # Inputs result_from_symbread, user, domain, course_id
@@ -39,10 +39,13 @@
 package Apache::loncommon;
 
 use strict;
+use Apache::lonnet();
 use POSIX qw(strftime);
 use Apache::Constants qw(:common);
 use Apache::lonmsg();
 
+my $readit;
+
 # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;
 my %cprtag;
@@ -50,17 +53,19 @@ my %fe; my %fd;
 my %fc;
 
 # -------------------------------------------------------------- Thesaurus data
-my @therelated=();
-my @theword=();
-my @thecount=();
-my %theindex=();
-my $thetotalcount=0;
+my @therelated;
+my @theword;
+my @thecount;
+my %theindex;
+my $thetotalcount;
 my $thefuzzy=2;
 my $thethreshold=0.1/$thefuzzy;
 my $theavecount;
 
 # ----------------------------------------------------------------------- BEGIN
 BEGIN {
+
+    unless ($readit) {
 # ------------------------------------------------------------------- languages
     {
 	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
@@ -132,6 +137,11 @@ BEGIN {
         }
         $theavecount=$thetotalcount/$#thecount;
     }
+    &Apache::lonnet::logthis(
+              "<font color=yellow>INFO: Read file types and thesaurus</font>");
+    $readit=1;
+}
+
 }
 # ============================================================= END BEGIN BLOCK