version 1.169.2.7.2.1, 2023/07/10 02:33:06
|
version 1.173, 2013/07/22 18:06:58
|
Line 51 package Apache::lonstudentassessment;
|
Line 51 package Apache::lonstudentassessment;
|
|
|
use strict; |
use strict; |
use Apache::lonstatistics(); |
use Apache::lonstatistics(); |
|
use Apache::lonquickgrades(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
Line 167 sub BuildStudentAssessmentPage {
|
Line 168 sub BuildStudentAssessmentPage {
|
return; |
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')); |
$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 |
# Print out the HTML headers for the interface |
Line 232 sub BuildStudentAssessmentPage {
|
Line 234 sub BuildStudentAssessmentPage {
|
$output_student->($r,$student); |
$output_student->($r,$student); |
} |
} |
# Call the "finish" routine selected above |
# Call the "finish" routine selected above |
|
&Apache::lonquickgrades::endGradeScreen($r); |
$finish->($r); |
$finish->($r); |
# |
# |
return; |
return; |
Line 427 my @OutputOptions =
|
Line 430 my @OutputOptions =
|
|
|
sub OutputDescriptions { |
sub OutputDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= '<h2>'.&mt('Output Formats')."</h2>\n"; |
$Str .= "<h2>Output Formats</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $outputmode (@OutputOptions) { |
foreach my $outputmode (@OutputOptions) { |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
Line 741 NEW_WINDOW_CHECKBOX
|
Line 744 NEW_WINDOW_CHECKBOX
|
length($title) |
length($title) |
)).$padding; |
)).$padding; |
} |
} |
$total_sum_width = length($total_count); |
$total_sum_width = length($total_count)+1; |
if ($total_sum_width < 6) { |
|
$total_sum_width = 6; |
|
} |
|
$Str .= " total</pre>\n"; |
$Str .= " total</pre>\n"; |
$Str .= "<pre>"; |
$Str .= "<pre>"; |
|
|
Line 938 sub html_outputstudent {
|
Line 938 sub html_outputstudent {
|
$score = sprintf("%.2f",$score); |
$score = sprintf("%.2f",$score); |
$score = (' 'x(6-length($score))).$score; |
$score = (' 'x(6-length($score))).$score; |
} |
} |
$max = sprintf("%.2f",$max); |
|
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max; |
$Str .= ' '.' 'x($total_sum_width-length($score)).$score.' / '.$max; |
$Str .= " \n"; |
$Str .= " \n"; |
# |
# |
Line 1104 sub excel_initialize {
|
Line 1103 sub excel_initialize {
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print('<p class="LC_error">'. |
$r->print("<h3>". |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</p>'); |
'</h3>'); |
} |
} |
# |
# |
my $total_columns = scalar(&get_student_fields_to_show()); |
my $total_columns = scalar(&get_student_fields_to_show()); |
Line 1647 sub csv_initialize{
|
Line 1646 sub csv_initialize{
|
&Apache::lonstatistics::selected_sequences_with_assessments(); |
&Apache::lonstatistics::selected_sequences_with_assessments(); |
if (! ref($navmap)) { |
if (! ref($navmap)) { |
# Unable to get data, so bail out |
# Unable to get data, so bail out |
$r->print('<p class="LC_error">'. |
$r->print("<h3>". |
&mt('Unable to retrieve course information.'). |
&mt('Unable to retrieve course information.'). |
'</p>'); |
'</h3>'); |
} |
} |
# |
# |
# Deal with unimplemented requests |
# Deal with unimplemented requests |
Line 1662 sub csv_initialize{
|
Line 1661 sub csv_initialize{
|
.' is not available for non-HTML output.','<b>','</b>') |
.' is not available for non-HTML output.','<b>','</b>') |
.'</p>' |
.'</p>' |
); |
); |
$request_aborted = 1; |
$request_aborted = 1; |
} |
} |
return if ($request_aborted); |
return if ($request_aborted); |
# |
# |
Line 2145 sub student_performance_on_sequence {
|
Line 2144 sub student_performance_on_sequence {
|
} |
} |
if ($randompick) { |
if ($randompick) { |
my @uniquetotals = keys(%ptsfreq); |
my @uniquetotals = keys(%ptsfreq); |
if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { |
if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { |
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; |
$max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; |
} |
} |
} |
} |