loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1373, 2021/12/24 00:48:30	version 1.1375, 2022/01/18 21:03:15
Line 5225 sub blockcheck {	Line 5225 sub blockcheck {
}	}
}	}
}	}
	} elsif (($activity eq 'com') \|\| ($activity eq 'port') \|\| ($activity eq 'blogs') \|\|
	($activity eq 'about') \|\| ($activity eq 'wishlist') \|\| ($activity eq 'passwd')) {
	my $checkrole;
	if ($env{'request.role.domain'} eq '') {
	$checkrole = "cm./$env{'user.domain'}/";
	} else {
	$checkrole = "cm./$env{'request.role.domain'}/";
	}
	if (($checkrole) && (&Apache::lonnet::allowed('evb',undef,undef,$checkrole))) {
	$has_evb = 1;
	}
}	}
unless ($has_evb \|\| $check_ipaccess) {	unless ($has_evb \|\| $check_ipaccess) {
my @machinedoms = &Apache::lonnet::current_machine_domains();	my @machinedoms = &Apache::lonnet::current_machine_domains();
Line 5941 sub domainlogo {	Line 5952 sub domainlogo {
&Apache::lonnet::repcopy($local_name);	&Apache::lonnet::repcopy($local_name);
}	}
$imgsrc = &lonhttpdurl($imgsrc);	$imgsrc = &lonhttpdurl($imgsrc);
}	}
return '<img src="'.$imgsrc.'" alt="'.$domain.'" />';	my $alttext = $domain;
	if ($designhash{$domain.'.login.alttext_domlogo'} ne '') {
	$alttext = $designhash{$domain.'.login.alttext_domlogo'};
	}
	return '<img src="'.$imgsrc.'" alt="'.$alttext.'" id="lclogindomlogo" />';
} elsif (defined(&Apache::lonnet::domain($domain,'description'))) {	} elsif (defined(&Apache::lonnet::domain($domain,'description'))) {
return &Apache::lonnet::domain($domain,'description');	return &Apache::lonnet::domain($domain,'description');
} else {	} else {