version 1.35, 2005/02/23 19:41:27
|
version 1.37, 2005/03/14 20:28:22
|
Line 110 sub BuildStudentSubmissionsPage {
|
Line 110 sub BuildStudentSubmissionsPage {
|
push(@Problems,$resource); |
push(@Problems,$resource); |
} |
} |
# |
# |
|
$r->print('<h4>'. |
|
&Apache::lonstatistics::section_and_enrollment_description(). |
|
'</h4>'); |
if (! scalar(@Problems) || ! defined($Problems[0])) { |
if (! scalar(@Problems) || ! defined($Problems[0])) { |
$r->print('resource is undefined'); |
$r->print('resource is undefined'); |
} else { |
} else { |
Line 118 sub BuildStudentSubmissionsPage {
|
Line 121 sub BuildStudentSubmissionsPage {
|
$r->print('<h1>'.$resource->title.'</h1>'); |
$r->print('<h1>'.$resource->title.'</h1>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
if ($ENV{'form.renderprob'} eq 'true') { |
if ($ENV{'form.renderprob'} eq 'true') { |
$r->print( |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
&Apache::lonstathelpers::render_resource({src => $resource->src}) |
|
); |
|
$r->rflush(); |
$r->rflush(); |
} |
} |
} |
} |
Line 625 sub prepare_excel_output {
|
Line 626 sub prepare_excel_output {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Create the excel spreadsheet |
# Create the excel spreadsheet |
my $filename = '/prtspool/'. |
my ($workbook,$filename,$format) = |
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
&Apache::loncommon::create_workbook($r); |
time.'_'.rand(1000000000).'.xls'; |
return if (! defined($workbook)); |
my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename); |
|
if (! defined($workbook)) { |
|
$r->log_error("Error creating excel spreadsheet $filename: $!"); |
|
$r->print('<p>'.&mt("Unable to create new Excel file. ". |
|
"This error has been logged. ". |
|
"Please alert your LON-CAPA administrator"). |
|
'</p>'); |
|
return undef; |
|
} |
|
# |
|
$workbook->set_tempdir('/home/httpd/perl/tmp'); |
|
# |
|
my $format = &Apache::loncommon::define_excel_formats($workbook); |
|
my $worksheet = $workbook->addworksheet('Student Submission Data'); |
my $worksheet = $workbook->addworksheet('Student Submission Data'); |
# |
# |
# Add headers to the worksheet |
# Add headers to the worksheet |