loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.181, 2001/12/04 17:00:38	version 1.182, 2001/12/05 14:48:28
Line 60	Line 60
# 10/2 Gerd Kortemeyer	# 10/2 Gerd Kortemeyer
# 10/5,10/10,11/13,11/15 Scott Harrison	# 10/5,10/10,11/13,11/15 Scott Harrison
# 11/17,11/20,11/22,11/29 Gerd Kortemeyer	# 11/17,11/20,11/22,11/29 Gerd Kortemeyer
	# 12/5 Matthew Hall
#	#
# $Id$	# $Id$
#	#
Line 2691 BEGIN {	Line 2692 BEGIN {
my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab");	my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab");

while (my $configline=<$config>) {	while (my $configline=<$config>) {
	next if (/^\#/);
chomp($configline);	chomp($configline);
my ($ending,$emb,@descr)=split(/\s+/,$configline);	my ($ending,$emb,@descr)=split(/\s+/,$configline);
if ($descr[0] ne '') {	if ($descr[0] ne '') {