--- loncom/interface/statistics/lonstathelpers.pm 2011/07/04 09:25:02 1.67 +++ loncom/interface/statistics/lonstathelpers.pm 2014/02/03 18:49:30 1.72 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstathelpers.pm,v 1.67 2011/07/04 09:25:02 foxr Exp $ +# $Id: lonstathelpers.pm,v 1.72 2014/02/03 18:49:30 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -90,10 +90,10 @@ sub render_resource { my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb); $rendered_problem =~ s/<\s*form\s*/)|<\/nop>|g; - return '
'. - ''. - $rendered_problem. - '
'; + return '
'. + '

'.&mt('Problem').'

'. + ''.$rendered_problem. + '
'; } #################################################### @@ -143,7 +143,7 @@ sub problem_selector { my $Str; my $jsadd=''; if ($onclick) { - $jsadd="onClick='$onclick'"; + $jsadd="onclick='$onclick'"; } $Str = &Apache::loncommon::start_scrollbox(($smallbox?'420px':'620px'), ($smallbox?'400px':'600px'), @@ -716,10 +716,7 @@ sub GetStudentAnswers { # Read in the cache (if it exists) before we start timing things. &Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'}); # Open progress window - my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin - ($r,'Student Answer Compilation Status', - 'Student Answer Compilation Progress', scalar(@$Students), - $status_type,undef,$formname,$inputname); + my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students)); $r->rflush(); foreach my $student (@$Students) { last if ($c->aborted()); @@ -1388,9 +1385,9 @@ sub limit_by_time_form { $Str .= '
'; my $timecheckbox = ''; $Str .= &mt('Start Time: [_1]',$startdateform).'
'; @@ -1492,10 +1489,7 @@ sub gather_full_student_data { my @Students = @Apache::lonstatistics::Students; # # Open the progress window - my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin - ($r,&mt('Student Data Compilation Status'), - &mt('Student Data Compilation Progress'), scalar(@Students), - $status_type,undef,$formname,$inputname); + my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@Students)); # while (my $student = shift @Students) { return if ($c->aborted());