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.8 and 1.19

version 1.8, 2003/06/12 17:06:44	version 1.19, 2004/04/26 14:06:00
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);
&Apache::lonstatistics::clear_classlist_variables();	&Apache::lonstatistics::clear_classlist_variables();
foreach (['Sections',&Apache::lonstatistics::SectionSelect('Section','multpile',3)],	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 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
###################################	###################################
	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 140 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 180 END	Line 210 END
'<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 190 sub excel_rows {	Line 222 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 209 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);
}	}
Line 220 sub csv_rows {	Line 253 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 236 sub csv_rows {	Line 268 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;
}	}

	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) = @_;
	#
	# Determine if we should output expire caches links...
	my $show_expire_link = 0;
	if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){
	$show_expire_link = 1;
	}
	#
	if ($show_expire_link) {
	$r->print('<a href="/adm/classcalc?output_format=htmlclasslist&'.
	'recalc=ilovewastingtime&not_first_run=1">'.
	&mt('Expire all student spreadsheets').'</a>'.$/);
	}
	#
	$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>
	END
	if ($show_expire_link) {
	$tableheader.= '<th> </th>';
	}
	$tableheader.= "</tr>\n";
	#
	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>');
	if ($show_expire_link) {
	$r->print('<td>'.
	'<a href="/adm/classcalc?recalc=student:'.
	$student->{'username'}.':'.$student->{'domain'}.'&'.
	'output_format=htmlclasslist&'.
	'not_first_run=1'.'">Expire Record</a>'.$/);
	}
	$r->print("</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 %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();
	&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
	&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; }
	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;

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

Removed from v.1.8
changed lines
	Added in v.1.19