| … | |
… | |
| 766 | . scalar @answerNames . " $numIncorrectNoun correct, for a score of $scorePercent."; |
766 | . scalar @answerNames . " $numIncorrectNoun correct, for a score of $scorePercent."; |
| 767 | return CGI::table({-class=>"attemptResults"}, CGI::Tr(\@tableRows)) . ($showSummary ? CGI::p({class=>'emphasis'},$summary) : ""); |
767 | return CGI::table({-class=>"attemptResults"}, CGI::Tr(\@tableRows)) . ($showSummary ? CGI::p({class=>'emphasis'},$summary) : ""); |
| 768 | } |
768 | } |
| 769 | sub nbsp { |
769 | sub nbsp { |
| 770 | my $str = shift; |
770 | my $str = shift; |
| 771 | ($str) ? $str : ' '; # returns non-breaking space for empty strings |
771 | ($str eq '') ? ' ' : $str ; # returns non-breaking space for empty strings |
| 772 | } |
772 | } |
| 773 | sub viewOptions($) { |
773 | sub viewOptions($) { |
| 774 | my $self = shift; |
774 | my $self = shift; |
| 775 | my $displayMode = $self->{displayMode}; |
775 | my $displayMode = $self->{displayMode}; |
| 776 | my %must = %{ $self->{must} }; |
776 | my %must = %{ $self->{must} }; |