--- loncom/lonnet/perl/lonnet.pm 2016/10/05 21:21:06 1.1327 +++ loncom/lonnet/perl/lonnet.pm 2016/10/30 01:44:24 1.1328 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1327 2016/10/05 21:21:06 raeburn Exp $ +# $Id: lonnet.pm,v 1.1328 2016/10/30 01:44:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6254,9 +6254,11 @@ sub tmpget { if (!defined($server)) { $server = $perlvar{'lonHostID'}; } my $rep=&reply("tmpget:$token",$server); my %returnhash; + if ($rep =~ /^(con_lost|error|no_such_host)/i) { + return %returnhash; + } foreach my $item (split(/\&/,$rep)) { my ($key,$value)=split(/=/,$item); - next if ($key =~ /^error: 2 /); $returnhash{&unescape($key)}=&thaw_unescape($value); } return %returnhash;