--- loncom/homework/optionresponse.pm 2004/07/20 13:38:47 1.115 +++ 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.115 2004/07/20 13:38:47 sakharuk Exp $ +# $Id: optionresponse.pm,v 1.117 2004/07/30 18:45:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -456,7 +456,7 @@ sub optionlist_correction { $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 {