loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.113, 2002/11/18 20:59:21	version 1.114, 2002/11/18 21:12:39
Line 2460 sub getNext {	Line 2460 sub getNext {

# Don't remember it if the student doesn't have browse priviledges	# Don't remember it if the student doesn't have browse priviledges
# future note: this may properly belong in the client of the resource	# future note: this may properly belong in the client of the resource
my $browsePriv = &Apache::lonnet::allowed('bre', $self->src);	my $browsePriv = $self->{BROWSE_PRIV};
	if (!defined($browsePriv)) {
	$browsePriv = &Apache::lonnet::allowed('bre', $self->src);
	$self->{BROWSE_PRIV} = $browsePriv;
	}
if (!($browsePriv ne '2' && $browsePriv ne 'F')) {	if (!($browsePriv ne '2' && $browsePriv ne 'F')) {
push @branches, $next;	push @branches, $next;
}	}
Line 2479 sub getPrevious {	Line 2483 sub getPrevious {

# Don't remember it if the student doesn't have browse priviledges	# Don't remember it if the student doesn't have browse priviledges
# future note: this may properly belong in the client of the resource	# future note: this may properly belong in the client of the resource
my $browsePriv = &Apache::lonnet::allowed('bre', $self->src);	my $browsePriv = $self->{BROWSE_PRIV};
	if (!defined($browsePriv)) {
	$browsePriv = &Apache::lonnet::allowed('bre', $self->src);
	$self->{BROWSE_PRIV} = $browsePriv;
	}
if (!($browsePriv ne '2' && $browsePriv ne 'F')) {	if (!($browsePriv ne '2' && $browsePriv ne 'F')) {
push @branches, $prev;	push @branches, $prev;
}	}