--- loncom/homework/bridgetask.pm 2006/06/23 22:32:39 1.178 +++ loncom/homework/bridgetask.pm 2006/06/28 21:46:53 1.180 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.178 2006/06/23 22:32:39 albertel Exp $ +# $Id: bridgetask.pm,v 1.180 2006/06/28 21:46:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -372,6 +372,8 @@ sub nested_parse { @Apache::scripttag::parser_env = @old_env; if ($args->{'delayed_dim_results'}) { my $dim = &get_dim_id(); + &Apache::lonxml::debug(" tossing out $result "); + &Apache::lonxml::debug(" usining out $dim 's ". $dimension{$dim}{'result'}); return $dimension{$dim}{'result'}; } return $result; @@ -530,8 +532,8 @@ sub start_Task { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my ($status,$accessmsg,$slot); + &Apache::structuretags::init_problem_globals('Task'); if ($target ne 'webgrade') { - &Apache::structuretags::init_problem_globals('Task'); &Apache::structuretags::initialize_storage(); &Apache::lonhomework::showhash(%Apache::lonhomework::history); if ($env{'request.state'} eq 'construct') { @@ -1221,6 +1223,7 @@ DONEBUTTON $result.=&Apache::response::meta_stores_write('status','string', 'Bridge Task Status'); } + &Apache::structuretags::reset_problem_globals('Task'); undef($Apache::lonhomework::parsing_a_task); return $result; } @@ -2220,8 +2223,8 @@ sub get_criteria { &nested_parse(\$dimension{$dim}{$instance.'.text'},[@_]); $result.= &nested_parse(\$dimension{$dim}{'questiontext'},[@_], - {'set_dim_id' => undef, - 'delay_dim_results' => 1}); + {'set_dim_id' => undef, + 'delayed_dim_results' => 1}); foreach my $id (@{$dimension{$dim}{$instance.'.criterias'}}, @{$dimension{$dim}{'criterias'}} ) { my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; @@ -2258,7 +2261,7 @@ sub get_criteria { $result.=&grading_history($version,$dim,$id); $last_link=$link; } - if (&delay_result()) { + if (&nest()) { &Apache::lonxml::debug(" for $dim stashing results into ".$dimension{$dim}{'nested'}); $dimension{$dimension{$dim}{'nested'}}{'result'}.=$result; undef($result);