--- loncom/homework/bridgetask.pm 2006/11/09 17:50:51 1.197 +++ loncom/homework/bridgetask.pm 2006/11/09 20:20:18 1.198 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.197 2006/11/09 17:50:51 albertel Exp $ +# $Id: bridgetask.pm,v 1.198 2006/11/09 20:20:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1055,10 +1055,8 @@ DONEBUTTON my %counts = &get_counts($dim,undef,$parstack, $safeeval); $status.="\n

". - &mt('You needed to pass all of the [_1] mandatory components and [_2] of the [_3] optional components, of which you passed [_4].', - $counts{'man'},$counts{'opt_req'}, - $counts{'opt'},$counts{'opt_passed'}). - "

\n"; + &question_status_message(\%counts,-1). + "

\n"; foreach my $id (@{$dimension{$dim}{'criterias'}}) { @@ -2351,7 +2349,7 @@ sub end_Dimension { return $result; } -sub status_message { +sub question_status_message { my ($counts,$depth) = @_; my %req = ('man' => 'mandatory', 'opt' => 'optional',);