loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.105, 2004/03/25 16:55:16
+version 1.106, 2004/04/16 22:25:13
  Line 284  sub displayanswers {
    return $result;
  }
+ sub check_for_invalid {
+     my ($names,$options) = @_;
+     my %bad_names;
+     foreach my $name (@{ $names }) {
+ 	my $value=$Apache::response::foilgroup{$name.'.value'};
+ 	my $found=0;
+ 	foreach my $option (@{ $options }) {
+ 	    if ($value eq $option) { $found=1; }
+ 	}
+ 	if (!$found) { $bad_names{$name}=$value; }
+     }
+     if (%bad_names) {
+ 	my $error=&mt('The question can not be gotten correct, '.
+ 	    'the following foils in the &lt;optionresponse&gt; '.
+ 	    'have invalid correct options').' <br /><tt>'.
+ 	    join('<br />',(map { $_=&mt("[_1] with value [_2]",$_,$bad_names{$_}) } (keys(%bad_names)))).
+ 	    "</tt>";
+ 	&Apache::lonxml::error($error);
+     }
+ }
  sub displayfoils {
    my ($target,$max,$randomize,@opt)=@_;
    if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;}
- Line 295  sub displayfoils {
+ Line 316  sub displayfoils {
    my $displayoptionintex=1;
    my @alphabet = ('A'..'Z');
    my @whichopt = &whichfoils($max,$randomize);
+   &check_for_invalid(\@whichopt,\@opt);
    my $part=$Apache::inputtags::part;
    my $id=$Apache::inputtags::response[-1];
    my $break;