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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.351 and 1.353

version 1.351, 2016/11/15 20:03:50 version 1.353, 2017/08/11 00:32:07
Line 687  function additional_metadata() { Line 687  function additional_metadata() {
   
     $scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Domains')));      $scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Domains')));
     if ($anydomain) {      if ($anydomain) {
           my $defdom = &Apache::lonnet::default_login_domain();
           my ($trusted,$untrusted) = &Apache::lonnet::trusted_domains('shared',$defdom);
         $scrout .= &Apache::loncommon::domain_select('domains',          $scrout .= &Apache::loncommon::domain_select('domains',
                    $env{'form.domains'},1);                     $env{'form.domains'},1,$trusted,$untrusted);
     } else {      } else {
         $scrout .= &Apache::loncommon::select_dom_form($env{'user.domain'},          $scrout .= &Apache::loncommon::select_dom_form($env{'user.domain'},
                                                        'domains','','','',[$env{'user.domain'}],'',1);                                                         'domains','','','',[$env{'user.domain'}],'',1);
Line 2400  END Line 2402  END
         %all_library_servers = (%library_servers,%older_library_servers);          %all_library_servers = (%library_servers,%older_library_servers);
         @Servers_to_contact = sort(keys(%all_library_servers));          @Servers_to_contact = sort(keys(%all_library_servers));
         foreach my $server (@Servers_to_contact) {          foreach my $server (@Servers_to_contact) {
             my %possdoms;  
             map { $possdoms{$_}=1;  } &Apache::lonnet::machine_domains($all_library_servers{$server});  
             $domains_by_server{$server} =              $domains_by_server{$server} =
                 join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server})));                  join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server})));
         }          }
Removed from v.1.351  
changed lines
  Added in v.1.353

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