--- loncom/lonnet/perl/lonnet.pm 2005/05/06 06:45:01 1.635 +++ loncom/lonnet/perl/lonnet.pm 2005/05/25 21:33:35 1.636 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.635 2005/05/06 06:45:01 albertel Exp $ +# $Id: lonnet.pm,v 1.636 2005/05/25 21:33:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4176,6 +4176,7 @@ sub get_userresdata { } elsif ($tmp=~/error: 2 /) { #&EXT_cache_set($udom,$uname); &do_cache_new('userres',$hashid,undef,600); + undef($tmp); # not really an error so don't send it back } return $tmp; } @@ -4650,7 +4651,6 @@ sub metadata { } my ($extension) = ($uri =~ /\.(\w+)$/); foreach my $key (sort(keys(%packagetab))) { - #&logthis("extsion1 $extension $key !!"); #no specific packages #how's our extension if ($key!~/^extension_\Q$extension\E&/) { next; } &metadata_create_package_def($uri,$key,'extension_'.$extension,