--- loncom/homework/optionresponse.pm 2002/06/21 20:36:30 1.41
+++ loncom/homework/optionresponse.pm 2002/08/05 15:55:39 1.45
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.41 2002/06/21 20:36:30 albertel Exp $
+# $Id: optionresponse.pm,v 1.45 2002/08/05 15:55:39 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,7 +63,6 @@ sub start_optionresponse {
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
}
-# if ($target eq 'tex') {$result .= '\begin{enumerate}';}
return $result;
}
@@ -74,16 +73,15 @@ sub end_optionresponse {
&Apache::lonxml::deregister('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
my $result;
if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
-# if ($target eq 'tex') {$result .= '\end{enumerate}';}
return $result;
}
-%Apache::response::foilgroup={};
+%Apache::response::foilgroup=();
sub start_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';
- %Apache::response::foilgroup={};
+ %Apache::response::foilgroup=();
$Apache::optionresponse::conceptgroup=0;
&Apache::response::setrandomnumber();
if ($target eq 'edit') {
@@ -140,7 +138,9 @@ ENDTABLE
$result.=')">';
} # else nothing changed so just use the default mechanism
}
- if ($target eq 'tex') {$result .= '\begin{enumerate}';}
+ if ($target eq 'tex') {
+ $result .= ' \begin{enumerate} ';
+ }
return $result;
}
@@ -273,7 +273,7 @@ sub displayfoils {
my @falselist;
my $result;
my $name;
- $Apache::optionresponse::displayoptionintex=0;
+ my $displayoptionintex=0;
my @whichopt = &whichfoils($max);
my $part=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];
@@ -281,8 +281,6 @@ sub displayfoils {
foreach $name (@whichopt) {
if ($target eq 'web') {
$result.="
";
- } elsif ($target eq 'tex') {
- $result.='\newline';
}
$result .=$Apache::response::foilgroup{$name.'.value'}.
":".$Apache::response::foilgroup{$name.'.text'}."\n";
@@ -307,19 +305,19 @@ sub displayfoils {
."\n".$Apache::response::foilgroup{$name.'.text'}."\n";
$temp++;
} else {
- if ($Apache::optionresponse::displayoptionintex == 0) {
- my $durtyoptionlist = $optionlist;
- $durtyoptionlist =~ s/