[BACK]Return to courseprefs.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/courseprefs.pm between versions 1.119 and 1.120

version 1.119, 2023/04/13 15:21:00 version 1.120, 2023/05/22 21:10:55
Line 1883  sub process_ltitools { Line 1883  sub process_ltitools {
     my @allfields = ('fullname','firstname','lastname','email','user','roles');      my @allfields = ('fullname','firstname','lastname','email','user','roles');
     map { $possfield{$_} = 1; } @allfields;      map { $possfield{$_} = 1; } @allfields;
   
     my ($dest,$privnum,$cipher,$errors,%ltitools);      my ($dest,$privnum,$cipher);
   
     ($cipher,$privnum) = &get_credentials($cdom,$cnum,'ltitools',$context);      ($cipher,$privnum) = &get_credentials($cdom,$cnum,'ltitools',$context);
     if ($context eq 'domain') {      if ($context eq 'domain') {
Line 3223  sub store_ltitools { Line 3223  sub store_ltitools {
                 &Apache::lonnet::devalidate_cache_new('courseltitools',$hashid);                  &Apache::lonnet::devalidate_cache_new('courseltitools',$hashid);
                 unless (($home eq 'no_host') || ($home eq '')) {                  unless (($home eq 'no_host') || ($home eq '')) {
                     if (grep(/^\Q$home\E$/,@ids)) {                      if (grep(/^\Q$home\E$/,@ids)) {
                         &Apache::lonnet::devalidate_cache_new('courseltitoolsenc',$hashid);                          &Apache::lonnet::devalidate_cache_new('crsltitoolsenc',$hashid);
                     }                      }
                 }                  }
             } else {              } else {
Line 6310  sub print_bridgetasks { Line 6310  sub print_bridgetasks {
 sub print_ltitools {  sub print_ltitools {
     my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_;      my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_;
     my ($datatable,$disabled,$css_class,$dest);      my ($datatable,$disabled,$css_class,$dest);
     my %lt = &ltitools_names();  
     my $itemcount = 1;      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 = '<tr '.$css_class.'><td colspan="2">'.
                            &mt("Definition of external tools is not enabled for this $showtype.").'<br />';
               if ($tooltypes{'dom'}) {
                            $datatable .= &mt("Contact an administrator for the $showtype domain ([_1]) to request this feature be enabled.",
                                              '<i>'.$cdom.'</i>').
                            '<br /><br />'.
                            &mt("Use of external tools defined at a domain level is enabled, so the $showtype editor can be used to add tool(s), if any have been defined.");
               } else {
                   $datatable .= &mt("Use of external tools defined at a domain level is not enabled, either, for this $showtype.").
                                 '<br /><br />'.
                                 &mt("Contact an administrator for the $showtype domain ([_1]) to request changes.",
                                     '<i>'.$cdom.'</i>');
   
               }
               $datatable .= '</tr>';
               $itemcount ++;
               return $datatable;
           }
       }
       my %lt = &ltitools_names();
     my $maxnum = 0;      my $maxnum = 0;
     my %ordered;      my %ordered;
     if (ref($settings) eq 'HASH') {      if (ref($settings) eq 'HASH') {
Line 6393  sub print_ltitools { Line 6420  sub print_ltitools {
                 '<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'.                  '<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'.
                 '<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'.                  '<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'.
                 '<br /><br />'.                  '<br /><br />'.
                 '<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_url_'.$i.'"'.                  '<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="60" name="ltitools_url_'.$i.'"'.
                 ' value="'.$url.'" /></span>'.                  ' value="'.$url.'" /></span>'.
                 ('&nbsp;'x2).                  ('&nbsp;'x2).
                 '<span class="LC_nobreak">'.$lt{'lifetime'}.':'.                  '<span class="LC_nobreak">'.$lt{'lifetime'}.':'.
Line 6671  sub print_ltitools { Line 6698  sub print_ltitools {
                   '<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'.                    '<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'.
                   '<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'.                    '<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'.
                   '<br />'.                    '<br />'.
                   '<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_add_url" value="" /></span> '."\n".                    '<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="60" name="ltitools_add_url" value="" /></span> '."\n".
                   ('&nbsp;'x2).                    ('&nbsp;'x2).
                   '<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span><br />';                    '<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span><br />';
     if ($switchserver) {      if ($switchserver) {
Line 8224  sub devalidate_remote_courseprefs { Line 8251  sub devalidate_remote_courseprefs {
     my %servers = &Apache::lonnet::internet_dom_servers($cdom);      my %servers = &Apache::lonnet::internet_dom_servers($cdom);
     my %thismachine;      my %thismachine;
     map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();      map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids();
     my @posscached = ('courselti');      my @posscached = ('courselti','courseltitools');
     if (keys(%servers)) {      if (keys(%servers)) {
         foreach my $server (keys(%servers)) {          foreach my $server (keys(%servers)) {
             next if ($thismachine{$server});              next if ($thismachine{$server});
Removed from v.1.119  
changed lines
  Added in v.1.120

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>