loncom/interface/spreadsheet/classcalc.pm - diff

Return to classcalc.pm CVS log

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

version 1.21, 2004/06/08 15:55:38	version 1.23, 2005/04/07 06:56:23
Line 228 sub excel_rows {	Line 228 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','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 307 sub outsheet_htmlclasslist {	Line 307 sub outsheet_htmlclasslist {
#	#
# Determine if we should output expire caches links...	# Determine if we should output expire caches links...
my $show_expire_link = 0;	my $show_expire_link = 0;
if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){	if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){
$show_expire_link = 1;	$show_expire_link = 1;
}	}
#	#