[LON-CAPA-cvs] cvs: loncom /homework hint.pm

[albertel]

albertel		Fri May  9 16:44:54 2003 EDT

  Modified files:              
    /loncom/homework	hint.pm 
  Log:
  - <radiobuttonhint> supports multiple foils/concepts in single hint condition
  
  
Index: loncom/homework/hint.pm
diff -u loncom/homework/hint.pm:1.41 loncom/homework/hint.pm:1.42
--- loncom/homework/hint.pm:1.41	Fri Apr 18 03:53:15 2003
+++ loncom/homework/hint.pm	Fri May  9 16:44:54 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # implements the tags that control the hints
 #
-# $Id: hint.pm,v 1.41 2003/04/18 07:53:15 albertel Exp $
+# $Id: hint.pm,v 1.42 2003/05/09 20:44:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -348,13 +348,25 @@
 	my $response = $Apache::lonhomework::history{
 			    "resource.$part_id.submission"};
 	($response)=&Apache::lonnet::str2hash($response);
-	if ($answer[0] eq 'foil' && $response eq $answer[1]) {
-	    push (@Apache::hint::which,$name);
+	&Apache::lonxml::debug("response is $response");
+	
+	if ($answer[0] eq 'foil') {
+	    shift(@answer);
+	    foreach my $answer (@answer) {
+		if ($response eq $answer) {
+		    push (@Apache::hint::which,$name);
+		    last;
+		}
+	    }
 	} elsif ($answer[0] eq 'concept') {
-	    if (ref($Apache::hint::radiobutton{"$part_id.concept.".$answer[1]})) {
-		my @names=@{ $Apache::hint::radiobutton{"$part_id.concept.".$answer[1]} };
-		if (grep(/^\Q$response\E$/,@names)) {
-		    push(@Apache::hint::which,$name);
+	    shift(@answer);
+	    foreach my $answer (@answer) {
+		if (ref($Apache::hint::radiobutton{"$part_id.concept.".$answer})) {
+		    my @names=@{ $Apache::hint::radiobutton{"$part_id.concept.".$answer} };
+		    if (grep(/^\Q$response\E$/,@names)) {
+			push(@Apache::hint::which,$name);
+			last;
+		    }
 		}
 	    }
 	}