loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.158, 2021/12/13 19:55:44	version 1.1075.2.159, 2021/12/17 19:59:39
Line 5689 sub bodytag {	Line 5689 sub bodytag {
if ($realm) {	if ($realm) {
$realm = '/'.$realm;	$realm = '/'.$realm;
}	}
if ($rol 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 5748 sub bodytag {	Line 5748 sub bodytag {
#	#
# Extra info if you are the DC	# Extra info if you are the DC
my $dc_info = '';	my $dc_info = '';
if (($env{'user.adv'} && ($env{'request.course.id'}) &&	if (($env{'user.adv'}) && ($env{'request.course.id'}) &&
(exists($env{'user.role.dc./'.$env{'course.'.$cid.'.domain'}.'/'}))) {	(exists($env{'user.role.dc./'.$env{'course.'.$cid.'.domain'}.'/'}))) {
$dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};	$dc_info = $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
$dc_info =~ s/\s+$//;	$dc_info =~ s/\s+$//;