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

[sakharuk]

sakharuk		Wed Apr  2 15:23:52 2003 EDT

  Modified files:              
    /loncom/homework	rankresponse.pm 
  Log:
  Changes have been done to include radiobuttonresponse into on-line exam mode. 
  
  
Index: loncom/homework/rankresponse.pm
diff -u loncom/homework/rankresponse.pm:1.11 loncom/homework/rankresponse.pm:1.12
--- loncom/homework/rankresponse.pm:1.11	Thu Mar 27 11:55:31 2003
+++ loncom/homework/rankresponse.pm	Wed Apr  2 15:23:52 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # rank style response
 #
-# $Id: rankresponse.pm,v 1.11 2003/03/27 16:55:31 sakharuk Exp $
+# $Id: rankresponse.pm,v 1.12 2003/04/02 20:23:52 sakharuk Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -264,7 +264,7 @@
 		    if ($target ne 'tex') {$optionlist.="<option>$option</option>\n";}
 		}
 	    }
-	    if ($target ne 'tex') {
+	    if ($target ne 'tex' && $Apache::lonhomework::type ne 'exam') {
 		$optionlist='<select name="HWVAL_'.
 		    $Apache::inputtags::response[-1].':'.$temp.'">'.
 		        $optionlist."</select>\n";
@@ -273,9 +273,13 @@
 	    }
 	    my $text=$Apache::response::foilgroup{$name.'.text'};
 	    if ($target ne 'tex') {
-		$result.='<br />'.$optionlist.$text."\n";
+		if ($Apache::lonhomework::type ne 'exam') {
+		    $result.='<br />'.$optionlist.$text."\n";
+		} else {
+		    $result.='<br />'.$text."\n";
+		}
 		if ($Apache::lonhomework::type eq 'exam') {
-		    $result.=&Apache::optionresponse::webbubbles(\@alp,\@whichopt);
+		    $result.=&Apache::optionresponse::webbubbles(\@alp,\@whichopt,$temp);
 		}
 	    } else {
 		if ($Apache::lonhomework::type eq 'exam') {