loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1172.2.93.4.5, 2017/11/01 03:29:37	version 1.1172.2.93.4.6, 2017/11/01 08:49:57
Line 1899 sub usersearch {	Line 1899 sub usersearch {
my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\d+)\.(\d+)\.([\w.\-]+)\'?$/);	my ($major,$minor,$subver) = ($lcrev =~ /^\'?(\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)) \|\|
(($major == 2) && ($minor == 11) && ($subver !~ /^2\.B/))) {	(($major == 2) && ($minor == 11) && ($subver !~ /^2\.B/)));
}	}
}	}
my $host=&hostname($tryserver);	my $host=&hostname($tryserver);