--- loncom/interface/Attic/lonspreadsheet.pm 2002/11/08 15:28:03 1.136 +++ loncom/interface/Attic/lonspreadsheet.pm 2002/11/08 20:18:29 1.137 @@ -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 @@ sub create_excel_spreadsheet { 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 @@ sub exportsheet { 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 @@ sub exportsheet { 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 @@ sub cachedssheets { $oldsheets{$key} = $value; $count++; } - &Apache::lonnet::logthis('saved '.$count.' cached sheets for '.$uname); $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1; } }