| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.122 2004/04/28 15:51:19 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.124 2004/05/06 22:46:13 jj Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 674 | print $self->attemptResults($pg, 1, |
674 | print $self->attemptResults($pg, 1, |
| 675 | $will{showCorrectAnswers}, |
675 | $will{showCorrectAnswers}, |
| 676 | $pg->{flags}->{showPartialCorrectAnswers}, 1, 1); |
676 | $pg->{flags}->{showPartialCorrectAnswers}, 1, 1); |
| 677 | } elsif ($checkAnswers) { |
677 | } elsif ($checkAnswers) { |
| 678 | # print this if user previewed answers |
678 | # print this if user previewed answers |
| 679 | print "ANSWERS ONLY CHECKED -- ",CGI::br(),"ANSWERS NOT RECORDED", CGI::br(); |
679 | print CGI::div({class=>'ResultsWithError'},"ANSWERS ONLY CHECKED -- ",CGI::br(),"ANSWERS NOT RECORDED", CGI::br() ); |
| 680 | print $self->attemptResults($pg, 1, $will{showCorrectAnswers}, 1, 1, 1); |
680 | print $self->attemptResults($pg, 1, $will{showCorrectAnswers}, 1, 1, 1); |
| 681 | # show attempt answers |
681 | # show attempt answers |
| 682 | # show correct answers if asked |
682 | # show correct answers if asked |
| 683 | # show attempt results (correctness) |
683 | # show attempt results (correctness) |
| 684 | # show attempt previews |
684 | # show attempt previews |
| 685 | } elsif ($previewAnswers) { |
685 | } elsif ($previewAnswers) { |
| 686 | # print this if user previewed answers |
686 | # print this if user previewed answers |
| 687 | print "PREVIEW ONLY -- NOT RECORDED",CGI::br(),$self->attemptResults($pg, 1, 0, 0, 0, 1); |
687 | print CGI::div({class=>'ResultsWithError'},"PREVIEW ONLY -- NOT RECORDED"),CGI::br(),$self->attemptResults($pg, 1, 0, 0, 0, 1); |
| 688 | # show attempt answers |
688 | # show attempt answers |
| 689 | # don't show correct answers |
689 | # don't show correct answers |
| 690 | # don't show attempt results (correctness) |
690 | # don't show attempt results (correctness) |
| 691 | # show attempt previews |
691 | # show attempt previews |
| 692 | } |
692 | } |
Parent Directory
| 
Revision Log
| 
Patch