--- loncom/interface/statistics/lonstudentassessment.pm 2024/07/02 14:19:01 1.169.2.8 +++ loncom/interface/statistics/lonstudentassessment.pm 2013/04/11 16:23:36 1.172 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.169.2.8 2024/07/02 14:19:01 raeburn Exp $ +# $Id: lonstudentassessment.pm,v 1.172 2013/04/11 16:23:36 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,7 @@ package Apache::lonstudentassessment; use strict; use Apache::lonstatistics(); +use Apache::lonquickgrades(); use Apache::lonhtmlcommon(); use Apache::loncommon(); use Apache::loncoursedata; @@ -167,6 +168,7 @@ sub BuildStudentAssessmentPage { return; } $r->print(&Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data')); + &Apache::lonquickgrades::startGradeScreen($r,'chart'); # # Print out the HTML headers for the interface @@ -232,6 +234,7 @@ sub BuildStudentAssessmentPage { $output_student->($r,$student); } # Call the "finish" routine selected above + &Apache::lonquickgrades::endGradeScreen($r); $finish->($r); # return; @@ -427,7 +430,7 @@ my @OutputOptions = sub OutputDescriptions { my $Str = ''; - $Str .= '<h2>'.&mt('Output Formats')."</h2>\n"; + $Str .= "<h2>Output Formats</h2>\n"; $Str .= "<dl>\n"; foreach my $outputmode (@OutputOptions) { $Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; @@ -741,10 +744,7 @@ NEW_WINDOW_CHECKBOX length($title) )).$padding; } - $total_sum_width = length($total_count); - if ($total_sum_width < 6) { - $total_sum_width = 6; - } + $total_sum_width = length($total_count)+1; $Str .= " total</pre>\n"; $Str .= "<pre>"; @@ -938,7 +938,6 @@ sub html_outputstudent { $score = sprintf("%.2f",$score); $score = (' 'x(6-length($score))).$score; } - $max = sprintf("%.2f",$max); $Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max; $Str .= " \n"; # @@ -1104,9 +1103,9 @@ sub excel_initialize { &Apache::lonstatistics::selected_sequences_with_assessments(); if (! ref($navmap)) { # Unable to get data, so bail out - $r->print('<p class="LC_error">'. + $r->print("<h3>". &mt('Unable to retrieve course information.'). - '</p>'); + '</h3>'); } # my $total_columns = scalar(&get_student_fields_to_show()); @@ -1122,8 +1121,8 @@ sub excel_initialize { my $too_many_cols_error_message = '<h2>'.&mt('Unable to Complete Request').'</h2>'.$/. '<p class="LC_warning">'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'</p>'.$/. - '<p>'.&mt('You may consider reducing the number of [_1]Sequences or Folders[_2] you have selected.','<b>','</b>').'</p>'.$/. - '<p>'.&mt('LON-CAPA can produce [_1]CSV[_2] files of this data or Excel files of the [_1]Scores Summary[_2] data.','<b>','</b>').'</p>'.$/; + '<p>'.&mt('You may consider reducing the number of <b>Sequences or Folders</b> you have selected.').'</p>'.$/. + '<p>'.&mt('LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the <b>Scores Summary</b> data.').'</p>'.$/; if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) { $r->print($too_many_cols_error_message); $request_aborted = 1; @@ -1647,9 +1646,9 @@ sub csv_initialize{ &Apache::lonstatistics::selected_sequences_with_assessments(); if (! ref($navmap)) { # Unable to get data, so bail out - $r->print('<p class="LC_error">'. + $r->print("<h3>". &mt('Unable to retrieve course information.'). - '</p>'); + '</h3>'); } # # Deal with unimplemented requests @@ -1662,7 +1661,7 @@ sub csv_initialize{ .' is not available for non-HTML output.','<b>','</b>') .'</p>' ); - $request_aborted = 1; + $request_aborted = 1; } return if ($request_aborted); # @@ -2145,7 +2144,7 @@ sub student_performance_on_sequence { } if ($randompick) { my @uniquetotals = keys(%ptsfreq); - if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { + if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { $max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; } }