[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat May 10 14:24:19 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11
    - Backport 1.1260
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.47 loncom/lonnet/perl/lonnet.pm:1.1172.2.48
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.47	Mon May  5 11:53:37 2014
+++ loncom/lonnet/perl/lonnet.pm	Sat May 10 14:24:19 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.47 2014/05/05 11:53:37 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.48 2014/05/10 14:24:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11918,7 +11918,7 @@
 sub fetch_dns_checksums {
     my %checksums;
     my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});
-    my $loncaparev = &get_server_loncaparev($machine_dom);
+    my $loncaparev = &get_server_loncaparev($machine_dom,$perlvar{'lonHostID'});
     my ($release,$timestamp) = split(/\-/,$loncaparev);
     &get_dns("/adm/dns/checksums/$release",\&parse_dns_checksums_tab,1,1,
              \%checksums);