--- loncom/homework/bridgetask.pm 2005/11/15 21:41:10 1.78 +++ loncom/homework/bridgetask.pm 2005/11/18 20:29:13 1.79 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.78 2005/11/15 21:41:10 albertel Exp $ +# $Id: bridgetask.pm,v 1.79 2005/11/18 20:29:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -671,7 +671,6 @@ sub get_key_todo { } return (undef,undef) } - sub end_Task { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my $result=''; @@ -779,6 +778,8 @@ DONEBUTTON if ($award eq 'SUBMITTED') { &add_to_queue('gradingqueue',$Apache::inputtags::slot_name); } + } elsif ($Apache::lonhomework::results{'INTERNAL_store'}) { + &Apache::structuretags::finalize_storage(); } if ($target eq 'grade' && $env{'form.webgrade'} eq 'yes') { my $optional_required= @@ -1466,6 +1467,7 @@ sub get_instance { $instance = $instances[($version-1)%scalar(@instances)]; $Apache::lonhomework::results{"resource.$version.0.$dim.instance"} = $instance; + $Apache::lonhomework::results{'INTERNAL_store'} = 1; &Apache::response::poprandomnumber(); return $instance; }