version 1.28, 2001/12/13 13:38:14
|
version 1.29, 2001/12/13 13:42:15
|
Line 79 my $dnum; # directory counter
|
Line 79 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 |