--- loncom/lonnet/perl/lonnet.pm 2001/08/07 14:54:51 1.142 +++ loncom/lonnet/perl/lonnet.pm 2001/08/07 22:56:06 1.143 @@ -2203,7 +2203,11 @@ if ($readit ne 'done') { while (my $configline=<$config>) { chomp($configline); my ($short,$plain)=split(/:/,$configline); - if ($plain ne '') { $packagetab{$short}=$plain; } + my ($pack,$name)=split(/\&/,$short); + if ($plain ne '') { + $packagetab{$pack.'&'.$name.'&name'}=$name; + $packagetab{$short}=$plain; + } } }