--- loncom/interface/loncommon.pm 2001/12/25 21:57:54 1.21
+++ loncom/interface/loncommon.pm 2002/04/23 21:00:01 1.34
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.21 2001/12/25 21:57:54 www Exp $
+# $Id: loncommon.pm,v 1.34 2002/04/23 21:00:01 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,7 +30,9 @@
# 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
+# YEAR=2002
+# 1/4 Gerd Kortemeyer
# Makes a table out of the previous attempts
# Inputs result_from_symbread, user, domain, course_id
@@ -39,10 +41,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;
@@ -61,6 +66,8 @@ my $theavecount;
# ----------------------------------------------------------------------- BEGIN
BEGIN {
+
+ unless ($readit) {
# ------------------------------------------------------------------- languages
{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
@@ -132,8 +139,246 @@ BEGIN {
}
$theavecount=$thetotalcount/$#thecount;
}
+ &Apache::lonnet::logthis(
+ "INFO: Read file types and thesaurus");
+ $readit=1;
+}
+
}
# ============================================================= END BEGIN BLOCK
+###############################################################
+## Home server
'.$_.' '.$servers{$_}."
\n";
+ }
+ return $result;
+}
+###############################################################
+## End of home server
list generating code ##
+###############################################################
+
+###############################################################
+## Authentication changing form generation subroutines ##
+###############################################################
+##
+## All of the authform_xxxxxxx subroutines take their inputs in a
+## hash, and have reasonable default values.
+##
+## formname = the name given in the