[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.13 and 1.16

version 1.13, 2006/05/30 12:46:50 version 1.16, 2008/09/14 15:16:30
Line 203  sub SurveyProblemSelector { Line 203  sub SurveyProblemSelector {
         if ($env{'form.problemchoice'} eq $value) {          if ($env{'form.problemchoice'} eq $value) {
             $checked = 'checked ';              $checked = 'checked ';
         }          }
         my $link = $problem->{'res'}->src.          my $link = $problem->{'res'}->link.
             '?symb='.&escape($problem->{'res'}->symb);              '?symb='.&escape($problem->{'res'}->shown_symb);
         $Str .= '<tr><td>'.          $Str .= '<tr><td>'.
             '<input type="radio" name="problemchoice" id="'.$id.'" '.              '<input type="radio" name="problemchoice" id="'.$id.'" '.
                    'value="'.$value.'" '.$checked.'/>'.'</td>'.                     'value="'.$value.'" '.$checked.'/>'.'</td>'.
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>'.
Line 615  sub CreateInterface { Line 619  sub CreateInterface {
     $Str .= '<tr>';      $Str .= '<tr>';
     $Str .= '<th>'.&mt('Sections').'</th>';      $Str .= '<th>'.&mt('Sections').'</th>';
     $Str .= '<th>'.&mt('Groups').'</th>';      $Str .= '<th>'.&mt('Groups').'</th>';
     $Str .= '<th>'.&mt('Enrollment Status').'</th>';      $Str .= '<th>'.&mt('Access Status').'</th>';
     $Str .= '<th>'.&mt('Output Format').'</th>';      $Str .= '<th>'.&mt('Output Format').'</th>';
     $Str .= '<th>'.'&nbsp;'.'</th>';      $Str .= '<th>'.'&nbsp;'.'</th>';
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
Removed from v.1.13  
changed lines
  Added in v.1.16

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