Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.50 and 1.53

version 1.50, 2008/10/30 17:45:25 version 1.53, 2008/12/12 10:01:30
Line 265  sub prepare_html_output { Line 265  sub prepare_html_output {
                     $headers{'response'} .=                      $headers{'response'} .=
                         '<th colspan="'.scalar(@headers).'">'.                          '<th colspan="'.scalar(@headers).'">'.
                         &mt('Response [_1]',$responses->[$i]).'</th>';                          &mt('Response [_1]',$responses->[$i]).'</th>';
                     $headers{'student'}.= '<th>'.join('</th><th><nobr>',                      $headers{'student'}.= '<th><span class="LC_nobreak">'.
                                             join('</span></th><th><span class="LC_nobreak">',
                                                       @headers).                                                        @headers).
                                                           '</nobr></th>';                                                            '</span></th>';
                 }                  }
             }              }
             if ($part_span == 0) {              if ($part_span == 0) {
Line 284  sub prepare_html_output { Line 285  sub prepare_html_output {
                 $headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>};                  $headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>};
                 $nonempty_part_headers = 1;                  $nonempty_part_headers = 1;
             } else {              } else {
                 $headers{'part'} .= qq{<th colspan="$part_span">&nbsp</th>};                  $headers{'part'} .= qq{<th colspan="$part_span">&nbsp;</th>};
             }              }
             $prob_span += $part_span;              $prob_span += $part_span;
         }          }
Line 501  sub html_essay_results { Line 502  sub html_essay_results {
         if (defined($respid)) {          if (defined($respid)) {
             $id .= ' '.$respid;              $id .= ' '.$respid;
         }          }
         $Str .= '<nobr>'.$id.'</nobr>'.('&nbsp;'x4);          $Str .= '<span class="LC_nobreak">'.$id.'</span>'.('&nbsp;'x4);
     }      }
     #      #
     shift(@$headers); # Get rid of the Submission header      shift(@$headers); # Get rid of the Submission header
Line 510  sub html_essay_results { Line 511  sub html_essay_results {
         $correct = &html_format_essay_sub($response->{'Correct'});          $correct = &html_format_essay_sub($response->{'Correct'});
         shift(@$headers);          shift(@$headers);
     }      }
     $Str .= '<nobr>'.      $Str .= '<span class="LC_nobreak">'.
         join('',          join('',
              map {               map {
                  ('&nbsp;'x4).&mt($_.': [_1]',$response->{$_});                   ('&nbsp;'x4).&mt($_.': [_1]',$response->{$_});
              } @$headers).'</nobr>';               } @$headers).'</span>';
     if (@$headers || ! $single_response) {      if (@$headers || ! $single_response) {
         $Str .= '<br />';          $Str .= '<br />';
     }      }
Line 567  sub html_non_essay_results { Line 568  sub html_non_essay_results {
     if ($resptype eq 'radiobutton') {      if ($resptype eq 'radiobutton') {
         $submission = &HTML::Entities::encode($submission,'<>&"');          $submission = &HTML::Entities::encode($submission,'<>&"');
         $submission =~ s/=([^=])$//;          $submission =~ s/=([^=])$//;
         $submission = '<nobr>'.$submission.'</nobr>';          $submission = '<span class="LC_nobreak">'.$submission.'</span>';
     }      }
     $response->{'Submission'} = $submission;      $response->{'Submission'} = $submission;
     #      #
Line 1166  sub CreateInterface { Line 1167  sub CreateInterface {
                     '<input type="text" name="stats_status"'                      '<input type="text" name="stats_status"'
                    .' size="60" value="" readonly="readonly" />')                     .' size="60" value="" readonly="readonly" />')
            .'</span></p>';             .'</span></p>';
       $Str .= '</p>';
     ##      ##
     return $Str;      return $Str;
 }  }

Removed from v.1.50  
changed lines
  Added in v.1.53


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