[WWcvs] webwork2: add special case for no problems, closing bug #811.

[Sam H. v. a. <we...@ma...>]

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};