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; |