--- loncom/lonnet/perl/lonnet.pm 2011/01/18 20:19:29 1.1100 +++ 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.1100 2011/01/18 20:19:29 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) @@ -8932,7 +8933,8 @@ sub symbverify { &symbclean(&declutter($bighash{'map_id_'.$mapid}).'___'.$resid.'___'.$thisfn) eq $symb) { if (($env{'request.role.adv'}) || - $bighash{'encrypted_'.$id} eq $env{'request.enc'}) { + ($bighash{'encrypted_'.$id} eq $env{'request.enc'}) || + ($thisurl eq '/adm/navmaps')) { $okay=1; } }