loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.162, 2003/03/20 18:03:14	version 1.163, 2003/03/20 18:38:01
Line 700 sub render_resource {	Line 700 sub render_resource {
$title = "";	$title = "";
}	}

if ($params->{'multipart'} && $params->{'condensed'}) {	if ($params->{'condensed'} && $resource->countParts() > 1) {
$nonLinkedText .= ' (' . $resource->countParts() . ' parts)';	$nonLinkedText .= ' (' . $resource->countParts() . ' parts)';
}	}

Line 2698 sub countParts {	Line 2698 sub countParts {
my $self = shift;	my $self = shift;

my $parts = $self->parts();	my $parts = $self->parts();
	my $delta = 0;
	for my $part (@$parts) {
	if ($part eq '0') { $delta--; }
	}

if ($self->{RESOURCE_ERROR}) {	if ($self->{RESOURCE_ERROR}) {
return 0;	return 0;
}	}

if (scalar(@{$parts}) < 2) { return 1;}	return scalar(@{$parts}) + $delta;

return scalar(@{$parts}) - 1;
}	}

# Private function: Extracts the parts information and saves it	# Private function: Extracts the parts information and saves it