loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

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

version 1.33, 2004/02/24 20:47:14	version 1.35, 2004/12/08 00:15:18
Line 348 sub parmval {	Line 348 sub parmval {
#	#
# Cascade Up	# Cascade Up
my $space=$what;	my $space=$what;
$space=~s/\.\w+$//;	$space=~s/\.[^._]+$//;
if ($space ne '0') {	if ($space ne '0') {
my @parts=split(/_/,$space);	my @parts=split(/_/,$space);
my $id=pop(@parts);	my $id=pop(@parts);
Line 397 sub get_full_title {	Line 397 sub get_full_title {
my @title = ($self->get_title());	my @title = ($self->get_title());
# Look up the users identifying information	# Look up the users identifying information
# Get the users information	# Get the users information
my %userenv = &Apache::loncoursedata::GetUserName($self->{'name'},	my $name = &Apache::loncommon::plainname($self->{'name'},
$self->{'domain'});	$self->{'domain'});
my $name =
join(' ',@userenv{'firstname','middlename','lastname','generation'});
$name =~ s/\s+$//;
push (@title,$name);	push (@title,$name);
push (@title,&Apache::lonlocal::locallocaltime(time));	push (@title,&Apache::lonlocal::locallocaltime(time));
return @title;	return @title;