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

[www]

www		Fri Mar  9 16:36:01 2012 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Cleanup: inc-command fully supported at least since version 1.3
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1156 loncom/lonnet/perl/lonnet.pm:1.1157
--- loncom/lonnet/perl/lonnet.pm:1.1156	Tue Feb 28 14:27:55 2012
+++ loncom/lonnet/perl/lonnet.pm	Fri Mar  9 16:36:00 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1156 2012/02/28 14:27:55 www Exp $
+# $Id: lonnet.pm,v 1.1157 2012/03/09 16:36:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3266,12 +3266,6 @@
             my $result = &inc('nohist_accesscount',\%temphash,$dom,$name);
             if ($result eq 'ok') {
                 delete $accesshash{$entry};
-            } elsif ($result eq 'unknown_cmd') {
-                # Target server has old code running on it.
-                my %temphash=($entry => $value);
-                if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') {
-                    delete $accesshash{$entry};
-                }
             }
         } else {
             my ($dom,$name) = ($entry=~m{___($match_domain)/($match_name)/(.*)___(\w+)$});