--- loncom/homework/optionresponse.pm 2002/08/05 15:55:39 1.45
+++ loncom/homework/optionresponse.pm 2002/09/26 20:45:00 1.47
@@ -1,7 +1,7 @@
-# The LearningOnline Network with CAPA
+# LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.45 2002/08/05 15:55:39 albertel Exp $
+# $Id: optionresponse.pm,v 1.47 2002/09/26 20:45:00 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -243,7 +243,7 @@ sub whichfoils {
if (&Apache::response::showallfoils()) {
$aopt=0;
} else {
- $aopt=int(rand($#names+1));
+ $aopt=int(&Math::Random::random_uniform() * ($#names+1));
}
&Apache::lonxml::debug("From $#whichopt $max $#names elms, picking $aopt");
$aopt=splice(@names,$aopt,1);
@@ -281,9 +281,16 @@ sub displayfoils {
foreach $name (@whichopt) {
if ($target eq 'web') {
$result.="
";
+ } elsif ($target eq 'tex') {
+ $result.='\vskip 0 mm ';
+ }
+ if ($target ne 'tex') {
+ $result .=$Apache::response::foilgroup{$name.'.value'}.
+ ":".$Apache::response::foilgroup{$name.'.text'}."\n";
+ } else {
+ $result .='\item '.$Apache::response::foilgroup{$name.'.value'}.
+ ":".$Apache::response::foilgroup{$name.'.text'}."\n";
}
- $result .=$Apache::response::foilgroup{$name.'.value'}.
- ":".$Apache::response::foilgroup{$name.'.text'}."\n";
}
} else {
my $temp=1;
@@ -309,15 +316,24 @@ sub displayfoils {
my $texoptionlist = $optionlist;
$texoptionlist =~ s/