--- loncom/homework/optionresponse.pm 2004/07/12 16:19:48 1.114 +++ loncom/homework/optionresponse.pm 2004/07/30 18:45:49 1.117 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.114 2004/07/12 16:19:48 sakharuk Exp $ +# $Id: optionresponse.pm,v 1.117 2004/07/30 18:45:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -453,10 +453,10 @@ sub optionlist_correction { if ($TeXlayout eq 'vertical') { $texoptionlist.=' \vskip 0 mm ', } else { - $texoptionlist.=','; + $texoptionlist.=', '; } } - chop($texoptionlist); + $texoptionlist=~s/, $//; if ($TeXlayout ne 'vertical') {$texoptionlist.='.';} } else { if ($TeXlayout ne 'vertical') {$texoptionlist='\\item [] \\vskip -5 mm';} @@ -649,12 +649,16 @@ sub end_foil { sub start_drawoptionlist { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - return $token->[4]; + if ($target ne 'meta') { + return $token->[4]; + } } sub end_drawoptionlist { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; - return $token->[2]; + if ($target ne 'meta') { + return $token->[2]; + } } sub insert_foil {