--- loncom/lonnet/perl/lonnet.pm 2005/04/25 17:18:15 1.629 +++ loncom/lonnet/perl/lonnet.pm 2005/04/29 18:38:13 1.630 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.629 2005/04/25 17:18:15 banghart Exp $ +# $Id: lonnet.pm,v 1.630 2005/04/29 18:38:13 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3898,7 +3898,6 @@ sub unmark_as_readonly { my @del_keys; if (ref($current_locks) eq "ARRAY"){ foreach my $locker (@{$current_locks}) { - &logthis("$$locker[0].$$locker[1] eq $symb_crs"); if ($$locker[0].$$locker[1] eq $symb_crs) { if (defined($file_name) && ($file_name ne $file)) { push(@new_locks, $what); @@ -5332,7 +5331,6 @@ sub receipt { sub getfile { my ($file) = @_; - &Apache::lonnet::logthis("file name is $file"); if ($file =~ m -^/*(uploaded|editupload)/-) { $file=&filelocation("",$file); } &repcopy($file); return &readfile($file);