version 1.65, 2011/11/21 20:12:36
|
version 1.66, 2011/12/21 21:25:51
|
Line 875 sub prepare_excel_output {
|
Line 875 sub prepare_excel_output {
|
} |
} |
# |
# |
# Populate the worksheet with the student data |
# Populate the worksheet with the student data |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students)); |
($r,'Excel File Compilation Status', |
|
'Excel File Compilation Progress', |
|
scalar(@$Students),'inline',undef,'Statistics','stats_status'); |
|
my $max_row = $rows_output; |
my $max_row = $rows_output; |
foreach my $student (@$Students) { |
foreach my $student (@$Students) { |
last if ($c->aborted()); |
last if ($c->aborted()); |
Line 955 sub prepare_excel_output {
|
Line 952 sub prepare_excel_output {
|
} |
} |
} |
} |
} |
} |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
'last student'); |
|
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
# |
# |
Line 1069 sub prepare_csv_output {
|
Line 1065 sub prepare_csv_output {
|
&mt('Generating CSV report of student responses').'</h2>'); |
&mt('Generating CSV report of student responses').'</h2>'); |
# |
# |
# Progress window |
# Progress window |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students)); |
($r,'CSV File Compilation Status', |
|
'CSV File Compilation Progress', |
|
scalar(@$students),'inline',undef,'Statistics','stats_status'); |
|
|
|
$r->rflush(); |
$r->rflush(); |
# |
# |
Line 1222 sub prepare_csv_output {
|
Line 1215 sub prepare_csv_output {
|
print $outputfile $/; |
print $outputfile $/; |
} |
} |
undef(@rows); |
undef(@rows); |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
'last student'); |
|
} |
} |
close($outputfile); |
close($outputfile); |
# |
# |
Line 1347 sub CreateInterface {
|
Line 1339 sub CreateInterface {
|
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table(); |
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$Str .= '<p><span class="LC_nobreak">' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
|
## |
|
return $Str; |
return $Str; |
} |
} |
|
|