loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.262, 2004/06/15 15:50:03	version 1.264, 2004/06/29 22:32:11
Line 3246 sub is_sequence {	Line 3246 sub is_sequence {
sub is_survey {	sub is_survey {
my $self = shift();	my $self = shift();
my $part = shift();	my $part = shift();
if ($self->src() =~ /\.(survey)$/) {	if ($self->parmval('type',$part) eq 'survey') {
return 1;	return 1;
}	}
if ($self->parmval('type',$part) eq 'survey') {	if ($self->src() =~ /\.(survey)$/) {
return 1;	return 1;
}	}
return 0;	return 0;
Line 3735 sub extractParts {	Line 3735 sub extractParts {
}	}
}	}
}	}
	my $resorder = &Apache::lonnet::metadata($self->src(),'responseorder');
	if ($resorder) {
	my @resorder=split(/,/,$resorder);
	foreach my $part (keys(%responseIdHash)) {
	my %resids = map { ($_,1) } @{ $responseIdHash{$part} };
	my @neworder;
	foreach my $possibleid (@resorder) {
	if (exists($resids{$possibleid})) {
	push(@neworder,$possibleid);
	}
	}
	$responseIdHash{$part}=\@neworder;
	}
	}
$self->{RESPONSE_IDS} = \%responseIdHash;	$self->{RESPONSE_IDS} = \%responseIdHash;
$self->{RESPONSE_TYPES} = \%responseTypeHash;	$self->{RESPONSE_TYPES} = \%responseTypeHash;
}	}