--- loncom/homework/radiobuttonresponse.pm 2011/09/16 23:14:28 1.148.2.1
+++ loncom/homework/radiobuttonresponse.pm 2011/08/26 22:40:17 1.150
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# mutliple choice style responses
#
-# $Id: radiobuttonresponse.pm,v 1.148.2.1 2011/09/16 23:14:28 raeburn Exp $
+# $Id: radiobuttonresponse.pm,v 1.150 2011/08/26 22:40:17 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -561,7 +561,6 @@ sub whichfoils {
}
$answer=int(&Math::Random::random_uniform() * ($#whichfalse+$inc))
+ $topcount;
-
}
}
&Apache::lonxml::debug("Answer now wants $answer");
@@ -820,6 +819,9 @@ sub end_foil {
&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
$name=$Apache::lonxml::curdepth;
}
+ if ($name eq "0") {
+ &Apache::lonxml::error(&mt('Foil name [_1] is not supported. Please choose another name.',''.$name.''));
+ }
if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt('Foil name [_1] appears more than once. Foil names need to be unique.',''.$name.''));
}