--- loncom/lonnet/perl/lonnet.pm 2005/03/03 05:45:50 1.603 +++ loncom/lonnet/perl/lonnet.pm 2005/03/03 07:45:01 1.604 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.603 2005/03/03 05:45:50 albertel Exp $ +# $Id: lonnet.pm,v 1.604 2005/03/03 07:45:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -911,8 +911,8 @@ sub make_room { } sub purge_remembered { - &logthis("Tossing ".scalar(keys(%remembered))); - &logthis(sprintf("%-20s is %s",'%remembered',length(&freeze(\%remembered)))); + #&logthis("Tossing ".scalar(keys(%remembered))); + #&logthis(sprintf("%-20s is %s",'%remembered',length(&freeze(\%remembered)))); undef(%remembered); undef(%accessed); }