loncom/interface/spreadsheet/classcalc.pm - diff

Return to classcalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.3 and 1.18

version 1.3, 2003/05/23 19:36:04	version 1.18, 2004/01/14 16:48:51
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();
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;
use Time::HiRes;	use Time::HiRes;
	use Apache::lonlocal;

@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 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);
foreach (['Sections','Section selector goes here'],	&Apache::lonstatistics::clear_classlist_variables();
	foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)],
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)],	['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)],
['Output Format',&Apache::Spreadsheet::output_selector()]) {	['Output Format',$self->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 74 sub html_header {	Line 96 sub html_header {
"</table>\n</p>";	"</table>\n</p>";
}	}

sub get_classlist {
my $self = shift;
# Retrieve the classlist
my @Students = ();
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist
($self->{'cid'},$self->{'cdom'},$self->{'cnum'});
while (my ($student,$student_data) = each (%$classlist)) {
my $studenthash = ();
for (my $i=0; $i< scalar(@$field_names);$i++) {
my $field = $field_names->[$i];
$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 @SortedStudents;
}

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 115 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
###################################	###################################
	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 %header=&Apache::lonlocal::texthash(
	'course' => 'Course',
	'import' => 'Import',
	'calculations' => 'Calculations',
	'student' => 'Student',
	'status' => 'Status',
	'username' => 'Username',
	'domain' => 'Domain',
	'section' => 'Section',
	'row' => 'Row',
	);
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">$header{'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">$header{'import'}</font></b></td>
<td colspan="$num_left">	<td colspan="$num_left">
<b><font size="+1">Calculations</font></b></td>	<b><font size="+1">$header{'calculations'}</font></b></td>
</tr><tr>	</tr><tr>
END	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 146 END	Line 166 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)."</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>'.&mt('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";
</p><p>	</p><p>
<table border="2">	<table border="2">
<tr><th>Row</th>	<tr><th>$header{'row'}</th>
<th>student</th><th>username</th><th>domain</th>	<th>$header{'student'}</th>
<th>section</th><th>status</th>	<th>$header{'username'}</th>
	<th>$header{'domain'}</th>
	<th>$header{'section'}</th>
	<th>$header{'status'}</th>
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 171 END	Line 195 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 181 END	Line 205 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;
}	}

sub outsheet_csv {
my $self = shift;
my ($r) = @_;
$r->print('<h1>csv output is not supported yet</h1>');
}


sub excel_rows {	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++;
#	#
# 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 excel_rows {	Line 241 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);
}	}
return;	return;
}	}

	sub csv_rows {
	# writes the meat of the spreadsheet to an excel worksheet. Called
	# by Spreadsheet::outsheet_excel;
	my $self = shift;
	my ($connection,$filehandle) = @_;
	#
	# Write a header row
	$self->csv_output_row($filehandle,undef,
	(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID')));
	#
	# 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'},
	$student->{'id'});
	$self->csv_output_row($filehandle,$rownum,@studentdata);
	}
	return;
	}

	sub output_options {
	my $self = shift();
	return ({value => 'htmlclasslist',
	description => 'Student Sheet Links'},
	{value => 'html',
	description => 'HTML'},
	{value => 'excel',
	description => 'Excel'},
	{value => 'csv',
	description => 'Comma Separated Values'},
	# {value => 'xml',
	# description => 'XML'},
	);
	}

sub outsheet_recursive_excel {	sub outsheet_recursive_excel {
my $self = shift;	my $self = shift;
my ($r) = @_;	my ($r) = @_;
}	}

	sub outsheet_htmlclasslist {
	my $self = shift;
	my ($r) = @_;
	#
	$r->print('<h3>'.
	&mt('Click on a student to be taken to their spreadsheet').
	'</h3>');
	#
	my %header=&Apache::lonlocal::texthash(
	'student' => 'Student',
	'status' => 'Status',
	'username' => 'Username',
	'domain' => 'Domain',
	'section' => 'Section',
	);
	#
	# Prepare to output rows
	my $tableheader =<<"END";
	</p><p>
	<table border="2">
	<tr>
	<th></th>
	<th>$header{'student'}</th>
	<th>$header{'username'}</th>
	<th>$header{'domain'}</th>
	<th>$header{'section'}</th>
	<th>$header{'status'}</th>
	</tr>
	END
	#
	my $num_output = 0;
	foreach my $student (@Students) {
	if ($num_output++ % 50 == 0) {
	$r->print("</table>\n".$tableheader);
	}
	my $link = '<a href="/adm/studentcalc?sname='.$student->{'username'}.
	'&sdomain='.$student->{'domain'}.'">';
	$student->{'section'} = 'none' if ($student->{'section'} eq '-1');
	$r->print('<tr>'.
	'<td>'.$num_output.'</td>'.
	'<td>'.$link.$student->{'fullname'}.'</a></td>'.
	'<td>'.$link.$student->{'username'}.'</a></td>'.
	'<td>'.$student->{'domain'} .'</td>'.
	'<td>'.$student->{'section'} .'</td>'.
	'<td>'.$student->{'status'} .'</td>'.
	"</tr>\n");
	}
	$r->print("</table></p>\n");
	return;
	}

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 @Students = $self->get_classlist();
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,
	&mt('Processing course structure'));
&Apache::studentcalc::initialize_package();	&Apache::studentcalc::initialize_package();
foreach my $student ($self->get_classlist()) {	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
	&mt('Processing first student'));
	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; }
	my @exportdata = $studentsheet->export_data($r);
	if ($studentsheet->badcalc()) {
	$self->set_calcerror($sname.' : '.
	$studentsheet->calcerror());
	}
	if ($connection->aborted()) { $self->cleanup(); return; }
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 271 sub compute {	Line 394 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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.18