--- loncom/lonnet/perl/lonnet.pm 2007/03/12 17:07:43 1.847 +++ loncom/lonnet/perl/lonnet.pm 2007/03/14 23:36:10 1.848 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.847 2007/03/12 17:07:43 albertel Exp $ +# $Id: lonnet.pm,v 1.848 2007/03/14 23:36:10 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6176,7 +6176,8 @@ sub packages_tab_default { $do_default=1; } elsif ($pack_type eq 'extension') { push(@extension,[$package,$pack_type,$pack_part]); - } else { + } elsif ($pack_part eq $part) { + # only look at packages defaults for packages that this id is push(@specifics,[$package,$pack_type,$pack_part]); } }