loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.178, 2003/04/22 17:54:27	version 1.179, 2003/04/22 18:38:47
Line 171 sub real_handler {	Line 171 sub real_handler {

# See if there's only one map in the top-level, if we don't	# See if there's only one map in the top-level, if we don't
# already have a filter... if so, automatically display it	# already have a filter... if so, automatically display it
if (!defined($ENV{'form.filter'})) {	if ($ENV{QUERY_STRING} !~ /filter/) {
my $iterator = $navmap->getIterator(undef, undef, undef, 0);	my $iterator = $navmap->getIterator(undef, undef, undef, 0);
my $depth = 1;	my $depth = 1;
$iterator->next();	$iterator->next();
Line 185 sub real_handler {	Line 185 sub real_handler {
if (ref($curRes) && $curRes->is_sequence()) {	if (ref($curRes) && $curRes->is_sequence()) {
$sequenceCount++;	$sequenceCount++;
$sequenceId = $curRes->map_pc();	$sequenceId = $curRes->map_pc();
}	}

$curRes = $iterator->next();	$curRes = $iterator->next();
}	}
Line 1226 sub render {	Line 1226 sub render {

# Decide what parts to show.	# Decide what parts to show.
if ($curRes->is_problem() && $showParts) {	if ($curRes->is_problem() && $showParts) {
	$curRes->parts();
	$curRes->parts();
@parts = @{$curRes->parts()};	@parts = @{$curRes->parts()};
$args->{'multipart'} = scalar(@parts) > 1;	$args->{'multipart'} = scalar(@parts) > 1;