--- loncom/lonnet/perl/lonnet.pm 2001/12/04 17:00:38 1.181 +++ loncom/lonnet/perl/lonnet.pm 2001/12/05 14:48:28 1.182 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.181 2001/12/04 17:00:38 matthew Exp $ +# $Id: lonnet.pm,v 1.182 2001/12/05 14:48:28 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,8 +60,9 @@ # 10/2 Gerd Kortemeyer # 10/5,10/10,11/13,11/15 Scott Harrison # 11/17,11/20,11/22,11/29 Gerd Kortemeyer +# 12/5 Matthew Hall # -# $Id: lonnet.pm,v 1.181 2001/12/04 17:00:38 matthew Exp $ +# $Id: lonnet.pm,v 1.182 2001/12/05 14:48:28 matthew Exp $ # ### @@ -2691,6 +2692,7 @@ BEGIN { my $config=Apache::File->new("$perlvar{'lonTabDir'}/filetypes.tab"); while (my $configline=<$config>) { + next if (/^\#/); chomp($configline); my ($ending,$emb,@descr)=split(/\s+/,$configline); if ($descr[0] ne '') {