| '.
- ' |
| '.&mt('Concept Number').' | '. - ''.&mt('Concept').' | '. - ''.&mt('Foil Number').' | '. - ''.&mt('Foil Name').' | '. - ''.&mt('Foil Text').' | '. - ''.&mt('Correct Value').' | '. - "
|---|---|---|---|---|---|
| '.&mt('Foil Number').' | '. - ''.&mt('Foil Name').' | '. - ''.&mt('Foil Text').' | '. - ''.&mt('Correct Value').' | '. - "||
| '.$conceptindex.' | '. - ''.$concept->{'name'}.' | '. - ''.$foilindex++.' | '. - ''.$Foildata{$firstfoil}->{'name'}.' | '. - ''.$Foildata{$firstfoil}->{'text'}.' | '. - ''.$Foildata{$firstfoil}->{'value'}.' | '. - "
| '.$foilindex++.' | '. - ''.$Foildata{$firstfoil}->{'name'}.' | '. - ''.$Foildata{$firstfoil}->{'text'}.' | '. - ''.$Foildata{$firstfoil}->{'value'}.' | '. - "||
| '. - ' | '. - ' | '.$foilindex.' | '. - ''.$Foildata{$foilid}->{'name'}.' | '. - ''.$Foildata{$foilid}->{'text'}.' | '. - ''.$Foildata{$foilid}->{'value'}.' | '. - "
| '.$foilindex.' | '. - ''.$Foildata{$foilid}->{'name'}.' | '. - ''.$Foildata{$foilid}->{'text'}.' | '. - ''.$Foildata{$foilid}->{'value'}.' | '. - "
| '. - (' 'x4).' | '. - ''.$option.' | '. - "
| '. + ''.$title.' (N='.$N.')'. + ''. + ' | ||
| '.$min.' | '. + ''.$plotresult.' | '. + ''.$max.' | '. + '
| '. + 'Maximum Number of Coinciding Values: '.$max_y. + ' | ||
| '.$concept_plot.' | '. + ''.$choice_plot.' | '; + if ($stacked_plot ne '') { + $analysis_html .= + ''.$stacked_plot.' | '. + ''.&build_foil_key($foils,$count_by_foil).' | '; + } else { + $analysis_html .= (''x2); + } + $analysis_html.=' |
| '.$correctgraph.' | '; - ## - ## - for (my $i=0; $i< scalar(@{$Datasets[0]});$i++) { - $Datasets[0]->[$i]=0; + } + return %Partdata; +} + +=cut + +######################################################### +######################################################### +## +## Option Response Routines +## +######################################################### +######################################################### +sub OptionResponseAnalysis { + my ($r,$problem,$problem_data,$Students) = @_; + my ($resource,$respid) = ($problem->{'resource'}, + $problem->{'respid'}); + # Note: part data is not needed. + my $PerformanceData = &Apache::loncoursedata::get_response_data + (\@Apache::lonstatistics::SelectedSections, + $Apache::lonstatistics::enrollment_status, + $resource->{'symb'},$respid); + if (! defined($PerformanceData) || + ref($PerformanceData) ne 'ARRAY' ) { + $r->print(''.$incorrectgraph.' | '; - $analysis_html.= ''.$foilkey." |
| '. + &mt('None of the selected students attempted the problem more than [_1] times.',$try-1). + ' | ||||
| '. + &mt('None of the selected students have attempted the problem').' | ||||
| '.$graphlink." | ||||
| '. + ''. + &mt('Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect', + $try,$data_count,$correct,$data_count-$correct). + ''.' | ||||
| '.$concept_graph.' | '. + ''.$correct_graph.' | '. + ''.$incorrect_graph.' | '. + ''.$optionkey.' | '. + ' |
| '. + &mt('Data from [_1] to [_2]', + &Apache::lonlocal::locallocaltime($starttime), + &Apache::lonlocal::locallocaltime($endtime)). + ' | |||
| '. + &mt('[_1] submissions from [_2] students submitting, [_3] correct, [_4] incorrect', + $data_count,$student_count,$correct,$data_count-$correct). + ' | |||
| '.$concept_correct_plot.' | '. + ''.$foil_correct_plot.' | '. + ''.$foil_incorrect_plot.' | '. + ''.$foilkey.' |
| '.
+ &mt('Start time: [_1]',$startdateform).' '. + &mt('End time: [_1]',$enddateform).' | |||
'.&mt("Unable to create new Excel file. ". + "This error has been logged. ". + "Please alert your LON-CAPA administrator"). + '
'); + return undef; + } + # + $workbook->set_tempdir('/home/httpd/perl/tmp'); + my $format = &Apache::loncommon::define_excel_formats($workbook); + # + # Create and populate main worksheets + my $problem_data_sheet = $workbook->addworksheet('Problem Data'); + my $student_data_sheet = &build_student_data_worksheet($workbook,$format); + my $response_data_sheet = $workbook->addworksheet('Response Data'); + foreach my $sheet ($problem_data_sheet,$student_data_sheet, + $response_data_sheet) { + $sheet->write(0,0,$resource->{'title'},$format->{'h2'}); + $sheet->write(1,0,$resource->{'src'},$format->{'h3'}); + } + # + my $result; + $result = &OR_build_problem_data_worksheet($problem_data_sheet,$format, + $Concepts,$ORdata); + if ($result ne 'okay') { + # Do something useful + } + $result = &OR_build_response_data_worksheet($response_data_sheet,$format, + $performance_data,$Foils, + $ORdata); + if ($result ne 'okay') { + # Do something useful + } + $response_data_sheet->activate(); + # + # Close the excel file + $workbook->close(); + # + # Write a link to allow them to download it + $result .= ''. + &mt('Your Excel spreadsheet.'). + '
'."\n"; + return $result; +} + +sub OR_build_problem_data_worksheet { + my ($worksheet,$format,$Concepts,$ORdata) = @_; + my $rows_output = 3; + my $cols_output = 0; + $worksheet->write($rows_output++,0,'Problem Structure',$format->{'h3'}); + ## + ## + my @Headers; + if (@$Concepts > 1) { + @Headers = ("Concept\nNumber",'Concept',"Foil\nNumber", + 'Foil Name','Foil Text','Correct value'); + } else { + @Headers = ('Foil Number','FoilName','Foil Text','Correct value'); + } + $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'}); + my %Foildata = %{$ORdata->{'_Foils'}}; + my $conceptindex = 1; + my $foilindex = 1; + foreach my $concept (@$Concepts) { + my @FoilsInConcept = @{$concept->{'foils'}}; + my $firstfoil = shift(@FoilsInConcept); + if (@$Concepts > 1) { + $worksheet->write_row($rows_output++,0, + [$conceptindex, + $concept->{'name'}, + $foilindex++, + $Foildata{$firstfoil}->{'name'}, + $Foildata{$firstfoil}->{'text'}, + $Foildata{$firstfoil}->{'value'},]); + } else { + $worksheet->write_row($rows_output++,0, + [ $foilindex++, + $Foildata{$firstfoil}->{'name'}, + $Foildata{$firstfoil}->{'text'}, + $Foildata{$firstfoil}->{'value'},]); + } + foreach my $foilid (@FoilsInConcept) { + if (@$Concepts > 1) { + $worksheet->write_row($rows_output++,0, + ['', + '', + $foilindex, + $Foildata{$foilid}->{'name'}, + $Foildata{$foilid}->{'text'}, + $Foildata{$foilid}->{'value'},]); + } else { + $worksheet->write_row($rows_output++,0, + [$foilindex, + $Foildata{$foilid}->{'name'}, + $Foildata{$foilid}->{'text'}, + $Foildata{$foilid}->{'value'},]); + } + } continue { + $foilindex++; + } + } continue { + $conceptindex++; + } + $rows_output++; + $rows_output++; + ## + ## Option data output + $worksheet->write($rows_output++,0,'Options',$format->{'header'}); + foreach my $string (@{$ORdata->{'_Options'}}) { + $worksheet->write($rows_output++,0,$string); + } + return 'okay'; } -sub process_data_for_excel_sheet { - my ($PerformanceData,$Foils,$Concepts,$ORdata)=@_; +sub OR_build_response_data_worksheet { + my ($worksheet,$format,$performance_data,$Foils,$ORdata)=@_; + my $rows_output = 3; + my $cols_output = 0; + $worksheet->write($rows_output++,0,'Response Data',$format->{'h3'}); + $worksheet->set_column(1,1,20); + $worksheet->set_column(2,2,13); + my @Headers = ('identifier','time','award detail','attempt'); + foreach my $foil (@$Foils) { + push (@Headers,$foil.' submission'); + push (@Headers,$foil.' grading'); + } + $worksheet->write_row($rows_output++,0,\@Headers,$format->{'header'}); + # + foreach my $row (@$performance_data) { + next if (! defined($row)); + my ($student,$award,$grading,$submission,$time,$tries) = @$row; + my @Foilgrades = split('&',$grading); + my @Foilsubs = split('&',$submission); + my %response_data; + for (my $j=0;$j<=$#Foilgrades;$j++) { + my ($foilid,$correct) = split('=',$Foilgrades[$j]); + my (undef,$submission) = split('=',$Foilsubs[$j]); + $submission = &Apache::lonnet::unescape($submission); + $response_data{$foilid.' submission'}=$submission; + $response_data{$foilid.' award'}=$correct; + } + $worksheet->write($rows_output,$cols_output++,$student); + $worksheet->write($rows_output,$cols_output++, + &Apache::lonstathelpers::calc_serial($time),$format->{'date'}); + $worksheet->write($rows_output,$cols_output++,$award); + $worksheet->write($rows_output,$cols_output++,$tries); + foreach my $foilid (@$Foils) { + $worksheet->write($rows_output,$cols_output++, + $response_data{$foilid.' submission'}); + $worksheet->write($rows_output,$cols_output++, + $response_data{$foilid.' award'}); + } + $rows_output++; + $cols_output = 0; + } + return; +} + +sub build_foil_index { + my ($ORdata) = @_; + return if (! exists($ORdata->{'_Foils'})); + my %Foildata = %{$ORdata->{'_Foils'}}; + my @Foils = sort(keys(%Foildata)); + my %Concepts; + foreach my $foilid (@Foils) { + push(@{$Concepts{$Foildata{$foilid}->{'_Concept'}}}, + $foilid); + } + undef(@Foils); + # Having gathered the concept information in a hash, we now translate it + # into an array because we need to be consistent about order. + # Also put the foils in order, too. + my $sortfunction = sub { + my %Numbers = (one => 1, + two => 2, + three => 3, + four => 4, + five => 5, + six => 6, + seven => 7, + eight => 8, + nine => 9, + ten => 10,); + my $a1 = lc($a); + my $b1 = lc($b); + if (exists($Numbers{$a1})) { + $a1 = $Numbers{$a1}; + } + if (exists($Numbers{$b1})) { + $b1 = $Numbers{$b1}; + } + if (($a1 =~/^\d+$/) && ($b1 =~/^\d+$/)) { + return $a1 <=> $b1; + } else { + return $a1 cmp $b1; + } + }; + my @Concepts; + foreach my $concept (sort $sortfunction (keys(%Concepts))) { + if (! defined($Concepts{$concept})) { + $Concepts{$concept}=[]; +# next; + } + push(@Concepts,{ name => $concept, + foils => [@{$Concepts{$concept}}]}); + push(@Foils,(@{$Concepts{$concept}})); + } + # + # Build up the table of row labels. + my $table = '| '.&mt('Concept Number').' | '. + ''.&mt('Concept').' | '. + ''.&mt('Foil Number').' | '. + ''.&mt('Foil Name').' | '. + ''.&mt('Foil Text').' | '. + ''.&mt('Correct Value').' | '. + "
|---|---|---|---|---|---|
| '.&mt('Foil Number').' | '. + ''.&mt('Foil Name').' | '. + ''.&mt('Foil Text').' | '. + ''.&mt('Correct Value').' | '. + "||
| '.$conceptindex.' | '. + ''.&HTML::Entities::encode($concept->{'name'},'<>&"').' | '. + ''.$foilindex++.' | '. + ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').' | '. + ''.$Foildata{$firstfoil}->{'text'}.' | '. + ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').' | '. + "
| '.$foilindex++.' | '. + ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').' | '. + ''.$Foildata{$firstfoil}->{'text'}.' | '. + ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').' | '. + "||
| '. + ' | '. + ' | '.$foilindex.' | '. + ''.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').' | '. + ''.$Foildata{$foilid}->{'text'}.' | '. + ''.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').' | '. + "
| '.$foilindex.' | '. + ''.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').' | '. + ''.$Foildata{$foilid}->{'text'}.' | '. + ''.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').' | '. + "
| '. + ''.('*'x3).''.' | '. + ''.&HTML::Entities::encode($option,'<>&"').' | '. + "
| '. + ''.('*'x4).' | '. + ''.&HTML::Entities::encode($foil,'<>&"'). + (' 'x2).$extra_data->{$foil}.' | '. + "
| '.&mt('Sections').' | '; @@ -775,53 +1746,55 @@ sub CreateInterface { ## ## $Str .= '';
- { # These braces are here to organize the code, not scope it.
- {
- $Str .= ' '; - } - { - $Str .= ' '; - } - { - $Str .= ' '; + ## + my $analyze_selector = ''; + $Str .= ' '.$/; + ## + my $numplots_selector = ' '; + $Str .= ' | ';
##
##
@@ -830,79 +1803,17 @@ sub CreateInterface {
return $Str;
}
-sub OptionResponseProblemSelector {
- my $Str;
- $Str = "\n
| '. - ''. - ' | '. - ''.$res->{'title'}.' '; - if ($partdata->{'option'} > 1) { - $seq_str .= &mt('response').' '.$respid; - } - $seq_str .= " |
| '.$seq->{'title'}.' | '. - "