version 1.1, 2003/05/16 20:55:11
|
version 1.9, 2003/06/23 16:06:11
|
Line 51 use Apache::loncoursedata();
|
Line 51 use Apache::loncoursedata();
|
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::Spreadsheet; |
use Apache::Spreadsheet; |
use Apache::studentcalc; |
use Apache::studentcalc; |
|
use Apache::lonstatistics(); |
use HTML::Entities(); |
use HTML::Entities(); |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 58 use Time::HiRes;
|
Line 59 use Time::HiRes;
|
|
|
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
|
|
sub get_classlist { |
## |
|
## Package variable |
|
## |
|
|
|
my @Students; |
|
|
|
sub initialize { |
|
&Apache::lonstatistics::clear_classlist_variables(); |
|
@Students = &Apache::lonstatistics::get_students(); |
|
return; |
|
} |
|
|
|
sub html_header { |
my $self = shift; |
my $self = shift; |
# Retrieve the classlist |
my ($toprow,$bottomrow); |
my @Students = (); |
&Apache::lonstatistics::clear_classlist_variables(); |
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist |
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)], |
($self->{'cid'},$self->{'cdom'},$self->{'cnum'}); |
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
while (my ($student,$student_data) = each (%$classlist)) { |
['Output Format',&Apache::Spreadsheet::output_selector()]) { |
my $studenthash = (); |
my ($name,$selector) = @{$_}; |
for (my $i=0; $i< scalar(@$field_names);$i++) { |
$toprow .= '<th align="center"><b>'.$name.'</b></th>'; |
my $field = $field_names->[$i]; |
$bottomrow .= '<td>'.$selector.'</td>'; |
$studenthash->{$field}=$student_data->[$i]; |
|
} |
|
# This is where we can skip students because they are in |
|
# the wrong section, have expired or pending roles, whatever... |
|
push (@Students,$studenthash); |
|
} |
} |
my @SortedStudents = sort { $a->{'fullname'} cmp $b->{'fullname'} } @Students; |
return "<p>\n<table>\n". |
return @SortedStudents; |
"<tr>".$toprow."</tr>\n". |
|
"<tr>".$bottomrow."</tr>\n". |
|
"</table>\n</p>"; |
} |
} |
|
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
my $title = '<h2>'.$self->{'coursedesc'}."</h2>\n"; |
|
# Section info should be included |
# Section info should be included |
|
my @title = ($self->{'coursedesc'}, scalar(localtime(time)) ); |
|
return @title; |
|
} |
|
|
|
sub get_html_title { |
|
my $self = shift; |
|
my ($classcalc_title,$time) = $self->get_title(); |
|
my $title = '<h1>'.$classcalc_title."</h1>\n".'<h3>'.$time."</h3>\n"; |
return $title; |
return $title; |
} |
} |
|
|
Line 98 sub outsheet_html {
|
Line 115 sub outsheet_html {
|
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"; |
|
<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">Course</font></th> |
Line 131 END
|
Line 149 END
|
# |
# |
# Prepare to output rows |
# Prepare to output rows |
$tableheader =<<"END"; |
$tableheader =<<"END"; |
|
</p><p> |
<table border="2"> |
<table border="2"> |
<tr><th>Row</th> |
<tr><th>Row</th> |
<th>student</th><th>username</th><th>domain</th> |
<th>student</th><th>username</th><th>domain</th> |
Line 146 END
|
Line 165 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 156 END
|
Line 175 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)."</tr>\n"); |
} |
} |
$r->print("</table>\n"); |
$r->print("</table></p>\n"); |
return; |
return; |
} |
} |
|
|
sub outsheet_csv { |
sub excel_rows { |
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
|
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($worksheet,$cols_output,$rows_output) = @_; |
|
# |
|
# Write a header row |
|
$cols_output = 0; |
|
foreach my $value ('fullname','username','domain','section','status') { |
|
$worksheet->write($rows_output,$cols_output++,$value); |
|
} |
|
$rows_output++; |
|
# |
|
# Write each students row |
|
foreach my $student (@Students) { |
|
$cols_output = 0; |
|
my $rownum = $self->get_row_number_from_key |
|
($student->{'username'}.':'.$student->{'domain'}); |
|
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
|
my @studentdata = ($student->{'fullname'}, |
|
$student->{'username'}, |
|
$student->{'domain'}, |
|
$student->{'section'}, |
|
$student->{'status'}); |
|
$self->excel_output_row($worksheet,$rownum,$rows_output++, |
|
@studentdata); |
|
} |
|
return; |
} |
} |
|
|
sub outsheet_excel { |
sub csv_rows { |
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
|
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($filehandle) = @_; |
|
# |
|
# Write a header row |
|
|
|
$self->csv_output_row($filehandle,undef, |
|
('fullname','username','domain','section','status')); |
|
# |
|
# Write each students row |
|
foreach my $student (@Students) { |
|
my $rownum = $self->get_row_number_from_key |
|
($student->{'username'}.':'.$student->{'domain'}); |
|
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
|
my @studentdata = ($student->{'fullname'}, |
|
$student->{'username'}, |
|
$student->{'domain'}, |
|
$student->{'section'}, |
|
$student->{'status'}); |
|
$self->csv_output_row($filehandle,$rownum,@studentdata); |
|
} |
|
return; |
} |
} |
|
|
sub outsheet_recursive_excel { |
sub outsheet_recursive_excel { |
Line 182 sub outsheet_recursive_excel {
|
Line 247 sub outsheet_recursive_excel {
|
my ($r) = @_; |
my ($r) = @_; |
} |
} |
|
|
sub display { |
|
my $self = shift; |
|
my ($r) = @_; |
|
$self->compute($r); |
|
# display as html/csv/excel/etc.... |
|
$self->outsheet_html($r); |
|
return; |
|
} |
|
|
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
$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); |
Line 227 sub compute {
|
Line 286 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; |