--- loncom/lonnet/perl/lonnet.pm	2013/09/01 22:39:48	1.1237
+++ loncom/lonnet/perl/lonnet.pm	2013/09/02 14:40:18	1.1238
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1237 2013/09/01 22:39:48 raeburn Exp $
+# $Id: lonnet.pm,v 1.1238 2013/09/02 14:40:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11708,30 +11708,12 @@ sub parse_dns_checksums_tab {
     my (%chksum,%revnum);
     if (ref($lines) eq 'ARRAY') {
         chomp(@{$lines});
-        my $versions = shift(@{$lines});
-        my %supported;
-        if ($versions =~ /^VERSIONS\:([\w\.\,]+)$/) {
-            my $releaseslist = $1;
-            if ($releaseslist =~ /,/) {
-                map { $supported{$_} = 1; } split(/,/,$releaseslist);
-            } elsif ($releaseslist) {
-                $supported{$releaseslist} = 1;
-            }
-        }
-        if ($supported{$release}) {  
-            my $matchthis = 0;
+        my $version = shift(@{$lines});
+        if ($version eq $release) {  
             foreach my $line (@{$lines}) {
-                if ($line =~ /^(\d[\w\.]+)$/) {
-                    if ($matchthis) {
-                        last;
-                    } elsif ($1 eq $release) {
-                        $matchthis = 1;
-                    }
-                } elsif ($matchthis) {
-                    my ($file,$version,$shasum) = split(/,/,$line);
-                    $chksum{$file} = $shasum;
-                    $revnum{$file} = $version;
-                }
+                my ($file,$version,$shasum) = split(/,/,$line);
+                $chksum{$file} = $shasum;
+                $revnum{$file} = $version;
             }
             if (ref($hashref) eq 'HASH') {
                 %{$hashref} = (
@@ -11745,8 +11727,11 @@ sub parse_dns_checksums_tab {
 }
 
 sub fetch_dns_checksums {
-    my %checksums; 
-    &get_dns('/adm/dns/checksums',\&parse_dns_checksums_tab,1,1,
+    my %checksums;
+    my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});
+    my $loncaparev = &get_server_loncaparev($machine_dom);
+    my ($release,$timestamp) = split(/\-/,$loncaparev);
+    &get_dns("/adm/dns/checksums/$release",\&parse_dns_checksums_tab,1,1,
              \%checksums);
     return \%checksums;
 }