version 1.5, 2003/05/27 14:52:45
|
version 1.10.2.1, 2003/12/05 22:24:20
|
Line 59 use Time::HiRes;
|
Line 59 use Time::HiRes;
|
|
|
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
|
|
|
## |
|
## Package variable |
|
## |
|
|
|
my @Students; |
|
|
|
sub initialize { |
|
&Apache::lonstatistics::clear_classlist_variables(); |
|
@Students = &Apache::lonstatistics::get_students(); |
|
return; |
|
} |
|
|
sub html_header { |
sub html_header { |
my $self = shift; |
my $self = shift; |
my ($toprow,$bottomrow); |
my ($toprow,$bottomrow); |
Line 76 sub html_header {
|
Line 88 sub html_header {
|
"</table>\n</p>"; |
"</table>\n</p>"; |
} |
} |
|
|
sub get_classlist { |
|
my $self = shift; |
|
# Retrieve the classlist and return it |
|
return &Apache::lonstatistics::get_students(); |
|
} |
|
|
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
# Section info should be included |
# Section info should be included |
Line 103 sub parent_link {
|
Line 109 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 |
################################### |
################################### |
|
my $importcolor = '#88FF88'; |
|
my $exportcolor = '#BBBBFF'; |
my $num_uneditable = 26; |
my $num_uneditable = 26; |
my $num_left = 52-$num_uneditable; |
my $num_left = 52-$num_uneditable; |
my $tableheader =<<"END"; |
my $tableheader =<<"END"; |
Line 113 sub outsheet_html {
|
Line 125 sub outsheet_html {
|
<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">Course</font></th> |
<td bgcolor="#FFDDDD" colspan="$num_uneditable"> |
<td bgcolor="$importcolor" colspan="$num_uneditable"> |
<b><font size="+1">Import</font></b></td> |
<b><font size="+1">Import</font></b></td> |
<td colspan="$num_left"> |
<td colspan="$num_left"> |
<b><font size="+1">Calculations</font></b></td> |
<b><font size="+1">Calculations</font></b></td> |
Line 122 END
|
Line 134 END
|
my $label_num = 0; |
my $label_num = 0; |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
if ($label_num<$num_uneditable) { |
if ($label_num<$num_uneditable) { |
$tableheader.='<th bgcolor="#FFDDDD">'; |
$tableheader.='<th bgcolor="'.$importcolor.'">'; |
} else { |
} else { |
$tableheader.='<th>'; |
$tableheader.='<th>'; |
} |
} |
Line 135 END
|
Line 147 END
|
# |
# |
# Print out template row |
# Print out template row |
$r->print('<tr><td>Template</td><td> </td>'. |
$r->print('<tr><td>Template</td><td> </td>'. |
$self->html_template_row($num_uneditable)."</tr>\n"); |
$self->html_template_row($num_uneditable,$importcolor). |
|
"</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>Summary</td><td>0</td>'. |
$self->html_export_row()."</tr>\n"); |
$self->html_export_row($exportcolor)."</tr>\n"); |
# |
# |
# Prepare to output rows |
# Prepare to output rows |
$tableheader =<<"END"; |
$tableheader =<<"END"; |
Line 151 END
|
Line 164 END
|
END |
END |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){ |
if ($label_num<$num_uneditable) { |
if ($label_num<$num_uneditable) { |
$tableheader.='<th bgcolor="#FFDDDD">'; |
$tableheader.='<th bgcolor="'.$importcolor.'">'; |
} else { |
} else { |
$tableheader.='<th>'; |
$tableheader.='<th>'; |
} |
} |
Line 159 END
|
Line 172 END
|
} |
} |
# |
# |
my $num_output = 0; |
my $num_output = 0; |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
if ($num_output++ % 50 == 0) { |
if ($num_output++ % 50 == 0) { |
$r->print("</table>\n".$tableheader); |
$r->print("</table>\n".$tableheader); |
} |
} |
Line 169 END
|
Line 182 END
|
'&sdomain='.$student->{'domain'}.'">'; |
'&sdomain='.$student->{'domain'}.'">'; |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$r->print('<tr>'.'<td>'.$rownum.'</td>'. |
$r->print('<tr>'.'<td>'.$rownum.'</td>'. |
'<td>'.$link.$student->{'fullname'}.'</a></td>'. |
'<td>'.$student->{'fullname'}.'</td>'. |
'<td>'.$student->{'username'}.'</td>'. |
'<td>'.$link.$student->{'username'}.'</a></td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'domain'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'section'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
'<td>'.$student->{'status'} .'</td>'. |
$self->html_row($num_uneditable,$rownum)."</tr>\n"); |
$self->html_row($num_uneditable,$rownum,$exportcolor, |
|
$importcolor). |
|
"</tr>\n"); |
} |
} |
$r->print("</table></p>\n"); |
$r->print("</table></p>\n"); |
return; |
return; |
Line 194 sub excel_rows {
|
Line 209 sub excel_rows {
|
$rows_output++; |
$rows_output++; |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
$cols_output = 0; |
$cols_output = 0; |
my $rownum = $self->get_row_number_from_key |
my $rownum = $self->get_row_number_from_key |
($student->{'username'}.':'.$student->{'domain'}); |
($student->{'username'}.':'.$student->{'domain'}); |
Line 222 sub csv_rows {
|
Line 237 sub csv_rows {
|
('fullname','username','domain','section','status')); |
('fullname','username','domain','section','status')); |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
my $rownum = $self->get_row_number_from_key |
my $rownum = $self->get_row_number_from_key |
($student->{'username'}.':'.$student->{'domain'}); |
($student->{'username'}.':'.$student->{'domain'}); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
Line 247 sub compute {
|
Line 262 sub compute {
|
$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 @Students = $self->get_classlist(); |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Spreadsheet Computation Status', |
($r,'Spreadsheet Computation Status', |
'Spreadsheet Computation', scalar(@Students)); |
'Spreadsheet Computation', scalar(@Students)); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing course structure'); |
&Apache::studentcalc::initialize_package(); |
&Apache::studentcalc::initialize_package(); |
foreach my $student ($self->get_classlist()) { |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing first student'); |
|
foreach my $student (@Students) { |
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(); |
my @exportdata = $studentsheet->export_data(); |
|
if ($studentsheet->badcalc()) { |
|
$self->set_calcerror($sname.' : '. |
|
$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; |
Line 277 sub compute {
|
Line 299 sub compute {
|
$self->constants(\%c); |
$self->constants(\%c); |
$self->formulas(\%f); |
$self->formulas(\%f); |
$self->calcsheet(); |
$self->calcsheet(); |
|
$self->save() if ($self->need_to_save()); |
} |
} |
|
|
1; |
1; |