version 1.14, 2006/08/18 15:15:38
|
version 1.15, 2007/04/03 20:10:41
|
Line 264 sub compile_student_answers {
|
Line 264 sub compile_student_answers {
|
$data->{'foil_values'}->{$value}++; |
$data->{'foil_values'}->{$value}++; |
if (! exists($data->{'map'}->{$value})) { |
if (! exists($data->{'map'}->{$value})) { |
$data->{'map'}->{$value} = $foil; |
$data->{'map'}->{$value} = $foil; |
|
$data->{'map_fv'}->{$foil} = $value; |
} |
} |
} else { |
} else { |
# Variable stuff (essays, raw numbers, strings) go here |
# Variable stuff (essays, raw numbers, strings) go here |
Line 404 sub make_Excel_report {
|
Line 405 sub make_Excel_report {
|
$worksheet->write_row($rows_output++,0, |
$worksheet->write_row($rows_output++,0, |
\@rowdata,$format->{'h4'}); |
\@rowdata,$format->{'h4'}); |
# |
# |
my @foils = sort(keys(%{$data->{'foil_responses'}})); |
my @foils = sort(keys(%{$respdata->{'_Foils'}})); |
foreach my $foilid (@foils) { |
foreach my $foilid (@foils) { |
my $foil_count = $data->{'foil_count'}->{$foilid}; |
my $foil_count = $data->{'foil_count'}->{$foilid}; |
my $foiltext = $respdata->{'_Foils'}->{$foilid}->{'text'}; |
my $foiltext = $respdata->{'_Foils'}->{$foilid}->{'text'}; |
Line 432 sub make_Excel_report {
|
Line 433 sub make_Excel_report {
|
my @rowdata = ('Foil Name','Foil Text','Frequency'); |
my @rowdata = ('Foil Name','Foil Text','Frequency'); |
$worksheet->write_row($rows_output++,0, |
$worksheet->write_row($rows_output++,0, |
\@rowdata,$format->{'h4'}); |
\@rowdata,$format->{'h4'}); |
foreach my $value (sort(keys(%{$data->{'foil_values'}}))) { |
my @foils = sort(keys(%{$respdata->{'_Foils'}})); |
|
foreach my $foilid (@foils) { |
undef(@rowdata); |
undef(@rowdata); |
my $foilid = $data->{'map'}->{$value}; |
my $value = $data->{'map_fv'}->{$foilid}; |
push(@rowdata,$respdata->{'_Foils'}->{$foilid}->{'name'}); |
push(@rowdata,$respdata->{'_Foils'}->{$foilid}->{'name'}); |
push(@rowdata,$respdata->{'_Foils'}->{$foilid}->{'text'}); |
push(@rowdata,$respdata->{'_Foils'}->{$foilid}->{'text'}); |
push(@rowdata,$data->{'foil_values'}->{$value}); |
push(@rowdata,$data->{'foil_values'}->{$value}); |
Line 512 sub make_HTML_report {
|
Line 514 sub make_HTML_report {
|
&mt('Option'), |
&mt('Option'), |
&mt('Frequency'), |
&mt('Frequency'), |
&mt('Percent'))).'</th></tr>'; |
&mt('Percent'))).'</th></tr>'; |
my @foils = sort(keys(%{$data->{'foil_responses'}})); |
my @foils = sort(keys(%{$ProblemData->{$partid.'.'.$respid}->{'_Foils'}})); |
foreach my $foilid (@foils) { |
foreach my $foilid (@foils) { |
my $prob_data = $ProblemData->{$partid.'.'.$respid}; |
my $prob_data = $ProblemData->{$partid.'.'.$respid}; |
my $foil_count = $data->{'foil_count'}->{$foilid}; |
my $foil_count = $data->{'foil_count'}->{$foilid}; |
Line 544 sub make_HTML_report {
|
Line 546 sub make_HTML_report {
|
my $total = $data->{'_count'}; |
my $total = $data->{'_count'}; |
my $sum = 0; |
my $sum = 0; |
my $tmp; |
my $tmp; |
foreach my $value (sort(keys(%{$data->{'foil_values'}}))) { |
my @foils = sort(keys(%{$ProblemData->{$partid.'.'.$respid} |
|
->{'_Foils'}})); |
|
foreach my $foilid (@foils) { |
|
my $value = $data->{'map_fv'}->{$foilid}; |
my $count = $data->{'foil_values'}->{$value}; |
my $count = $data->{'foil_values'}->{$value}; |
my $foilid = $data->{'map'}->{$value}; |
|
my $foiltext = $ProblemData->{$partid.'.'.$respid}->{'_Foils'}->{$foilid}->{'text'}; |
my $foiltext = $ProblemData->{$partid.'.'.$respid}->{'_Foils'}->{$foilid}->{'text'}; |
my $foilname = $ProblemData->{$partid.'.'.$respid}->{'_Foils'}->{$foilid}->{'name'}; |
my $foilname = $ProblemData->{$partid.'.'.$respid}->{'_Foils'}->{$foilid}->{'name'}; |
$tmp .= '<tr>'. |
$tmp .= '<tr>'. |