--- loncom/interface/loncommon.pm 2014/02/19 15:50:56 1.1176 +++ loncom/interface/loncommon.pm 2014/02/23 20:52:58 1.1178 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1176 2014/02/19 15:50:56 raeburn Exp $ +# $Id: loncommon.pm,v 1.1178 2014/02/23 20:52:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5151,7 +5151,10 @@ sub bodytag { @design{keys(%$addentries)} = @$addentries{keys(%$addentries)}; # 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') { my ($rdom,$rname) = ($realm =~ m{^/($match_domain)/($match_username)$}); $realm = &plainname($rname,$rdom); @@ -15051,7 +15054,7 @@ sub check_recaptcha { } sub emailusername_info { - my @fields = ('lastname','firstname','institution','web','location','officialemail'); + my @fields = ('firstname','lastname','institution','web','location','officialemail'); my %titles = &Apache::lonlocal::texthash ( lastname => 'Last Name', firstname => 'First Name',