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 |
|
|