--- loncom/homework/optionresponse.pm	2002/11/11 15:58:51	1.60
+++ loncom/homework/optionresponse.pm	2002/11/11 20:13:47	1.61
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # option list style responses
 #
-# $Id: optionresponse.pm,v 1.60 2002/11/11 15:58:51 sakharuk Exp $
+# $Id: optionresponse.pm,v 1.61 2002/11/11 20:13:47 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -383,10 +383,7 @@ sub displayfoils {
 	          $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;
 	        }
 	        if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {
-		  $texoptionlist = &texoptionlist_correction($texoptionlist);
-	          $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>|$texoptionlist|;
-	          $result.= $Apache::response::foilgroup{$name.'.text'};
-	        } else {
+	          $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>| \\makebox\[0\.3in\]\[b\]\{\\hrulefill\} |;
 	          $result.= $texoptionlist.$Apache::response::foilgroup{$name.'.text'};
 	        }
 	      } else {
@@ -406,8 +403,7 @@ sub displayfoils {
 		      $Apache::response::foilgroup{$name.'.text'}=~s/\\item/\\item[\\textbf{$Apache::lonxml::counter}\.]/;
 		  }
 	        if ($Apache::response::foilgroup{$name.'.text'}=~/<drawoptionlist\s*\/>/) {
-		  $texoptionlist = &texoptionlist_correction($texoptionlist);
-	          $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>|$texoptionlist|;
+	          $Apache::response::foilgroup{$name.'.text'}=~s|<drawoptionlist\s*/>| \\makebox\[0\.3in\]\[b\]\{\\hrulefill\} |;
 	        }
 		$result.= $Apache::response::foilgroup{$name.'.text'};
 	      } else {
@@ -447,14 +443,6 @@ sub optionlist_correction {
     return $texoptionlist;
 }
 
-
-sub texoptionlist_correction {
-    my $texoptionlist = shift;
-    $texoptionlist =~ s/\\item \[\] Possible answers are:\s*/\\fbox\{/;
-    $texoptionlist =~ s/\.$/}/;
-    return $texoptionlist;
-}
-
 
 sub webbubbles {