--- loncom/lonnet/perl/lonnet.pm 2000/10/06 22:43:34 1.38 +++ loncom/lonnet/perl/lonnet.pm 2000/10/07 10:09:53 1.39 @@ -1044,11 +1044,25 @@ sub symbread { if ($ids) { # ------------------------------------------------------------------- Has ID(s) my @possibilities=split(/\,/,$ids); - if ($#possibilities==1) { + if ($#possibilities==0) { +# ----------------------------------------------- There is only one possibility my ($mapid,$resid)=split(/\./,$ids); $syval=declutter($bighash{'map_id_'.$mapid}).'___'.$resid; } else { - $syval=''; +# ------------------------------------------ There is more than one possibility + my $realpossible=0; + map { + my $file=$bighash{'src_'.$_}; + if (&allowed('bre',$file)) { + my ($mapid,$resid)=split(/\./,$_); + if ($bighash{'map_type_'.$mapid} ne 'page') { + $realpossible++; + $syval=declutter($bighash{'map_id_'.$mapid}). + '___'.$resid; + } + } + } @possibilities; + if ($realpossible!=1) { $syval=''; } } } untie(%bighash)