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