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