|
version 1.1172.2.116, 2020/01/17 04:07:59
|
version 1.1172.2.117, 2020/01/17 04:52:33
|
|
Line 1987 sub inst_directory_query {
|
Line 1987 sub inst_directory_query {
|
| if ($homeserver ne '') { |
if ($homeserver ne '') { |
| unless ($homeserver eq $perlvar{'lonHostID'}) { |
unless ($homeserver eq $perlvar{'lonHostID'}) { |
| if ($srch->{'srchby'} eq 'email') { |
if ($srch->{'srchby'} eq 'email') { |
| my $lcrev = &get_server_loncaparev(undef,$homeserver); |
my $lcrev = &get_server_loncaparev($udom,$homeserver); |
| my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\d+)\.(\d+)\.(\d+)[\w.\-]+\'?$/); |
my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\d+)\.(\d+)\.(\d+)[\w.\-]+\'?$/); |
| if (($major eq '' && $minor eq '') || ($major < 2) || |
if (($major eq '' && $minor eq '') || ($major < 2) || |
| (($major == 2) && ($minor < 11)) || |
(($major == 2) && ($minor < 11)) || |
|
Line 2039 sub usersearch {
|
Line 2039 sub usersearch {
|
| if (&host_domain($tryserver) eq $dom) { |
if (&host_domain($tryserver) eq $dom) { |
| unless ($tryserver eq $perlvar{'lonHostID'}) { |
unless ($tryserver eq $perlvar{'lonHostID'}) { |
| if ($srch->{'srchby'} eq 'email') { |
if ($srch->{'srchby'} eq 'email') { |
| my $lcrev = &get_server_loncaparev(undef,$tryserver); |
my $lcrev = &get_server_loncaparev($dom,$tryserver); |
| my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\d+)\.(\d+)\.(\d+)[\w.\-]+)\'?$/); |
my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\d+)\.(\d+)\.(\d+)[\w.\-]+)\'?$/); |
| next if (($major eq '' && $minor eq '') || ($major < 2) || |
next if (($major eq '' && $minor eq '') || ($major < 2) || |
| (($major == 2) && ($minor < 11)) || |
(($major == 2) && ($minor < 11)) || |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl