version 1.105, 2004/09/23 17:48:00
|
version 1.109, 2005/01/14 21:15:09
|
Line 357 sub CreateInterface {
|
Line 357 sub CreateInterface {
|
$Str .= '<input type="submit" name="ClearCache" value="'. |
$Str .= '<input type="submit" name="ClearCache" value="'. |
&mt('Clear Caches').'" />'; |
&mt('Clear Caches').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
|
$Str .= |
|
&mt('Status [_1]', |
|
'<input type="text" name="stats_status" size="60" value="" />'); |
$Str .= '<br />'; |
$Str .= '<br />'; |
return $Str; |
return $Str; |
} |
} |
Line 516 my @OutputDataOptions =
|
Line 519 my @OutputDataOptions =
|
maximum_row => 0, |
maximum_row => 0, |
shortdesc => 'Number of Tries before success on each Problem Part', |
shortdesc => 'Number of Tries before success on each Problem Part', |
longdesc =>'The number of tries before success on each problem part.', |
longdesc =>'The number of tries before success on each problem part.', |
|
non_html_notes => 'negative values indicate an incorrect problem', |
}, |
}, |
{ name =>'Parts Correct', |
{ name =>'Parts Correct', |
base =>'tries', |
base =>'tries', |
Line 951 sub excel_initialize {
|
Line 955 sub excel_initialize {
|
# Determine rows |
# Determine rows |
my $header_row = $rows_output++; |
my $header_row = $rows_output++; |
my $description_row = $rows_output++; |
my $description_row = $rows_output++; |
|
my $notes_row = $rows_output++; |
$rows_output++; # blank row |
$rows_output++; # blank row |
my $summary_header_row; |
my $summary_header_row; |
if ($chosen_output->{'summary_table'}) { |
if ($chosen_output->{'summary_table'}) { |
Line 1025 sub excel_initialize {
|
Line 1030 sub excel_initialize {
|
$cols_output = 0; |
$cols_output = 0; |
$excel_sheet->write($description_row,$cols_output++, |
$excel_sheet->write($description_row,$cols_output++, |
$chosen_output->{'shortdesc'}, |
$chosen_output->{'shortdesc'}, |
$format->{'h3'}); |
$format->{'b'}); |
|
# |
|
$cols_output = 0; |
|
$excel_sheet->write($notes_row,$cols_output++, |
|
$chosen_output->{'non_html_notes'}, |
|
$format->{'i'}); |
|
|
############################################## |
############################################## |
# Output headings for the raw data |
# Output headings for the raw data |
############################################## |
############################################## |
Line 1064 sub excel_initialize {
|
Line 1075 sub excel_initialize {
|
$cols_output++, |
$cols_output++, |
$res->{'title'}.' part '.$part, |
$res->{'title'}.' part '.$part, |
$format->{'bold'}); |
$format->{'bold'}); |
|
$count++; |
} |
} |
} else { |
} else { |
$excel_sheet->write($resource_name_row, |
$excel_sheet->write($resource_name_row, |
$cols_output++, |
$cols_output++, |
$res->{'title'},$format->{'bold'}); |
$res->{'title'},$format->{'bold'}); |
|
$count++; |
} |
} |
$count++; |
|
} |
} |
} |
} |
# Determine ending cell |
# Determine ending cell |
Line 1218 sub excel_initialize {
|
Line 1230 sub excel_initialize {
|
if ($chosen_output->{'grand_maximum'}) { |
if ($chosen_output->{'grand_maximum'}) { |
$excel_sheet->repeat_formula($maximum_data_row,$cols_output++, |
$excel_sheet->repeat_formula($maximum_data_row,$cols_output++, |
$maximum_formula,undef, |
$maximum_formula,undef, |
%total_cell_translation); |
%maximum_cell_translation); |
} |
} |
} # End of MAXIMUM row output if ($chosen_output->{'maximum_row'}) { |
} # End of MAXIMUM row output if ($chosen_output->{'maximum_row'}) { |
$rows_output = $first_data_row; |
$rows_output = $first_data_row; |
Line 1290 sub excel_initialize {
|
Line 1302 sub excel_initialize {
|
# Initialize progress window |
# Initialize progress window |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Excel File Compilation Status', |
($r,'Excel File Compilation Status', |
'Excel File Compilation Progress', $studentcount); |
'Excel File Compilation Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
# |
# |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
'Processing first student'); |
'Processing first student'); |
Line 1333 sub excel_outputstudent {
|
Line 1346 sub excel_outputstudent {
|
$total_cell_translation{$seq->{'Excel:scorecell'}} = |
$total_cell_translation{$seq->{'Excel:scorecell'}} = |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
($rows_output,$seq->{'Excel:scorecol'}); |
($rows_output,$seq->{'Excel:scorecol'}); |
|
# and maximum cell |
|
$maximum_cell_translation{$seq->{'Excel:maxcell'}} = |
|
&Spreadsheet::WriteExcel::Utility::xl_rowcol_to_cell |
|
($rows_output,$seq->{'Excel:maxcol'}); |
# |
# |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
my ($performance,$performance_length,$score,$seq_max,$rawdata); |
if ($chosen_output->{'tries'} || $chosen_output->{'correct'}){ |
if ($chosen_output->{'tries'} || $chosen_output->{'correct'}){ |
Line 1403 sub excel_outputstudent {
|
Line 1420 sub excel_outputstudent {
|
if ($chosen_output->{'grand_maximum'}) { |
if ($chosen_output->{'grand_maximum'}) { |
$excel_sheet->repeat_formula($rows_output,$cols_output++, |
$excel_sheet->repeat_formula($rows_output,$cols_output++, |
$maximum_formula,undef, |
$maximum_formula,undef, |
%total_cell_translation); |
%maximum_cell_translation); |
} |
} |
# |
# |
# Bookkeeping |
# Bookkeeping |
Line 1487 END
|
Line 1504 END
|
my $studentcount = scalar(@Apache::lonstatistics::Students); |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'CSV File Compilation Status', |
($r,'CSV File Compilation Status', |
'CSV File Compilation Progress', $studentcount); |
'CSV File Compilation Progress', $studentcount, |
|
'inline',undef,'Statistics','stats_status'); |
# |
# |
# Open a file |
# Open a file |
$filename = '/prtspool/'. |
$filename = '/prtspool/'. |
Line 1506 END
|
Line 1524 END
|
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
"\n"; |
"\n"; |
|
foreach my $item ('shortdesc','non_html_notes') { |
|
next if (! exists($chosen_output->{$item})); |
|
print $outputfile |
|
'"'.&Apache::loncommon::csv_translate($chosen_output->{$item}).'"'. |
|
"\n"; |
|
} |
# |
# |
# Print out the headings |
# Print out the headings |
my $sequence_row = ''; |
my $sequence_row = ''; |
Line 1763 sub StudentTriesOnSequence {
|
Line 1787 sub StudentTriesOnSequence {
|
} |
} |
} |
} |
# |
# |
if (! defined($tries) || $symbol eq '.') { |
if (! defined($tries)) { |
$tries = $symbol; |
$tries = 0; |
|
} |
|
if ($status =~ /^(incorrect|ungraded)/) { |
|
# Bug 3390: show '-' for tries on incorrect problems |
|
# (csv & excel only) |
|
push(@TriesData,-$tries); |
|
} else { |
|
push (@TriesData,$tries); |
} |
} |
push (@TriesData,$tries); |
|
# |
# |
if ( ($links eq 'yes' && $symbol ne ' ') || |
if ( ($links eq 'yes' && $symbol ne ' ') || |
($links eq 'all')) { |
($links eq 'all')) { |