loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.25, 2005/07/13 20:25:12	version 1.26, 2005/07/13 21:21:01
Line 2095 sub parse_webct4_questionDB {	Line 2095 sub parse_webct4_questionDB {
$$settings{$id}{$numid}{toltype} = $attr->{type};	$$settings{$id}{$numid}{toltype} = $attr->{type};
}	}
if ("@state" eq "questestinterop section item resprocessing itemproc_extension webct:x_webct_v01_autocalculate webct:x_webct_v01_unit") {	if ("@state" eq "questestinterop section item resprocessing itemproc_extension webct:x_webct_v01_autocalculate webct:x_webct_v01_unit") {
my $unitid = $attr->{ident};	$unitid = $attr->{ident};
%{$$settings{$id}{$numid}{$unitid}} = ();	%{$$settings{$id}{$numid}{$unitid}} = ();
push(@{$$settings{$id}{$numid}{units}},$unitid);	push(@{$$settings{$id}{$numid}{units}},$unitid);
$$settings{$id}{$numid}{$unitid}{value} = $attr->{value};	$$settings{$id}{$numid}{$unitid}{value} = $attr->{value};
Line 3323 sub write_webct4_questions {	Line 3323 sub write_webct4_questions {
}	}
my $unitentry = '';	my $unitentry = '';
if ($unit ne '') {	if ($unit ne '') {
$unitentry = 'unit='.$unit;	$unitentry = 'unit="'.$unit.'"';
}	}
$output .= qq\|	$output .= qq\|
<numericalresponse $unitentry $ansformat answer="\$answervar">	<numericalresponse $unitentry $ansformat answer="\$answervar">