[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.338

version 1.337, 2013/09/02 00:00:49 version 1.338, 2013/09/02 00:18:39
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.338

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