loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.54, 2002/10/04 06:22:12	version 1.55, 2002/10/16 19:13:57
Line 40 use Apache::lonxml;	Line 40 use Apache::lonxml;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonhomework;	use Apache::lonhomework;
	use Apache::loncoursedata;
use Apache::lonmsg qw(:user_normal_msg);	use Apache::lonmsg qw(:user_normal_msg);
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);

Line 72 sub get_symb_and_url {	Line 73 sub get_symb_and_url {
sub get_fullname {	sub get_fullname {
my ($uname,$udom) = @_;	my ($uname,$udom) = @_;
my %name=&Apache::lonnet::get('environment', ['lastname','generation',	my %name=&Apache::lonnet::get('environment', ['lastname','generation',
'firstname','middlename'],$udom,$uname);	'firstname','middlename'],
	$udom,$uname);
my $fullname;	my $fullname;
my ($tmp) = keys(%name);	my ($tmp) = keys(%name);
if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
$fullname=$name{'lastname'}.$name{'generation'};	$fullname = &Apache::loncoursedata::ProcessFullName
if ($fullname =~ /[^\s]+/) { $fullname.=', '; }	(@name{qw/lastname generation firstname middlename/});
$fullname.=$name{'firstname'}.' '.$name{'middlename'};	} else {
	&Apache::lonnet::logthis('grades.pm: no name data for '.$uname.
	'@'.$udom.':'.$tmp);
}	}
return $fullname;	return $fullname;
}	}