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 {
|
