loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.21, 2004/09/15 21:07:34	version 1.22, 2004/09/16 14:28:19
Line 602 keys $partid.'.'.$respid.'.answer'.	Line 602 keys $partid.'.'.$respid.'.answer'.
#####################################################	#####################################################
sub analyze_problem_as_student {	sub analyze_problem_as_student {
my ($resource,$sname,$sdom,$partid,$respid) = @_;	my ($resource,$sname,$sdom,$partid,$respid) = @_;
	if (ref($resource) ne 'HASH') {
	my $res = $resource;
	$resource = { 'src' => $res->src,
	'symb' => $res->symb,
	'parts' => $res->parts };
	foreach my $part (@{$resource->{'parts'}}) {
	$resource->{'partdata'}->{$part}->{'ResponseIds'}=
	[$res->responseIds($part)];
	}
	}
my $returnvalue;	my $returnvalue;
my $url = $resource->{'src'};	my $url = $resource->{'src'};
my $symb = $resource->{'symb'};	my $symb = $resource->{'symb'};