loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2002/08/14 13:13:37	version 1.16, 2002/08/14 16:18:55
Line 396 sub ProcessTopResourceMap {	Line 396 sub ProcessTopResourceMap {
$beenHere{'o:'.$partId.$currentResourceID}++;	$beenHere{'o:'.$partId.$currentResourceID}++;
if(defined($cache->{'OptionResponses'})) {	if(defined($cache->{'OptionResponses'})) {
$cache->{'OptionResponses'}.= ':::'.	$cache->{'OptionResponses'}.= ':::'.
$currentResourceID.':'.	$currentSequence.':'.$currentResourceID.':'.
$partId.':'.$responseId;	$partId.':'.$responseId;
} else {	} else {
$cache->{'OptionResponses'}= $currentResourceID.	$cache->{'OptionResponses'}= $currentSequence.':'.
':'.$partId.':'.$responseId;	$currentResourceID.':'.
	$partId.':'.$responseId;
}	}
}	}
}	}
Line 692 sub ExtractStudentData {	Line 693 sub ExtractStudentData {
foreach my $part (split(/\:/,$data->{$sequence.':'.	foreach my $part (split(/\:/,$data->{$sequence.':'.
$problemID.	$problemID.
':parts'})) {	':parts'})) {
	$output->{$name.':'.$problemID.':'.$part.':tries'} = 0;
	$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0;
	$output->{$name.':'.$problemID.':'.$part.':code'} = ' ';
$totalProblems++;	$totalProblems++;
}	}
$output->{$name.':'.$problemID.':'.$part.':tries'} = 0;
$output->{$name.':'.$problemID.':'.$part.':awarded'} = 0;
$output->{$name.':'.$problemID.':'.$part.':code'} = ' ';
$output->{$name.':'.$problemID.':NoVersion'} = 'true';	$output->{$name.':'.$problemID.':NoVersion'} = 'true';
next;	next;
}	}