loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.66, 2014/02/19 19:49:30	version 1.1075.2.68, 2014/02/23 22:39:21
Line 5068 sub bodytag {	Line 5068 sub bodytag {
@design{keys(%$addentries)} = @$addentries{keys(%$addentries)};	@design{keys(%$addentries)} = @$addentries{keys(%$addentries)};

# role and realm	# role and realm
my ($role,$realm) = split(/\./,$env{'request.role'},2);	my ($role,$realm) = split(m{\./},$env{'request.role'},2);
	if ($realm) {
	$realm = '/'.$realm;
	}
if ($role eq 'ca') {	if ($role eq 'ca') {
my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$});	my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$});
$realm = &plainname($rname,$rdom);	$realm = &plainname($rname,$rdom);
Line 15047 sub check_recaptcha {	Line 15050 sub check_recaptcha {
}	}

sub emailusername_info {	sub emailusername_info {
my @fields = ('lastname','firstname','institution','web','location','officialemail');	my @fields = ('firstname','lastname','institution','web','location','officialemail');
my %titles = &Apache::lonlocal::texthash (	my %titles = &Apache::lonlocal::texthash (
lastname => 'Last Name',	lastname => 'Last Name',
firstname => 'First Name',	firstname => 'First Name',