loncom/interface/spreadsheet/studentcalc.pm - diff

Return to studentcalc.pm CVS log

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

version 1.2, 2003/05/19 14:34:54	version 1.3, 2003/05/19 15:48:18
Line 48 package Apache::studentcalc;	Line 48 package Apache::studentcalc;
use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
	use Apache::loncommon();
	use Apache::loncoursedata();
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::Spreadsheet;	use Apache::Spreadsheet();
use Apache::assesscalc;	use Apache::assesscalc();
use HTML::Entities();	use HTML::Entities();
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
use Time::HiRes;	use Time::HiRes;
Line 90 sub clear_package {	Line 92 sub clear_package {
sub get_title {	sub get_title {
my $self = shift;	my $self = shift;
my $title = '';	my $title = '';
$title .= '<h2>Spreadsheet for '.	my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},
$self->{'name'}.'@'.$self->{'domain'}.'</h2>';	$self->{'domain'});
	&Apache::lonnet::logthis('userenv = '.join(' ',%userenv));
	my $name =
	join(' ',@userenv{'firstname','middlename','lastname','generation'});
	$name =~ s/\s+$//;
	$title .= '<h1>'.$name;
	if ($ENV{'user.name'} ne $self->{'name'} &&
	$ENV{'user.domain'} ne $self->{'domain'}) {
	$title .= &Apache::loncommon::aboutmewrapper
	($self->{'name'}.'@'.$self->{'domain'},
	$self->{'name'},$self->{'domain'});
	}
	$title .= "</h1>\n";
	$title .= '<h2>'.$self->{'coursedesc'}."</h2>\n";
	$title .= '<h3>'.localtime(time).'</h3>';
return $title;	return $title;
}	}