--- loncom/lonnet/perl/lonnet.pm 2008/03/22 15:47:41 1.950 +++ loncom/lonnet/perl/lonnet.pm 2008/03/24 04:55:54 1.951 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.950 2008/03/22 15:47:41 raeburn Exp $ +# $Id: lonnet.pm,v 1.951 2008/03/24 04:55:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3962,6 +3962,7 @@ sub tmpget { my %returnhash; foreach my $item (split(/\&/,$rep)) { my ($key,$value)=split(/=/,$item); + next if ($key =~ /^error: 2 /); $returnhash{&unescape($key)}=&thaw_unescape($value); } return %returnhash;