--- loncom/lonnet/perl/lonnet.pm 2016/01/26 20:17:53 1.1298 +++ loncom/lonnet/perl/lonnet.pm 2016/01/31 16:40:22 1.1299 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1298 2016/01/26 20:17:53 raeburn Exp $ +# $Id: lonnet.pm,v 1.1299 2016/01/31 16:40:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1559,7 +1559,7 @@ sub idget { my %servers = &get_servers($udom,'library'); foreach my $tryserver (keys(%servers)) { - my $idlist=join('&',@ids); + my $idlist=join('&', map { &escape($_); } @ids); $idlist=~tr/A-Z/a-z/; my $reply=&reply("idget:$udom:".$idlist,$tryserver); my @answer=(); @@ -1569,7 +1569,7 @@ sub idget { my $i; for ($i=0;$i<=$#ids;$i++) { if ($answer[$i]) { - $returnhash{$ids[$i]}=$answer[$i]; + $returnhash{$ids[$i]}=&unescape($answer[$i]); } } }