--- loncom/homework/bridgetask.pm 2006/06/12 18:45:35 1.165 +++ loncom/homework/bridgetask.pm 2006/06/12 18:57:20 1.166 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.165 2006/06/12 18:45:35 albertel Exp $ +# $Id: bridgetask.pm,v 1.166 2006/06/12 18:57:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -413,6 +413,35 @@ INFO return $result; } +sub done_screen { + my ($version) = @_; + my $title=&Apache::lonnet::gettitle(); + my @files=split(',',$Apache::lonhomework::history{'resource.'.$version.'.0.bridgetask.portfiles'}); + my (undef,undef,$domain,$user)= &Apache::lonxml::whichuser(); + my $files = ''; + + return <$title +

Files submitted: $files

+

You are now done with this Bridge Task

+
+

Logout

+

Change to a different course

+DONESCREEN + +} + sub start_Task { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; @@ -513,30 +542,7 @@ sub start_Task { } elsif ($status eq 'WAITING_FOR_GRADE') { $msg.='

'.&mt('Your submission is in the grading queue.').'

'; } elsif ($env{'form.donescreen'}) { - my $title=&Apache::lonnet::gettitle(); - my @files=split(',',$Apache::lonhomework::history{'resource.'.$version.'.0.bridgetask.portfiles'}); - my (undef,undef,$domain,$user)= - &Apache::lonxml::whichuser(); - my $files = ''; - - $result.=<$title -

Files submitted: $files

-

You are now done with this Bridge Task

-
-

Logout

-

Change to a different course

-DONESCREEN + $result .= &done_screen(); } elsif ($status ne 'NOT_YET_VIEWED') { $msg.='

'.&mt('Not open to be viewed').'

'; }