--- loncom/lonnet/perl/lonnet.pm	2011/06/06 23:28:48	1.1111
+++ loncom/lonnet/perl/lonnet.pm	2011/06/07 17:42:29	1.1112
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1111 2011/06/06 23:28:48 www Exp $
+# $Id: lonnet.pm,v 1.1112 2011/06/07 17:42:29 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1999,20 +1999,18 @@ sub getversion {
 
 sub currentversion {
     my $fname=shift;
-    my ($result,$cached)=&is_cached_new('resversion',$fname);
-    if (defined($cached)) { return $result; }
     my $author=$fname;
     $author=~s/\/home\/httpd\/html\/res\/([^\/]*)\/([^\/]*).*/$1\/$2/;
     my ($udom,$uname)=split(/\//,$author);
-    my $home=homeserver($uname,$udom);
+    my $home=&homeserver($uname,$udom);
     if ($home eq 'no_host') { 
         return -1; 
     }
-    my $answer=reply("currentversion:$fname",$home);
+    my $answer=&reply("currentversion:$fname",$home);
     if (($answer eq 'con_lost') || ($answer eq 'rejected')) {
 	return -1;
     }
-    return &do_cache_new('resversion',$fname,$answer,600);
+    return $answer;
 }
 
 #