[WWcvs] webwork-modperl: Added some todo items, and fixed minor bug with the

[jj v. a. <we...@ma...>]

Log Message:
-----------
Added some todo items, and fixed minor bug with the minimum number of
displayModes (it was supposed to be a variable).

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

Revision Data
-------------
Index: Config.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Config.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -Llib/WeBWorK/ContentGenerator/Instructor/Config.pm -Llib/WeBWorK/ContentGenerator/Instructor/Config.pm -u -r1.1 -r1.2
--- lib/WeBWorK/ContentGenerator/Instructor/Config.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/Config.pm
@@ -15,6 +15,12 @@
 ################################################################################
 
 # TODO
+#  convert more html to CGI:: calls
+#  put some formatting in css and in ur.css
+#  add type to deal with boxes around problem text
+#  maybe add a type to deal with files like ur.css and templates (where
+#    a copy of the old file gets created for the course and then the
+#    user can modify it).
 
 # The main package starts lower down.  First we define different
 # types of config objects.
@@ -302,8 +308,8 @@
 	my ($self, $oldval, $newvalsource) = @_;
 	my $varname = $self->{var};
 	my @newvals = $self->convert_newval_source($newvalsource);
-	if(scalar(@newvals) == 0) {
-		$self->{Module}->addbadmessage("You need to select at least one display mode.");
+	if($self->{min} and (scalar(@newvals) < $self->{min})) {
+		$self->{Module}->addbadmessage("You need to select at least $self->{min} display mode.");
 		if($newvalsource =~ /widget/) {
 			return $self->save_string($oldval, 'current'); # try to return the old saved value
 		} else {