[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2020-01-17 4:52:34
Message-ID: cvsraeburn1579236754 () cvsserver
[Download RAW message or body]
raeburn Fri Jan 17 04:52:34 2020 EDT
Modified files: (Branch: version_2_11_X)
/loncom/lonnet/perl lonnet.pm
Log:
- For 2.11
Backport 1.1417
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.116 loncom/lonnet/perl/lonnet.pm:1.1172.2.117
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.116 Fri Jan 17 04:07:59 2020
+++ loncom/lonnet/perl/lonnet.pm Fri Jan 17 04:52:33 2020
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.1172.2.116 2020/01/17 04:07:59 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.117 2020/01/17 04:52:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1987,7 +1987,7 @@
if ($homeserver ne '') {
unless ($homeserver eq $perlvar{'lonHostID'}) {
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.\-]+\'?$/);
if (($major eq '' && $minor eq '') || ($major < 2) ||
(($major == 2) && ($minor < 11)) ||
@@ -2039,7 +2039,7 @@
if (&host_domain($tryserver) eq $dom) {
unless ($tryserver eq $perlvar{'lonHostID'}) {
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.\-]+)\'?$/);
next if (($major eq '' && $minor eq '') || ($major < 2) ||
(($major == 2) && ($minor < 11)) ||
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic