Log Message:
-----------
add special case for no problems, closing bug #811.
Modified Files:
--------------
webwork2/lib/WeBWorK/ContentGenerator:
ProblemSet.pm
Revision Data
-------------
Index: ProblemSet.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -u -r1.63 -r1.64
--- lib/WeBWorK/ContentGenerator/ProblemSet.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSet.pm
@@ -286,23 +286,28 @@
print CGI::p(CGI::a({href=>$hardcopyURL}, "Download a hardcopy of this homework set."));
- print CGI::start_table();
- print CGI::Tr(
- CGI::th("Name"),
- CGI::th("Attempts"),
- CGI::th("Remaining"),
- CGI::th("Worth"),
- CGI::th("Status"),
- );
-
my @problemNumbers = $db->listUserProblems($effectiveUser, $setName);
- foreach my $problemNumber (sort { $a <=> $b } @problemNumbers) {
- my $problem = $db->getMergedProblem($effectiveUser, $setName, $problemNumber); # checked
- die "problem $problemNumber in set $setName for user $effectiveUser not found." unless $problem;
- print $self->problemListRow($set, $problem);
- }
- print CGI::end_table();
+ if (@problemNumbers) {
+ print CGI::start_table();
+ print CGI::Tr(
+ CGI::th("Name"),
+ CGI::th("Attempts"),
+ CGI::th("Remaining"),
+ CGI::th("Worth"),
+ CGI::th("Status"),
+ );
+
+ foreach my $problemNumber (sort { $a <=> $b } @problemNumbers) {
+ my $problem = $db->getMergedProblem($effectiveUser, $setName, $problemNumber); # checked
+ die "problem $problemNumber in set $setName for user $effectiveUser not found." unless $problem;
+ print $self->problemListRow($set, $problem);
+ }
+
+ print CGI::end_table();
+ } else {
+ print CGI::p("This homework set contains no problems.");
+ }
## feedback form
#my $ce = $self->{ce};
|
