loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.1, 2003/05/16 20:55:11	version 1.2, 2003/05/19 15:48:18
Line 46 package Apache::assesscalc;	Line 46 package Apache::assesscalc;
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::Spreadsheet;	use Apache::Spreadsheet;
use HTML::Entities();	use HTML::Entities();
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
Line 321 sub get_title {	Line 322 sub get_title {
} else {	} else {
$title = '<h1>'.&Apache::lonnet::gettitle($self->{'symb'})."</h1>\n";	$title = '<h1>'.&Apache::lonnet::gettitle($self->{'symb'})."</h1>\n";
}	}
$title .= '<h2>'.$self->{'name'}.'@'.$self->{'domain'}."</h2>\n";	# Look up the users identifying information
	# Get the users information
	my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},
	$self->{'domain'});
	my $name =
	join(' ',@userenv{'firstname','middlename','lastname','generation'});
	$name =~ s/\s+$//;
	$title .= '<h2>'.$name.', '.
	&Apache::loncommon::aboutmewrapper($self->{'name'}.'@'.$self->{'domain'},
	$self->{'name'},$self->{'domain'}).
	"</h2>\n";
$title .= '<h3>'.localtime(time).'</h3>';	$title .= '<h3>'.localtime(time).'</h3>';
#	#
return $title;	return $title;