loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

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