[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.21 and 1.22

version 1.21, 2001/12/25 21:57:54 version 1.22, 2001/12/28 19:48:42
Line 30 Line 30
 # 12/11,12/12,12/17 Scott Harrison  # 12/11,12/12,12/17 Scott Harrison
 # 12/21 Gerd Kortemeyer  # 12/21 Gerd Kortemeyer
 # 12/21 Scott Harrison  # 12/21 Scott Harrison
 # 12/25 Gerd Kortemeyer  # 12/25,12/28 Gerd Kortemeyer
   
 # Makes a table out of the previous attempts  # Makes a table out of the previous attempts
 # Inputs result_from_symbread, user, domain, course_id  # Inputs result_from_symbread, user, domain, course_id
Line 39 Line 39
 package Apache::loncommon;  package Apache::loncommon;
   
 use strict;  use strict;
   use Apache::lonnet();
 use POSIX qw(strftime);  use POSIX qw(strftime);
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonmsg();  use Apache::lonmsg();
   
   my $readit;
   
 # ----------------------------------------------- Filetypes/Languages/Copyright  # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;  my %language;
 my %cprtag;  my %cprtag;
Line 61  my $theavecount; Line 64  my $theavecount;
   
 # ----------------------------------------------------------------------- BEGIN  # ----------------------------------------------------------------------- BEGIN
 BEGIN {  BEGIN {
   
       unless ($readit) {
 # ------------------------------------------------------------------- languages  # ------------------------------------------------------------------- languages
     {      {
  my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.   my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
Line 132  BEGIN { Line 137  BEGIN {
         }          }
         $theavecount=$thetotalcount/$#thecount;          $theavecount=$thetotalcount/$#thecount;
     }      }
       &Apache::lonnet::logthis(
                 "<font color=yellow>INFO: Read file types and thesaurus</font>");
       $readit=1;
   }
   
 }  }
 # ============================================================= END BEGIN BLOCK  # ============================================================= END BEGIN BLOCK
   
Removed from v.1.21  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>