version 1.16, 2000/12/16 21:34:47
|
version 1.17, 2000/12/18 13:45:40
|
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 Gerd Kortemeyer |
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
Line 279 sub sett {
|
Line 279 sub sett {
|
} |
} |
} |
} |
} keys %f; |
} keys %f; |
|
$t{'A0'}=$f{'A0'}; |
|
$t{'A0'}=~s/\.\.+/\,/g; |
|
$t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
} |
} |
|
|
sub calc { |
sub calc { |
Line 454 sub rown {
|
Line 457 sub rown {
|
if ($showf==0) { $vl=$_; } |
if ($showf==0) { $vl=$_; } |
if ($showf<=1) { $bgcolor='#FFDDDD'; } |
if ($showf<=1) { $bgcolor='#FFDDDD'; } |
if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; } |
if (($n==0) && ($showf<=26)) { $bgcolor='#CCCCFF'; } |
if ($showf>1) { |
if (($showf>1) || ((!$n) && ($showf>0))) { |
if ($vl eq '') { |
if ($vl eq '') { |
$vl='<font size=+2 color='.$bgcolor.'>#</font>'; |
$vl='<font size=+2 color='.$bgcolor.'>#</font>'; |
} |
} |
Line 734 sub updaterows {
|
Line 737 sub updaterows {
|
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$existing{$f{$_}}=1; |
$existing{$f{$_}}=1; |
unless (defined($current{$f{$_}})) { |
unless ((defined($current{$f{$_}})) || (!$1)) { |
$f{$_}='!!! Obsolete'; |
$f{$_}='!!! Obsolete'; |
$changed=1; |
$changed=1; |
} |
} |
Line 768 sub rowazstudent {
|
Line 771 sub rowazstudent {
|
my %c=(); |
my %c=(); |
my %f=&getformulas($safeeval); |
my %f=&getformulas($safeeval); |
map { |
map { |
if ($_=~/^A/) { |
if ($_=~/^A(\d+)/) { |
|
my $row=$1; |
unless ($f{$_}=~/^\!/) { |
unless ($f{$_}=~/^\!/) { |
print &Apache::lonnet::ssi( |
my @assessdata=split(/\,/, |
|
&Apache::lonnet::ssi( |
'/res/msu/korte/junk.assesscalc',('utarget' => 'export', |
'/res/msu/korte/junk.assesscalc',('utarget' => 'export', |
'uname' => $uname, |
'uname' => $uname, |
'udom' => $udom, |
'udom' => $udom, |
'usymb' => $f{$_})). |
'usymb' => $f{$_}))); |
'<br>'.$f{$_}.'<br>'; |
my $index=0; |
|
map { |
|
$c{$_.$row}=$assessdata[$index]; |
|
print $_.':'.$c{$_.$row}.'<br>'; |
|
$index++; |
|
} ('A','B','C','D','E','F','G','H','I','J','K','L','M', |
|
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z'); |
|
|
} |
} |
} |
} |
} keys %f; |
} keys %f; |
Line 915 sub handler {
|
Line 927 sub handler {
|
($ENV{'request.state'} eq 'construct')) { |
($ENV{'request.state'} eq 'construct')) { |
|
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
map { |
map { |
my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
$value =~ tr/+/ /; |
$value =~ tr/+/ /; |
Line 981 ENDSCRIPT
|
Line 994 ENDSCRIPT
|
$ENV{'form.unewformula'}=~s/\'/\"/g; |
$ENV{'form.unewformula'}=~s/\'/\"/g; |
$r->print('New formula: '.$ENV{'form.unewfield'}.'='. |
$r->print('New formula: '.$ENV{'form.unewfield'}.'='. |
$ENV{'form.unewformula'}.'<br>'); |
$ENV{'form.unewformula'}.'<br>'); |
&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/', |
|
$ENV{'form.usymb'}, |
|
$ENV{'form.unewfield'},$ENV{'form.unewformula'}); |
|
&setfilename($sheetone,$r->filename); |
&setfilename($sheetone,$r->filename); |
$r->filename=~/\.(\w+)/; |
$r->filename=~/\.(\w+)/; |
&settype($sheetone,$1); |
&settype($sheetone,$1); |
|
&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/', |
|
$ENV{'form.usymb'}, |
|
$ENV{'form.unewfield'},$ENV{'form.unewformula'}); |
} else { |
} else { |
&readsheet($sheetone,$r->filename); |
&readsheet($sheetone,$r->filename); |
} |
} |