[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.19 and 1.20

version 1.19, 2000/12/19 15:40:08 version 1.20, 2000/12/30 17:13:54
Line 2 Line 2
 # Spreadsheet/Grades Display Handler  # Spreadsheet/Grades Display Handler
 #  #
 # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,  # 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
 # 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19 Gerd Kortemeyer  # 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30 Gerd Kortemeyer
   
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
   
Line 267  sub sett { Line 267  sub sett {
         $pattern='[A-Z]';          $pattern='[A-Z]';
     }      }
     map {      map {
  if ($f{$_}) {   if ($_=~/template\_(\w)/) {
     my $col=$1;
             unless ($col=~/^$pattern/) {
               map {
         if ($_=~/A(\d+)/) {
    my $trow=$1;
                   if ($trow) {
       my $lb=$col.$trow;
                       $t{$lb}=$f{'template_'.$col};
                       $t{$lb}=~s/\#/$trow/g;
                       $t{$lb}=~s/\.\.+/\,/g;
                       $t{$lb}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g;
                   }
         }
               } keys %f;
     }
         }
       } keys %f;
       map {
    if (($f{$_}) && ($_!~/template\_/)) {
             if ($_=~/^$pattern/) {              if ($_=~/^$pattern/) {
         unless ($f{$_}=~/^\!/) {          unless ($f{$_}=~/^\!/) {
     $t{$_}=$c{$_};      $t{$_}=$c{$_};
Line 563  sub readsheet { Line 582  sub readsheet {
   $f{$token->[2]->{'col'}.$token->[2]->{'row'}}=    $f{$token->[2]->{'col'}.$token->[2]->{'row'}}=
       $parser->get_text('/field');        $parser->get_text('/field');
       }        }
                if ($token->[1] eq 'template') {
                    $f{'template_'.$token->[2]->{'col'}}=
                        $parser->get_text('/template');
                }
           }            }
        }         }
        &setfilename($safeeval,'default_'.&gettype($safeeval));         &setfilename($safeeval,'default_'.&gettype($safeeval));
Line 584  sub readsheet { Line 607  sub readsheet {
       &Apache::lonnet::unescape($value);        &Apache::lonnet::unescape($value);
        } split(/\&/,$spreadsheets{$fn});         } split(/\&/,$spreadsheets{$fn});
     }      }
   
     &setformulas($safeeval,%f);      &setformulas($safeeval,%f);
 }  }
   
Removed from v.1.19  
changed lines
  Added in v.1.20

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