[LON-CAPA-cvs] cvs: loncom /interface lonspreadsheet.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Fri, 08 Nov 2002 20:18:29 -0000
matthew Fri Nov 8 15:18:29 2002 EDT
Modified files:
/loncom/interface lonspreadsheet.pm
Log:
Removed logging code.
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.136 loncom/interface/lonspreadsheet.pm:1.137
--- loncom/interface/lonspreadsheet.pm:1.136 Fri Nov 8 10:28:03 2002
+++ loncom/interface/lonspreadsheet.pm Fri Nov 8 15:18:29 2002
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.136 2002/11/08 15:28:03 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.137 2002/11/08 20:18:29 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1520,7 +1520,6 @@
my $filename = '/prtspool/'.
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
time.'_'.rand(1000000000).'.xls';
- #&Apache::lonnet::logthis("spreadsheet:filename = ".$filename);
my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
if (! defined($workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");
@@ -2573,7 +2572,6 @@
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;
my $found='';
if ($oldsheets{$key}) {
- &Apache::lonnet::logthis("got cached $stype for $uname");
foreach (split(/___&\___/,$oldsheets{$key})) {
my ($name,$value)=split(/___=___/,$_);
if ($name eq $fn) {
@@ -2584,7 +2582,6 @@
unless ($found) {
&cachedssheets($sheet,$uname,$udom);
if ($oldsheets{$key}) {
- &Apache::lonnet::logthis("got cached $stype for $uname");
foreach (split(/___&\___/,$oldsheets{$key})) {
my ($name,$value)=split(/___=___/,$_);
if ($name eq $fn) {
@@ -2723,7 +2720,6 @@
$oldsheets{$key} = $value;
$count++;
}
- &Apache::lonnet::logthis('saved '.$count.' cached sheets for '.$uname);
$loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
}
}