loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.147, 2011/08/01 23:33:43	version 1.148, 2011/08/02 03:11:48
Line 7149 sub modify_usersessions {	Line 7149 sub modify_usersessions {
if (ref($changes{$prefix}) eq 'HASH') {	if (ref($changes{$prefix}) eq 'HASH') {
foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {	foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) {
$resulttext .= '<li><b>'.$lonhost.'</b> ';	$resulttext .= '<li><b>'.$lonhost.'</b> ';
	my $lonhostdom = &Apache::lonnet::host_domain($lonhost);
	&Apache::lonnet::remote_devalidate_cache($lonhost,'spares',$lonhostdom);
if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {	if (ref($changes{$prefix}{$lonhost}) eq 'HASH') {
foreach my $type (@{$types{$prefix}}) {	foreach my $type (@{$types{$prefix}}) {
if ($changes{$prefix}{$lonhost}{$type}) {	if ($changes{$prefix}{$lonhost}{$type}) {