![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.182, 2001/12/05 14:48:28 | version 1.183, 2001/12/05 21:00:23 |
|---|---|
| Line 2692 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 (/^\#/); | next if ($configline =~ /^\#/); |
| 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 '') { |