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

Diff for /loncom/interface/statistics/lonstathelpers.pm between versions 1.76.2.2 and 1.76.2.3

version 1.76.2.2, 2020/09/01 15:11:02 version 1.76.2.3, 2020/09/07 02:58:25
Line 181  sub problem_selector { Line 181  sub problem_selector {
                     $rowspan = ' rowspan="'.$totalresps.'"';                      $rowspan = ' rowspan="'.$totalresps.'"';
                 }                  }
                 $seq_str .= &Apache::loncommon::start_data_table_row().                  $seq_str .= &Apache::loncommon::start_data_table_row().
                             '<td'.$rowspan.' style="vertical-align:middle">'.                              '<td'.$rowspan.' style="vertical-align:top">'.
                             '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.                              '<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'.
                             $title.'</label>';                              $title.'</label>';
                 my $link = $res->link.'?symb='.&escape($res->shown_symb);                  my $link = $res->link.'?symb='.&escape($res->shown_symb);
Line 197  sub problem_selector { Line 197  sub problem_selector {
                     my $resptype = $response_types[$i];                      my $resptype = $response_types[$i];
                     if ($resptype =~ m/$AcceptedResponseTypes/) {                      if ($resptype =~ m/$AcceptedResponseTypes/) {
                         if ($byres) {                          if ($byres) {
                             unless (exists($partsseen{$part})) {                              if (exists($partsseen{$part})) {
                                   $seq_str .= &Apache::loncommon::continue_data_table_row();
                               } else {
                                 my $parttitle = $part;                                  my $parttitle = $part;
                                 if ($part eq '0') {                                  if ($part eq '0') {
                                     $parttitle = '';                                      $parttitle = '';
Line 209  sub problem_selector { Line 211  sub problem_selector {
                                     $seq_str .= &Apache::loncommon::continue_data_table_row();                                      $seq_str .= &Apache::loncommon::continue_data_table_row();
                                 }                                  }
                                 unless ($partsseen{$part}) {                                  unless ($partsseen{$part}) {
                                     $seq_str .= '<td rowspan="'.scalar(@response_ids).'" style="vertical-align:middle">'.                                      my $resprowspan;
                                       if (scalar(@response_ids) > 1) {
                                           $resprowspan = ' rowspan="'.scalar(@response_ids).'"';
                                       }
                                       $seq_str .= '<td'.$resprowspan.' style="vertical-align:top">'.
                                                 $parttitle.'</td>';                                                  $parttitle.'</td>';
                                     $partsseen{$part} = scalar(@response_ids);                                      $partsseen{$part} = scalar(@response_ids);
                                 }                                  }
Removed from v.1.76.2.2  
changed lines
  Added in v.1.76.2.3

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