--- loncom/lonnet/perl/lonnet.pm 2011/01/21 12:08:28 1.1101 +++ loncom/lonnet/perl/lonnet.pm 2011/01/22 00:46:15 1.1102 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1101 2011/01/21 12:08:28 raeburn Exp $ +# $Id: lonnet.pm,v 1.1102 2011/01/22 00:46:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8918,8 +8918,9 @@ sub symbverify { $thisurl =~ s/\?.+$//; } my $ids=$bighash{'ids_'.&clutter($thisurl)}; - unless ($ids) { - $ids=$bighash{'ids_/'.$thisurl}; + unless ($ids) { + my $idkey = 'ids_'.($thisurl =~ m{^/}? '' : '/').$thisurl; + $ids=$bighash{$idkey}; } if ($ids) { # ------------------------------------------------------------------- Has ID(s)