loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.86, 2002/10/24 19:10:07	version 1.87, 2002/10/28 13:58:58
Line 2922 sub getNext {	Line 2922 sub getNext {

sub getPrevious {	sub getPrevious {
my $self = shift;	my $self = shift;
my @alreadySeen = shift;	my $alreadySeenHash = shift;
my @branches;	my @branches;
my $from = $self->from();	my $from = $self->from();
foreach my $branch ( split /,/, $from) {	foreach my $branch ( split /,/, $from) {
Line 2934 sub getPrevious {	Line 2934 sub getPrevious {
# browse privs	# browse privs
my $browsePriv = &Apache::lonnet::allowed('bre', $self->src);	my $browsePriv = &Apache::lonnet::allowed('bre', $self->src);
if (!defined($alreadySeenHash) \|\|	if (!defined($alreadySeenHash) \|\|
!defined($alreadySeenHash->{$next->{ID}}) \|\|	!defined($alreadySeenHash->{$prev->{ID}}) \|\|
($browsePriv ne '2' && $browsePriv ne 'F')) {	($browsePriv ne '2' && $browsePriv ne 'F')) {
push @branches, $next;	push @branches, $prev;
}	}
}	}
return \@branches;	return \@branches;