loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.890, 2009/09/25 13:51:58	version 1.893, 2009/10/01 17:25:17
Line 2964 sub aboutmewrapper {	Line 2964 sub aboutmewrapper {
if (!defined($username) && !defined($domain)) {	if (!defined($username) && !defined($domain)) {
return;	return;
}	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme?forcestudent=1"'.
($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt("View this user's personal information page").'">'.$link.'</a>';
}	}

Line 4046 sub determinedomain {	Line 4046 sub determinedomain {
my $domain=shift;	my $domain=shift;
if (! $domain) {	if (! $domain) {
# Determine domain if we have not been given one	# Determine domain if we have not been given one
$domain = $Apache::lonnet::perlvar{'lonDefDomain'};	$domain = &Apache::lonnet::default_login_domain();
if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }	if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }
if ($env{'request.role.domain'}) {	if ($env{'request.role.domain'}) {
$domain=$env{'request.role.domain'};	$domain=$env{'request.role.domain'};
Line 4653 a:focus {	Line 4653 a:focus {
background: yellow	background: yellow
}	}

hr {
clear: both;
color: $tabbg;
background-color: $tabbg;
height: 3px;
border: none;
}

form, .inline {	form, .inline {
display: inline;	display: inline;
}	}