--- loncom/interface/domainprefs.pm 2014/04/28 04:12:41 1.160.6.42 +++ loncom/interface/domainprefs.pm 2014/05/04 22:19:29 1.160.6.43 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.160.6.42 2014/04/28 04:12:41 raeburn Exp $ +# $Id: domainprefs.pm,v 1.160.6.43 2014/05/04 22:19:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -606,7 +606,7 @@ sub process_changes { } elsif ($action eq 'scantron') { $output = &modify_scantron($r,$dom,$confname,$lastactref,%domconfig); } elsif ($action eq 'coursecategories') { - $output = &modify_coursecategories($dom,%domconfig); + $output = &modify_coursecategories($dom,$lastactref,%domconfig); } elsif ($action eq 'serverstatuses') { $output = &modify_serverstatuses($dom,%domconfig); } elsif ($action eq 'requestcourses') { @@ -9346,7 +9346,7 @@ sub modify_scantron { } sub modify_coursecategories { - my ($dom,%domconfig) = @_; + my ($dom,$lastactref,%domconfig) = @_; my ($resulttext,%deletions,%reorderings,%needreordering,%adds,%changes,$errors, $cathash); my @deletecategory = &Apache::loncommon::get_env_multiple('form.deletecategory'); @@ -9587,6 +9587,12 @@ sub modify_coursecategories { } } $resulttext .= ''; + if ($changes{'unauth'} || $changes{'auth'}) { + &Apache::loncommon::devalidate_domconfig_cache($dom); + if (ref($lastactref) eq 'HASH') { + $lastactref->{'domainconfig'} = 1; + } + } } else { $resulttext = ''. &mt('An error occurred: [_1]',$putresult).'';