[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;
         }
     }