[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
From: banghart <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-04-29 18:38:13
Message-ID: cvsbanghart1114799893 () cvsserver
[Download RAW message or body]
banghart Fri Apr 29 14:38:13 2005 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
Remove debug stuff.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.629 loncom/lonnet/perl/lonnet.pm:1.630
--- loncom/lonnet/perl/lonnet.pm:1.629 Mon Apr 25 13:18:15 2005
+++ loncom/lonnet/perl/lonnet.pm Fri Apr 29 14:38:13 2005
@@ -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 @@
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 getfile {
my ($file) = @_;
- &Apache::lonnet::logthis("file name is $file");
if ($file =~ m -^/*(uploaded|editupload)/-) { $file=&filelocation("",$file); }
&repcopy($file);
return &readfile($file);
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic