version 1.10.2.1, 2003/12/05 22:24:20
|
version 1.14, 2003/10/14 18:36:54
|
Line 46 classcalc
|
Line 46 classcalc
|
package Apache::classcalc; |
package Apache::classcalc; |
|
|
use strict; |
use strict; |
|
use warnings FATAL=>'all'; |
|
no warnings 'uninitialized'; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
Line 56 use HTML::Entities();
|
Line 58 use HTML::Entities();
|
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
use Apache::lonnet; |
use Apache::lonnet; |
use Time::HiRes; |
use Time::HiRes; |
|
use Apache::lonlocal; |
|
|
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
|
|
Line 71 sub initialize {
|
Line 74 sub initialize {
|
return; |
return; |
} |
} |
|
|
|
sub clear_package { |
|
undef(@Students); |
|
&Apache::studentcalc::clear_package(); |
|
} |
|
|
sub html_header { |
sub html_header { |
my $self = shift; |
my $self = shift; |
my ($toprow,$bottomrow); |
my ($toprow,$bottomrow); |
Line 79 sub html_header {
|
Line 87 sub html_header {
|
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
['Output Format',&Apache::Spreadsheet::output_selector()]) { |
['Output Format',&Apache::Spreadsheet::output_selector()]) { |
my ($name,$selector) = @{$_}; |
my ($name,$selector) = @{$_}; |
$toprow .= '<th align="center"><b>'.$name.'</b></th>'; |
$toprow .= '<th align="center"><b>'.&mt($name).'</b></th>'; |
$bottomrow .= '<td>'.$selector.'</td>'; |
$bottomrow .= '<td>'.$selector.'</td>'; |
} |
} |
return "<p>\n<table>\n". |
return "<p>\n<table>\n". |
Line 91 sub html_header {
|
Line 99 sub html_header {
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
# Section info should be included |
# Section info should be included |
my @title = ($self->{'coursedesc'}, scalar(localtime(time)) ); |
my @title = ($self->{'coursedesc'}, &Apache::lonlocal::locallocaltime(time) ); |
return @title; |
return @title; |
} |
} |
|
|
Line 109 sub parent_link {
|
Line 117 sub parent_link {
|
sub outsheet_html { |
sub outsheet_html { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
#################################### |
|
# Report any calculation errors # |
|
#################################### |
|
$r->print($self->html_report_error()); |
|
################################### |
################################### |
# Determine table structure |
# Determine table structure |
################################### |
################################### |
Line 120 sub outsheet_html {
|
Line 124 sub outsheet_html {
|
my $exportcolor = '#BBBBFF'; |
my $exportcolor = '#BBBBFF'; |
my $num_uneditable = 26; |
my $num_uneditable = 26; |
my $num_left = 52-$num_uneditable; |
my $num_left = 52-$num_uneditable; |
|
my %lt=&Apache::lonlocal::texthash( |
|
'co' => 'Course', |
|
'im' => 'Import', |
|
'ca' => 'Calculations', |
|
'stu' => 'Student', |
|
'sta' => 'Status', |
|
'usr' => 'Username', |
|
'dom' => 'Domain', |
|
'sec' => 'Section', |
|
); |
my $tableheader =<<"END"; |
my $tableheader =<<"END"; |
<p> |
<p> |
<table border="2"> |
<table border="2"> |
<tr> |
<tr> |
<th colspan="2" rowspan="2"><font size="+2">Course</font></th> |
<th colspan="2" rowspan="2"><font size="+2">$lt{'co'}</font></th> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<b><font size="+1">Import</font></b></td> |
<b><font size="+1">$lt{'im'}</font></b></td> |
<td colspan="$num_left"> |
<td colspan="$num_left"> |
<b><font size="+1">Calculations</font></b></td> |
<b><font size="+1">$lt{'ca'}</font></b></td> |
</tr><tr> |
</tr><tr> |
END |
END |
my $label_num = 0; |
my $label_num = 0; |
Line 146 END
|
Line 160 END
|
$r->print($tableheader); |
$r->print($tableheader); |
# |
# |
# Print out template row |
# Print out template row |
$r->print('<tr><td>Template</td><td> </td>'. |
$r->print('<tr><td>'.&mt('Template').'</td><td> </td>'. |
$self->html_template_row($num_uneditable,$importcolor). |
$self->html_template_row($num_uneditable,$importcolor). |
"</tr>\n"); |
"</tr>\n"); |
# |
# |
# Print out summary/export row |
# Print out summary/export row |
$r->print('<tr><td>Summary</td><td>0</td>'. |
$r->print('<tr><td>'.&mt('Summary').'</td><td>0</td>'. |
$self->html_export_row($exportcolor)."</tr>\n"); |
$self->html_export_row($exportcolor)."</tr>\n"); |
# |
# |
# Prepare to output rows |
# Prepare to output rows |
$tableheader =<<"END"; |
$tableheader =<<"END"; |
</p><p> |
</p><p> |
<table border="2"> |
<table border="2"> |
<tr><th>Row</th> |
<tr><th>$lt{'ro'}</th> |
<th>student</th><th>username</th><th>domain</th> |
<th>$lt{'stu'}</th><th>$lt{'usr'}</th><th>$lt{'dom'}</th> |
<th>section</th><th>status</th> |
<th>$lt{'sec'}</th><th>$lt{'sta'}</th> |
END |
END |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
if ($label_num<$num_uneditable) { |
if ($label_num<$num_uneditable) { |
Line 199 sub excel_rows {
|
Line 213 sub excel_rows {
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
# writes the meat of the spreadsheet to an excel worksheet. Called |
# by Spreadsheet::outsheet_excel; |
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($worksheet,$cols_output,$rows_output) = @_; |
my ($connection,$worksheet,$cols_output,$rows_output) = @_; |
# |
# |
# Write a header row |
# Write a header row |
$cols_output = 0; |
$cols_output = 0; |
foreach my $value ('fullname','username','domain','section','status') { |
foreach my $value ('Fullname','Username','Domain','Section','Status','ID') { |
$worksheet->write($rows_output,$cols_output++,$value); |
$worksheet->write($rows_output,$cols_output++,&mt($value)); |
} |
} |
$rows_output++; |
$rows_output++; |
# |
# |
Line 218 sub excel_rows {
|
Line 232 sub excel_rows {
|
$student->{'username'}, |
$student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
$student->{'section'}, |
$student->{'section'}, |
$student->{'status'}); |
$student->{'status'}, |
|
$student->{'id'}); |
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
@studentdata); |
@studentdata); |
} |
} |
Line 229 sub csv_rows {
|
Line 244 sub csv_rows {
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
# writes the meat of the spreadsheet to an excel worksheet. Called |
# by Spreadsheet::outsheet_excel; |
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($filehandle) = @_; |
my ($connection,$filehandle) = @_; |
# |
# |
# Write a header row |
# Write a header row |
|
|
$self->csv_output_row($filehandle,undef, |
$self->csv_output_row($filehandle,undef, |
('fullname','username','domain','section','status')); |
(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID'))); |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
Line 245 sub csv_rows {
|
Line 260 sub csv_rows {
|
$student->{'username'}, |
$student->{'username'}, |
$student->{'domain'}, |
$student->{'domain'}, |
$student->{'section'}, |
$student->{'section'}, |
$student->{'status'}); |
$student->{'status'}, |
|
$student->{'id'}); |
$self->csv_output_row($filehandle,$rownum,@studentdata); |
$self->csv_output_row($filehandle,$rownum,@studentdata); |
} |
} |
return; |
return; |
Line 259 sub outsheet_recursive_excel {
|
Line 275 sub outsheet_recursive_excel {
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
|
my $connection = $r->connection(); |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
$self->initialize_safe_space(); |
$self->initialize_safe_space(); |
my %c = $self->constants(); |
my %c = $self->constants(); |
my %f = $self->formulas(); |
my %f = $self->formulas(); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Spreadsheet Computation Status', |
($r,&mt('Spreadsheet Computation Status'), |
'Spreadsheet Computation', scalar(@Students)); |
&mt('Spreadsheet Computation'), scalar(@Students)); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
'Processing course structure'); |
&mt('Processing course structure')); |
&Apache::studentcalc::initialize_package(); |
&Apache::studentcalc::initialize_package(); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
'Processing first student'); |
&mt('Processing first student')); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
|
if ($connection->aborted()) { $self->cleanup(); return; } |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $studentsheet = Apache::studentcalc->new |
my $studentsheet = Apache::studentcalc->new |
($student->{'username'},$student->{'domain'},undef); |
($student->{'username'},$student->{'domain'},undef); |
my @exportdata = $studentsheet->export_data(); |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($studentsheet->badcalc()) { |
my @exportdata = $studentsheet->export_data($r); |
$self->set_calcerror($sname.' : '. |
if ($connection->aborted()) { $self->cleanup(); return; } |
$studentsheet->calcerror()); |
|
} |
|
my $rownum = $self->get_row_number_from_key($sname); |
my $rownum = $self->get_row_number_from_key($sname); |
$f{'A'.$rownum} = $sname; |
$f{'A'.$rownum} = $sname; |
$self->{'row_source'}->{$rownum} = $sname; |
$self->{'row_source'}->{$rownum} = $sname; |