--- loncom/homework/randomlabel.pm 2002/02/07 16:45:06 1.13 +++ loncom/homework/randomlabel.pm 2002/02/14 21:37:26 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # random labelling tool # -# $Id: randomlabel.pm,v 1.13 2002/02/07 16:45:06 sakharuk Exp $ +# $Id: randomlabel.pm,v 1.14 2002/02/14 21:37:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -307,6 +307,7 @@ sub start_label { if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || $target eq 'answer') { my $ltext=&Apache::lonxml::get_all_text("/label",$$parser[-1]); + $ltext=&Apache::run::evaluate($ltext,$safeeval,$$parstack[-1]); push(@Apache::randomlabel::label_arr,$ltext); } elsif ($target eq 'edit') { $result.=&Apache::edit::tag_start($target,$token);