[BACK]Return to lonsurveyreports.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonsurveyreports.pm between versions 1.14 and 1.15

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>'.
Removed from v.1.14  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>