loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.89, 2002/10/28 20:48:29	version 1.90, 2002/10/28 21:11:39
Line 1004 sub new_handle {	Line 1004 sub new_handle {
$mapIterator->next();	$mapIterator->next();
$curRes = $mapIterator->next();	$curRes = $mapIterator->next();
my $deltadepth = 0;	my $deltadepth = 0;
	$depth = 1;

my @backgroundColors = ("#FFFFFF", "#F6F6F6");	my @backgroundColors = ("#FFFFFF", "#F6F6F6");
my $rowNum = 0;	my $rowNum = 0;
Line 2053 sub new {	Line 2054 sub new {
if ($self->{DIRECTION} == FORWARD) {	if ($self->{DIRECTION} == FORWARD) {
push @{$self->{BRANCH_STACK}}, $self->{FIRST_RESOURCE};	push @{$self->{BRANCH_STACK}}, $self->{FIRST_RESOURCE};
} else {	} else {
push @{$self->{BRANCH_STACK}), $self->{FINISH_RESOURCE};	push @{$self->{BRANCH_STACK}}, $self->{FINISH_RESOURCE};
}	}
$self->{BRANCH_STACK_SIZE} = 1;	$self->{BRANCH_STACK_SIZE} = 1;

Line 2151 sub next {	Line 2152 sub next {
$self->{ALREADY_SEEN}->{$self->{HERE}->{ID}} = 1;	$self->{ALREADY_SEEN}->{$self->{HERE}->{ID}} = 1;

# Get the next possible resources	# Get the next possible resources
	my $nextUnfiltered;
if ($self->{DIRECTION} == FORWARD()) {	if ($self->{DIRECTION} == FORWARD()) {
my $nextUnfiltered = $self->{HERE}->getNext();	$nextUnfiltered = $self->{HERE}->getNext();
} else {	} else {
my $nextUnfiltered = $self->{HERE}->getPrevious();	$nextUnfiltered = $self->{HERE}->getPrevious();
}	}
my $next = [];	my $next = [];