--- loncom/interface/domainprefs.pm 2011/08/01 23:33:43 1.147 +++ loncom/interface/domainprefs.pm 2011/08/02 03:11:48 1.148 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.147 2011/08/01 23:33:43 raeburn Exp $ +# $Id: domainprefs.pm,v 1.148 2011/08/02 03:11:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7149,6 +7149,8 @@ sub modify_usersessions { if (ref($changes{$prefix}) eq 'HASH') { foreach my $lonhost (sort(keys(%{$changes{$prefix}}))) { $resulttext .= '
  • '.$lonhost.' '; + my $lonhostdom = &Apache::lonnet::host_domain($lonhost); + &Apache::lonnet::remote_devalidate_cache($lonhost,'spares',$lonhostdom); if (ref($changes{$prefix}{$lonhost}) eq 'HASH') { foreach my $type (@{$types{$prefix}}) { if ($changes{$prefix}{$lonhost}{$type}) {