loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.188, 2003/05/14 18:33:28	version 1.189, 2003/05/14 18:34:44
Line 3201 sub extractParts {	Line 3201 sub extractParts {
my %responseIdHash;	my %responseIdHash;
my %responseTypeHash;	my %responseTypeHash;


	# Init the responseIdHash
	foreach (@{$self->{PARTS}}) {
	$responseIdHash{$_} = [];
	}

# Now, the unfortunate thing about this is that parts, part name, and	# Now, the unfortunate thing about this is that parts, part name, and
# response if are delimited by underscores, but both the part	# response if are delimited by underscores, but both the part
# name and response id can themselves have underscores in them.	# name and response id can themselves have underscores in them.
Line 3221 sub extractParts {	Line 3227 sub extractParts {
if ($parts{$partIdSoFar}) {	if ($parts{$partIdSoFar}) {
my @otherChunks = @partChunks[$i+1..$#partChunks];	my @otherChunks = @partChunks[$i+1..$#partChunks];
my $responseId = join('_', @otherChunks);	my $responseId = join('_', @otherChunks);
if (!defined($responseIdHash{$partIdSoFar})) {
$responseIdHash{$partIdSoFar} = [];
}
push @{$responseIdHash{$partIdSoFar}}, $responseId;	push @{$responseIdHash{$partIdSoFar}}, $responseId;
$responseTypeHash{$partIdSoFar} = $responseType;	$responseTypeHash{$partIdSoFar} = $responseType;
last;	last;