--- loncom/lonnet/perl/lonnet.pm 2016/10/23 12:21:47 1.1172.2.84 +++ loncom/lonnet/perl/lonnet.pm 2016/10/30 01:48:38 1.1172.2.85 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1172.2.84 2016/10/23 12:21:47 raeburn Exp $ +# $Id: lonnet.pm,v 1.1172.2.85 2016/10/30 01:48:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6136,9 +6136,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;