--- loncom/interface/courseprefs.pm 2023/04/13 15:21:00 1.119 +++ loncom/interface/courseprefs.pm 2023/06/01 20:04:36 1.121 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set configuration settings for a course # -# $Id: courseprefs.pm,v 1.119 2023/04/13 15:21:00 raeburn Exp $ +# $Id: courseprefs.pm,v 1.121 2023/06/01 20:04:36 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1883,7 +1883,7 @@ sub process_ltitools { my @allfields = ('fullname','firstname','lastname','email','user','roles'); map { $possfield{$_} = 1; } @allfields; - my ($dest,$privnum,$cipher,$errors,%ltitools); + my ($dest,$privnum,$cipher); ($cipher,$privnum) = &get_credentials($cdom,$cnum,'ltitools',$context); if ($context eq 'domain') { @@ -3223,7 +3223,7 @@ sub store_ltitools { &Apache::lonnet::devalidate_cache_new('courseltitools',$hashid); unless (($home eq 'no_host') || ($home eq '')) { if (grep(/^\Q$home\E$/,@ids)) { - &Apache::lonnet::devalidate_cache_new('courseltitoolsenc',$hashid); + &Apache::lonnet::devalidate_cache_new('crsltitoolsenc',$hashid); } } } else { @@ -6310,8 +6310,38 @@ sub print_bridgetasks { sub print_ltitools { my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_; my ($datatable,$disabled,$css_class,$dest); - my %lt = <itools_names(); + if ($noedit) { + $disabled = ' disabled="disabled"'; + } my $itemcount = 1; + unless ($context eq 'domain') { + my %tooltypes = &Apache::loncommon::usable_exttools(); + unless ($tooltypes{'crs'}) { + my $showtype = 'course'; + if ($crstype eq 'Community') { + $showtype = lc($crstype); + } + $css_class = $itemcount%2?' class="LC_odd_row"':''; + $datatable = '