[WWcvs] webwork-modperl: (1) problem numbers are left alligned (2) problem

[Arnie P. <ap...@de...>]

Log Message:
-----------
(1) problem numbers are left alligned
(2) problem values are listed
(3) no special message is given if problem value is 0

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator:
        ProblemSet.pm

Revision Data
-------------
Index: ProblemSet.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -u -r1.60 -r1.61
--- lib/WeBWorK/ContentGenerator/ProblemSet.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSet.pm
@@ -278,6 +278,7 @@
 		CGI::th("Name"),
 		CGI::th("Attempts"),
 		CGI::th("Remaining"),
+		CGI::th("Worth"),
 		CGI::th("Status"),
 	);
 	
@@ -365,14 +366,17 @@
 	$status = 'unknown(FIXME)' if $@; # use a blank if problem status was not defined or not numeric.
 	                                  # FIXME  -- this may not cover all cases.
 	
-	my $msg = ($problem->value) ? "" : "(This problem will not count towards your grade.)";
+#	my $msg = ($problem->value) ? "" : "(This problem will not count towards your grade.)";
 	
-	return CGI::Tr(CGI::td({-nowrap=>1, -align=>"center"}, [
-		$interactive,
-		$attempts,
-		$remaining,
-		$status . " " . $msg,
-	]));
+	return CGI::Tr(
+		CGI::td({-nowrap=>1, -align=>"left"},$interactive),
+		CGI::td({-nowrap=>1, -align=>"center"},
+	 		[
+				$attempts,
+				$remaining,
+				$problem->value,
+				$status,
+			]));
 }
 
 1;