version 1.28, 2001/12/13 13:38:14
|
version 1.30, 2001/12/13 13:59:22
|
Line 62 package Apache::lonindexer;
|
Line 62 package Apache::lonindexer;
|
# ------------------------------------------------- modules used by this module |
# ------------------------------------------------- modules used by this module |
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use GDBM_File; |
use GDBM_File; |
Line 79 my $dnum; # directory counter
|
Line 80 my $dnum; # directory counter
|
|
|
# ---------------------------------------------------------------------- BEGIN |
# ---------------------------------------------------------------------- BEGIN |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}. |
|
'/language.tab'); |
|
while(<$fh>) { |
|
$_=~/(\w+)\s+([\w\s\-]+)/; |
|
$language{$1}=$2; |
|
} |
|
} |
} |
|
|
# ----------------------------- Handling routine called via Apache and mod_perl |
# ----------------------------- Handling routine called via Apache and mod_perl |