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"> |