loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2001/12/17 14:16:35	version 1.18, 2001/12/21 17:03:17
Line 28	Line 28
# YEAR=2001	# YEAR=2001
# 2/13-12/7 Guy Albertelli	# 2/13-12/7 Guy Albertelli
# 12/11,12/12,12/17 Scott Harrison	# 12/11,12/12,12/17 Scott Harrison
	# 12/21 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 40 use POSIX qw(strftime);	Line 41 use POSIX qw(strftime);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsg();


my %language;	my %language;
my %cprtag;	my %cprtag;
my %fe; my %fd;	my %fe; my %fd;
my %fc;	my %fc;

# ----------------------------------------------------------------------- BEGIN	# ----------------------------------------------------------------------- BEGIN
sub BEGIN {	BEGIN {
# ------------------------------------------------------------------- languages	# ------------------------------------------------------------------- languages
{	{
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.	my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.