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.14 and 1.32

version 1.14, 2003/10/14 18:36:54	version 1.32, 2014/02/12 16:53:09
Line 83 sub html_header {	Line 83 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','multiple',3)],
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)],	['Groups',&Apache::lonstatistics::GroupSelect('Group','multiple',3)],
['Output Format',&Apache::Spreadsheet::output_selector()]) {	['Access Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)],
	['Output Format',$self->output_selector()]) {
my ($name,$selector) = @{$_};	my ($name,$selector) = @{$_};
$toprow .= '<th align="center"><b>'.&mt($name).'</b></th>';	$toprow .= '<th align="center"><b>'.&mt($name).'</b></th>';
$bottomrow .= '<td>'.$selector.'</td>';	$bottomrow .= '<td>'.$selector.'</td>';
Line 93 sub html_header {	Line 94 sub html_header {
return "<p>\n<table>\n".	return "<p>\n<table>\n".
"<tr>".$toprow."</tr>\n".	"<tr>".$toprow."</tr>\n".
"<tr>".$bottomrow."</tr>\n".	"<tr>".$bottomrow."</tr>\n".
"</table>\n</p>";	"</table>\n".
	"</p>";
}	}

sub get_title {	sub get_title {
Line 117 sub parent_link {	Line 119 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 124 sub outsheet_html {	Line 130 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',	my %header=&Apache::lonlocal::texthash(
'im' => 'Import',	'course' => 'Course',
'ca' => 'Calculations',	'import' => 'Import',
'stu' => 'Student',	'calculations' => 'Calculations',
'sta' => 'Status',	'student' => 'Student',
'usr' => 'Username',	'status' => 'Status',
'dom' => 'Domain',	'username' => 'Username',
'sec' => 'Section',	'domain' => 'Domain',
);	'section' => 'Section',
	'groups' => 'Groups',
	'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">$lt{'co'}</font></th>	<th colspan="2" rowspan="2"><font size="+2">$header{'course'}</font></th>
<td bgcolor="$importcolor" colspan="$num_uneditable">	<td bgcolor="$importcolor" colspan="$num_uneditable">
<b><font size="+1">$lt{'im'}</font></b></td>	<b><font size="+1">$header{'import'}</font></b></td>
<td colspan="$num_left">	<td colspan="$num_left">
<b><font size="+1">$lt{'ca'}</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;
Line 172 END	Line 181 END
$tableheader =<<"END";	$tableheader =<<"END";
</p><p>	</p><p>
<table border="2">	<table border="2">
<tr><th>$lt{'ro'}</th>	<tr><th>$header{'row'}</th>
<th>$lt{'stu'}</th><th>$lt{'usr'}</th><th>$lt{'dom'}</th>	<th>$header{'student'}</th>
<th>$lt{'sec'}</th><th>$lt{'sta'}</th>	<th>$header{'username'}</th>
	<th>$header{'domain'}</th>
	<th>$header{'section'}</th>
	<th>$header{'groups'}</th>
	<th>$header{'status'}</th>
END	END
foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){	foreach (split(//,'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz')){
if ($label_num<$num_uneditable) {	if ($label_num<$num_uneditable) {
Line 200 END	Line 213 END
'<td>'.$link.$student->{'username'}.'</a></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->{'groups'} .'</td>'.
'<td>'.$student->{'status'} .'</td>'.	'<td>'.$student->{'status'} .'</td>'.
$self->html_row($num_uneditable,$rownum,$exportcolor,	$self->html_row($num_uneditable,$rownum,$exportcolor,
$importcolor).	$importcolor).
Line 213 sub excel_rows {	Line 227 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 ($connection,$worksheet,$cols_output,$rows_output) = @_;	my ($connection,$worksheet,$cols_output,$rows_output,$format) = @_;
#	#
# Write a header row	# Write a header row
$cols_output = 0;	$cols_output = 0;
foreach my $value ('Fullname','Username','Domain','Section','Status','ID') {	foreach my $value ('Fullname','Username','Domain','Section','Group','Status','ID') {
$worksheet->write($rows_output,$cols_output++,&mt($value));	$worksheet->write($rows_output,$cols_output++,&mt($value),$format->{'h4'});
}	}
$rows_output++;	$rows_output++;
#	#
Line 232 sub excel_rows {	Line 246 sub excel_rows {
$student->{'username'},	$student->{'username'},
$student->{'domain'},	$student->{'domain'},
$student->{'section'},	$student->{'section'},
	$student->{'groups'},
$student->{'status'},	$student->{'status'},
$student->{'id'});	$student->{'id'});
$self->excel_output_row($worksheet,$rownum,$rows_output++,	$self->excel_output_row($worksheet,$rownum,$rows_output++,
Line 247 sub csv_rows {	Line 262 sub csv_rows {
my ($connection,$filehandle) = @_;	my ($connection,$filehandle) = @_;
#	#
# Write a header row	# Write a header row

$self->csv_output_row($filehandle,undef,	$self->csv_output_row($filehandle,undef,
(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID')));	(&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Group'),&mt('Status'),&mt('ID')));
#	#
# Write each students row	# Write each students row
foreach my $student (@Students) {	foreach my $student (@Students) {
Line 260 sub csv_rows {	Line 274 sub csv_rows {
$student->{'username'},	$student->{'username'},
$student->{'domain'},	$student->{'domain'},
$student->{'section'},	$student->{'section'},
	$student->{'groups'},
$student->{'status'},	$student->{'status'},
$student->{'id'});	$student->{'id'});
$self->csv_output_row($filehandle,$rownum,@studentdata);	$self->csv_output_row($filehandle,$rownum,@studentdata);
Line 267 sub csv_rows {	Line 282 sub csv_rows {
return;	return;
}	}

	sub output_options {
	my $self = shift();
	return ({value => 'htmlclasslist',
	description => 'Student Sheet Links'},
	{value => 'source',
	description => 'Show Source'},
	{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=expireallsheets&not_first_run=1">'.
	&mt('Expire all student spreadsheets').'</a>'.$/);
	}
	#
	$r->print('<p class="LC_info">'.
	&mt('Click on a student to be taken to their spreadsheet').
	'</p>');
	#
	my %header=&Apache::lonlocal::texthash(
	'student' => 'Student',
	'status' => 'Status',
	'username' => 'Username',
	'domain' => 'Domain',
	'section' => 'Section',
	'groups' => 'Groups',
	);
	#
	# 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{'groups'}</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->{'groups'} .'</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'.'">'.&mt('Expire Record').'</a>'.$/);
	}
	$r->print("</tr>\n");
	}
	$r->print("</table></p>\n");
	return;
	}

sub compute {	sub compute {
my $self = shift;	my $self = shift;
Line 280 sub compute {	Line 388 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 %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
($r,&mt('Spreadsheet Computation Status'),
&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,	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@Students));
&mt('Processing first student'));	&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; }	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,undef,
	$student->{'section'},$student->{'groupref'} );
if ($connection->aborted()) { $self->cleanup(); return; }	if ($connection->aborted()) { $self->cleanup(); return; }
my @exportdata = $studentsheet->export_data($r);	my @exportdata = $studentsheet->export_data($r);
	if ($studentsheet->badcalc()) {
	$self->set_calcerror($sname.' : '.
	$studentsheet->calcerror());
	}
if ($connection->aborted()) { $self->cleanup(); return; }	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;
Line 308 sub compute {	Line 416 sub compute {
$c{$cell} = $data;	$c{$cell} = $data;
}	}
}	}
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
'last student');
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$r->rflush();	$r->rflush();

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

Removed from v.1.14
changed lines
	Added in v.1.32