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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.337 and 1.339

version 1.337, 2013/09/02 00:00:49 version 1.339, 2013/12/01 21:29:13
Line 52  search (on a server basis) is displayed Line 52  search (on a server basis) is displayed
   
 =head1 Internals  =head1 Internals
   
 =over 4  
   
 =cut  =cut
   
 ###############################################################################  ###############################################################################
Line 428  sub hidden_field { Line 426  sub hidden_field {
   
 ######################################################################  ######################################################################
   
 =pod   =pod
   
   =over 4
    
 =item &print_basic_search_form()   =item &print_basic_search_form() 
   
 Prints the form for the basic search.  Sorry the name is so cryptic.  Prints the form for the basic search.  Sorry the name is so cryptic.
Line 1015  This function is the reverse of &make_pe Line 1015  This function is the reverse of &make_pe
 Retrieve persistent data from %persistent_db.  Retrieved items will have their  Retrieve persistent data from %persistent_db.  Retrieved items will have their
 values unescaped.  If the item is 'domains; then the returned  values unescaped.  If the item is 'domains; then the returned
 value will be a hash pointer.  Otherwise, if the item contains  value will be a hash pointer.  Otherwise, if the item contains
 commas (before unescaping), the returned value will be an array pointer.   commas (before unescaping), the returned value will be an array pointer.
   
 =cut  =cut
   
Line 1071  Store variables away to the %persistent_ Line 1071  Store variables away to the %persistent_
 Values will be escaped.  Values that are array pointers will have their  Values will be escaped.  Values that are array pointers will have their
 elements escaped and concatenated in a comma separated string. Values   elements escaped and concatenated in a comma separated string. Values 
 that are hash pointers will have their keys and values escaped and   that are hash pointers will have their keys and values escaped and 
 concatenated in a comma separated string  concatenated in a comma separated string.
   
 =cut  =cut
   
Line 2359  END Line 2359  END
                 my $major = $1;                  my $major = $1;
                 my $minor = $2;                  my $minor = $2;
                 if (($major < 2) || (($major == 2) && ($minor < 11))) {                  if (($major < 2) || (($major == 2) && ($minor < 11))) {
                     map { $older_library_servers{$_} = 1; }                       map { $older_library_servers{$_} = 1; }
                         &Apache::lonnet::machine_ids($library_servers{$key});                          &Apache::lonnet::machine_ids($library_servers{$key});
                 }                  }
             }              }
Line 2369  END Line 2369  END
         foreach my $server (@Servers_to_contact) {          foreach my $server (@Servers_to_contact) {
             my %possdoms;              my %possdoms;
             map { $possdoms{$_}=1;  } &Apache::lonnet::machine_domains($all_library_servers{$server});              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.337  
changed lines
  Added in v.1.339

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