[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.136 and 1.137

version 1.136, 2002/11/08 15:28:03 version 1.137, 2002/11/08 20:18:29
Line 1520  sub create_excel_spreadsheet { Line 1520  sub create_excel_spreadsheet {
     my $filename = '/prtspool/'.      my $filename = '/prtspool/'.
         $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.          $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
         time.'_'.rand(1000000000).'.xls';          time.'_'.rand(1000000000).'.xls';
     #&Apache::lonnet::logthis("spreadsheet:filename = ".$filename);  
     my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);      my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
     if (! defined($workbook)) {      if (! defined($workbook)) {
         $r->log_error("Error creating excel spreadsheet $filename: $!");          $r->log_error("Error creating excel spreadsheet $filename: $!");
Line 2573  sub exportsheet { Line 2572  sub exportsheet {
     my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;      my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;
     my $found='';      my $found='';
     if ($oldsheets{$key}) {      if ($oldsheets{$key}) {
         &Apache::lonnet::logthis("got cached $stype for $uname");  
         foreach (split(/___&\___/,$oldsheets{$key})) {          foreach (split(/___&\___/,$oldsheets{$key})) {
             my ($name,$value)=split(/___=___/,$_);              my ($name,$value)=split(/___=___/,$_);
             if ($name eq $fn) {              if ($name eq $fn) {
Line 2584  sub exportsheet { Line 2582  sub exportsheet {
     unless ($found) {      unless ($found) {
         &cachedssheets($sheet,$uname,$udom);          &cachedssheets($sheet,$uname,$udom);
         if ($oldsheets{$key}) {          if ($oldsheets{$key}) {
             &Apache::lonnet::logthis("got cached $stype for $uname");  
             foreach (split(/___&\___/,$oldsheets{$key})) {              foreach (split(/___&\___/,$oldsheets{$key})) {
                 my ($name,$value)=split(/___=___/,$_);                  my ($name,$value)=split(/___=___/,$_);
                 if ($name eq $fn) {                  if ($name eq $fn) {
Line 2723  sub cachedssheets { Line 2720  sub cachedssheets {
                 $oldsheets{$key} = $value;                  $oldsheets{$key} = $value;
                 $count++;                  $count++;
             }              }
             &Apache::lonnet::logthis('saved '.$count.' cached sheets for '.$uname);  
             $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;              $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
         }          }
     }      }
Removed from v.1.136  
changed lines
  Added in v.1.137

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>