--- loncom/homework/lonhomework.pm 2004/04/17 14:06:41 1.174 +++ loncom/homework/lonhomework.pm 2004/05/25 21:25:53 1.175 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.174 2004/04/17 14:06:41 www Exp $ +# $Id: lonhomework.pm,v 1.175 2004/05/25 21:25:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -440,7 +440,6 @@ sub analyze_header {

- '.&mt('List of possible answers').': '; &Apache::lonxml::add_messages(\$result); $request->print($result); @@ -465,7 +464,8 @@ sub analyze { my %prog_state= &Apache::lonhtmlcommon::Create_PrgWin($request,&mt('Analyze Progress'), &mt('Getting Problem Variants'), - $ENV{'form.numtoanalyze'}); + $ENV{'form.numtoanalyze'}, + 'inline',undef); for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { &Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state, &mt('last problem')); @@ -490,6 +490,7 @@ sub analyze { } &Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state, &mt('Analyzing Results')); + $request->print('
'.&mt('List of possible answers').': '); foreach my $part (sort(keys(%allparts))) { if (defined(@{ $overall{$part.'.answer'} })) { my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] });