loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.432, 2006/07/19 10:52:27	version 1.433, 2006/07/19 10:58:31
Line 2048 sub nickname {	Line 2048 sub nickname {

sub getnames {	sub getnames {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
	if ($udom eq 'public' && $uname eq 'public') {
	return ('lastname' => &mt('Public'));
	}
my $id=$uname.':'.$udom;	my $id=$uname.':'.$udom;
my ($names,$cached)=&Apache::lonnet::is_cached_new('namescache',$id);	my ($names,$cached)=&Apache::lonnet::is_cached_new('namescache',$id);
if ($cached) {	if ($cached) {
Line 2885 sub bodytag {	Line 2888 sub bodytag {
} else {	} else {
$role = &Apache::lonnet::plaintext($role);	$role = &Apache::lonnet::plaintext($role);
}	}

if (!$realm) { $realm=' '; }	if (!$realm) { $realm=' '; }
# Set messages	# Set messages
my $messages=&domainlogo($domain);	my $messages=&domainlogo($domain);
Line 2913 sub bodytag {	Line 2917 sub bodytag {
}	}

my $name = &plainname($env{'user.name'},$env{'user.domain'});	my $name = &plainname($env{'user.name'},$env{'user.domain'});
	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
	undef($role);
	}

my $roleinfo=(<<ENDROLE);	my $roleinfo=(<<ENDROLE);
<td class="LC_title_bar_who">	<td class="LC_title_bar_who">