loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.180, 2003/04/22 18:42:47	version 1.181, 2003/04/24 18:18:38
Line 3078 sub extractParts {	Line 3078 sub extractParts {

$self->{PARTS} = [];	$self->{PARTS} = [];

	my %parts;

# Retrieve part count, if this is a problem	# Retrieve part count, if this is a problem
if ($self->is_problem()) {	if ($self->is_problem()) {
my $metadata = &Apache::lonnet::metadata($self->src(), 'packages');	my $metadata = &Apache::lonnet::metadata($self->src(), 'packages');
Line 3089 sub extractParts {	Line 3091 sub extractParts {
foreach (split(/\,/,$metadata)) {	foreach (split(/\,/,$metadata)) {
if ($_ =~ /^part_(.*)$/) {	if ($_ =~ /^part_(.*)$/) {
my $part = $1;	my $part = $1;
	# This floods the logs
	#if (defined($parts{$part})) {
	# Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb());
	# }

# check to see if part is turned off.	# check to see if part is turned off.
if (! Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
push @{$self->{PARTS}}, $1;	if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
	$parts{$part} = 1;
}	}
}	}
}	}


my @sortedParts = sort @{$self->{PARTS}};	my @sortedParts = sort keys %parts;
$self->{PARTS} = \@sortedParts;	$self->{PARTS} = \@sortedParts;
}	}