| '.&mt('Sections').''. @@ -327,7 +330,7 @@ sub CreateInterface { ' | '; $Str .= ''.&mt('Groups').''. ' | '; - $Str .= ''.&mt('Student Data'). + $Str .= ' | '.&mt('Student Data').''. &Apache::loncommon::help_open_topic("Chart_Student_Data"). ' | '; $Str .= ''.&mt('Access Status').''. @@ -361,10 +364,6 @@ sub CreateInterface { $Str .= &CreateAndParseOutputDataSelector(); $Str .= ' |
' - .&mt('Status:').' ' - .'' - .'
'; $Str .= ''; $Str .= ' 'x5; @@ -431,7 +430,7 @@ my @OutputOptions = sub OutputDescriptions { my $Str = ''; - $Str .= "-The Summary Table (Scores) option is not available for non-HTML output. -
-END + $r->print( + '' + .&mt('The [_1]Summary Table (Scores)[_2] option' + .' is not available for non-HTML output.','','') + .'
' + ); $request_aborted = 1; } return if ($request_aborted); # # Initialize progress window my $studentcount = scalar(@Apache::lonstatistics::Students); - %prog_state=&Apache::lonhtmlcommon::Create_PrgWin - ($r,'CSV File Compilation Status', - 'CSV File Compilation Progress', $studentcount, - 'inline',undef,'Statistics','stats_status'); + %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$studentcount); # # Open a file ($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv'); @@ -1673,7 +1676,7 @@ END # Datestamp my $description = $env{'course.'.$env{'request.course.id'}.'.description'}; print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. - '"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. + '"'.&Apache::loncommon::csv_translate(scalar(&Apache::lonlocal::locallocaltime(time))).'"'. "\n"; print $outputfile '"'. &Apache::loncommon::csv_translate @@ -1713,23 +1716,23 @@ END $sequence_row.='"",'x$count; if ($chosen_output->{'sequence_sum'}) { if($chosen_output->{'correct'}) { - $resource_row .= '"sum",'; + $resource_row .= '"'.&mt('sum').'",'; } else { - $resource_row .= '"score",'; + $resource_row .= '"'.&mt('score').'",'; } } if ($chosen_output->{'sequence_max'}) { $sequence_row.= '"",'; - $resource_row .= '"maximum possible",'; + $resource_row .= '"'.&mt('maximum possible').'",'; } } if ($chosen_output->{'grand_total'}) { $sequence_row.= '"",'; - $resource_row.= '"Total",'; + $resource_row.= '"'.&mt('Total').'",'; } if ($chosen_output->{'grand_maximum'}) { $sequence_row.= '"",'; - $resource_row.= '"Maximum",'; + $resource_row.= '"'.&mt('Maximum').'",'; } chomp($sequence_row); chomp($resource_row); @@ -1770,16 +1773,18 @@ sub csv_outputstudent { my $total = 0; my $maximum = 0; foreach my $seq (@sequences) { + my $randompick = $seq->randompick(); my ($performance,$performance_length,$score,$seq_max,$rawdata); if ($chosen_output->{'tries'}){ ($performance,$performance_length,$score,$seq_max,$rawdata) = &student_tries_on_sequence($student,\%StudentsData, - $navmap,$seq,'no'); + $navmap,$seq,'no',$randompick); } else { ($performance,$performance_length,$score,$seq_max,$rawdata) = &student_performance_on_sequence($student,\%StudentsData, $navmap,$seq,'no', - $chosen_output->{ignore_weight}); + $chosen_output->{ignore_weight}, + $randompick); } if ($chosen_output->{'every_problem'}) { if ($chosen_output->{'correct'}) { @@ -1880,7 +1885,7 @@ Inputs: ####################################################### ####################################################### sub student_tries_on_sequence { - my ($student,$studentdata,$navmap,$seq,$links) = @_; + my ($student,$studentdata,$navmap,$seq,$links,$randompick) = @_; $links = 'no' if (! defined($links)); my $Str = ''; my ($sum,$max) = (0,0); @@ -1966,17 +1971,17 @@ sub student_tries_on_sequence { ($links eq 'all')) { my $link = '/adm/grades'. '?symb='.&escape($resource->shown_symb). - '&student='.$student->{'username'}. - '&userdom='.$student->{'domain'}. - '&command=submission'; + '&student='.$student->{'username'}. + '&userdom='.$student->{'domain'}. + '&command=submission'; $symbol = &link($symbol, $link); } $value .= $symbol; } $Str .= $value; } - if ($seq->randompick()) { - $max = $seq->randompick(); + if ($randompick) { + $max = $randompick; } if (! $hasdata && $sum == 0) { $sum = ' '; @@ -2041,7 +2046,7 @@ Inputs: ####################################################### ####################################################### sub student_performance_on_sequence { - my ($student,$studentdata,$navmap,$seq,$links,$awarded_only) = @_; + my ($student,$studentdata,$navmap,$seq,$links,$awarded_only,$randompick) = @_; $links = 'no' if (! defined($links)); my $Str = ''; # final result string my ($score,$max) = (0,0); @@ -2050,9 +2055,11 @@ sub student_performance_on_sequence { my @ScoreData = (); my $partscore; my $hasdata = 0; # flag, 0 if there were no submissions on the sequence + my %ptsfreq; foreach my $resource (&get_resources($navmap,$seq)) { my $symb = $resource->symb; my $resource_data = $studentdata->{$symb}; + my $resmax = 0; foreach my $part (@{$resource->parts()}) { $partscore = undef; my $weight; @@ -2068,6 +2075,7 @@ sub student_performance_on_sequence { } # $max += $weight; # see the 'excused' branch below... + $resmax += $weight; $performance_length++; # one character per part $symbol = ' '; # default to space # @@ -2121,13 +2129,24 @@ sub student_performance_on_sequence { if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { my $link = '/adm/grades' . '?symb='.&escape($resource->shown_symb). - '&student='.$student->{'username'}. - '&userdom='.$student->{'domain'}. - '&command=submission'; + '&student='.$student->{'username'}. + '&userdom='.$student->{'domain'}. + '&command=submission'; $symbol = &link($symbol, $link); } $Str .= $symbol; } + if ($ptsfreq{$resmax}) { + $ptsfreq{$resmax} ++; + } else { + $ptsfreq{$resmax} = 1; + } + } + if ($randompick) { + my @uniquetotals = keys(%ptsfreq); + if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { + $max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; + } } if (! $hasdata && $score == 0) { $score = ' ';