--- loncom/homework/optionresponse.pm 2010/12/19 00:52:00 1.173 +++ loncom/homework/optionresponse.pm 2011/10/08 23:03:42 1.173.2.1 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.173 2010/12/19 00:52:00 raeburn Exp $ +# $Id: optionresponse.pm,v 1.173.2.1 2011/10/08 23:03:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -155,13 +155,9 @@ ENDTABLE splice(@options,$delopt-1,1); $optchanged=1; } - if ($env{"form.$Apache::lonxml::curdepth.options"}) { + if ($env{"form.$Apache::lonxml::curdepth.options"} ne '') { my $newopt = $env{"form.$Apache::lonxml::curdepth.options"}; - if ($options[0]) { - push(@options,$newopt); - } else { - $options[0]=$newopt; - } + push(@options,$newopt); $optchanged=1; } my $rebuildtag = &Apache::edit::get_new_args($token,$parstack,$safeeval,