--- loncom/lonnet/perl/lonnet.pm 2013/07/31 17:37:18 1.1232 +++ loncom/lonnet/perl/lonnet.pm 2013/08/04 02:55:41 1.1233 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1232 2013/07/31 17:37:18 raeburn Exp $ +# $Id: lonnet.pm,v 1.1233 2013/08/04 02:55:41 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9793,21 +9793,21 @@ sub EXT { } return &hreflocation('',$env{'request.filename'}); } - } - if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) { - if ($space eq 'visibleparts') { - my $navmap = Apache::lonnavmaps::navmap->new(); - my $item; - if (ref($navmap)) { - my $res = $navmap->getBySymb($symbparm); - my $parts = $res->parts(); - if (ref($parts) eq 'ARRAY') { - $item = join(',',@{$parts}); + if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) { + if ($space eq 'visibleparts') { + my $navmap = Apache::lonnavmaps::navmap->new(); + my $item; + if (ref($navmap)) { + my $res = $navmap->getBySymb($symbparm); + my $parts = $res->parts(); + if (ref($parts) eq 'ARRAY') { + $item = join(',',@{$parts}); + } + undef($navmap); } - undef($navmap); + return $item; } - return $item; } }