version 1.31, 2001/01/02 22:58:46
|
version 1.57, 2001/07/21 23:55:31
|
Line 3
|
Line 3
|
# |
# |
# 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,12/30, |
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30, |
# 01/01/01,02/01 Gerd Kortemeyer |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
|
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17, |
|
# 03/19,03/20,03/21,03/27,04/05,04/09, |
|
# 07/09,07/14,07/21 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
use strict; |
use strict; |
use Safe; |
use Safe; |
use Safe::Hole; |
use Safe::Hole; |
Line 17 use GDBM_File;
|
Line 20 use GDBM_File;
|
use HTML::TokeParser; |
use HTML::TokeParser; |
|
|
# |
# |
|
# Caches for previously calculated spreadsheets |
|
# |
|
|
|
my %oldsheets; |
|
my %loadedcaches; |
|
my %expiredates; |
|
|
|
# |
|
# Cache for stores of an individual user |
|
# |
|
|
|
my $cachedassess; |
|
my %cachedstores; |
|
|
|
# |
# These cache hashes need to be independent of user, resource and course |
# These cache hashes need to be independent of user, resource and course |
# (user and course can/should be in the keys) |
# (user and course can/should be in the keys) |
# |
# |
use vars qw(%spreadsheets %courserdatas %userrdatas %defaultsheets); |
|
|
my %spreadsheets; |
|
my %courserdatas; |
|
my %userrdatas; |
|
my %defaultsheets; |
|
my %updatedata; |
|
|
# |
# |
# These global hashes are dependent on user, course and resource, |
# These global hashes are dependent on user, course and resource, |
Line 39 my $tmpdir;
|
Line 62 my $tmpdir;
|
# ===================================== Implements an instance of a spreadsheet |
# ===================================== Implements an instance of a spreadsheet |
|
|
sub initsheet { |
sub initsheet { |
my $safeeval = new Safe; |
my $safeeval = new Safe(shift); |
my $safehole = new Safe::Hole; |
my $safehole = new Safe::Hole; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
Line 55 sub initsheet {
|
Line 78 sub initsheet {
|
# v: output values |
# v: output values |
# c: preloaded constants (A-column) |
# c: preloaded constants (A-column) |
# rl: row label |
# rl: row label |
|
# os: other spreadsheets (for student spreadsheet only) |
|
|
%v=(); |
undef %v; |
%t=(); |
undef %t; |
%f=(); |
undef %f; |
%c=(); |
undef %c; |
%rl=(); |
undef %rl; |
|
undef @os; |
|
|
$maxrow=0; |
$maxrow=0; |
$sheettype=''; |
$sheettype=''; |
Line 304 sub sett {
|
Line 329 sub sett {
|
$t{$lb}=~s/\#/$trow/g; |
$t{$lb}=~s/\#/$trow/g; |
$t{$lb}=~s/\.\.+/\,/g; |
$t{$lb}=~s/\.\.+/\,/g; |
$t{$lb}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$lb}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
|
$t{$lb}=~s/(^|[^\"\'])\[(\w+)\]/$1\$c\{\'$2\'\}/g; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |
Line 312 sub sett {
|
Line 338 sub sett {
|
} keys %f; |
} keys %f; |
map { |
map { |
if (($f{$_}) && ($_!~/template\_/)) { |
if (($f{$_}) && ($_!~/template\_/)) { |
if ($_=~/^$pattern/) { |
my $matches=($_=~/^$pattern(\d+)/); |
|
if (($matches) && ($1)) { |
unless ($f{$_}=~/^\!/) { |
unless ($f{$_}=~/^\!/) { |
$t{$_}=$c{$_}; |
$t{$_}=$c{$_}; |
} |
} |
Line 320 sub sett {
|
Line 347 sub sett {
|
$t{$_}=$f{$_}; |
$t{$_}=$f{$_}; |
$t{$_}=~s/\.\.+/\,/g; |
$t{$_}=~s/\.\.+/\,/g; |
$t{$_}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{$_}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
|
$t{$_}=~s/(^|[^\"\'])\[([\w\.]+)\]/$1\$c\{\'$2\'\}/g; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |
$t{'A0'}=$f{'A0'}; |
$t{'A0'}=$f{'A0'}; |
$t{'A0'}=~s/\.\.+/\,/g; |
$t{'A0'}=~s/\.\.+/\,/g; |
$t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
$t{'A0'}=~s/(^|[^\"\'])([A-Za-z]\d+)/$1\$v\{\'$2\'\}/g; |
|
$t{'A0'}=~s/(^|[^\"\'])\[([\w\.]+)\]/$1\$c\{\'$2\'\}/g; |
} |
} |
|
|
sub calc { |
sub calc { |
Line 371 sub outrowassess {
|
Line 400 sub outrowassess {
|
my $n=shift; |
my $n=shift; |
my @cols=(); |
my @cols=(); |
if ($n) { |
if ($n) { |
$cols[0]=$rl{$f{'A'.$n}}; |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n}); |
|
$cols[0]=$f{'A'.$n}.'<br>'.$rl{$usy}.'<br>'. |
|
'<select name="sel_'.$n.'" onChange="changesheet('.$n. |
|
')"><option name="default">Default</option>'; |
|
map { |
|
$cols[0].='<option name="'.$_.'"'; |
|
if ($ufn eq $_) { |
|
$cols[0].=' selected'; |
|
} |
|
$cols[0].='>'.$_.'</option>'; |
|
} @os; |
|
$cols[0].='</select>'; |
} else { |
} else { |
$cols[0]='<b><font size=+1>Export</font></b>'; |
$cols[0]='<b><font size=+1>Export</font></b>'; |
} |
} |
Line 423 ENDDEFS
|
Line 463 ENDDEFS
|
# ------------------------------------------------ Add or change formula values |
# ------------------------------------------------ Add or change formula values |
|
|
sub setformulas { |
sub setformulas { |
my ($safeeval,@f)=@_; |
my ($safeeval,%f)=@_; |
$safeeval->reval('%f='."('".join("','",@f)."');"); |
%{$safeeval->varglob('f')}=%f; |
} |
} |
|
|
# ------------------------------------------------ Add or change formula values |
# ------------------------------------------------ Add or change formula values |
|
|
sub setconstants { |
sub setconstants { |
my ($safeeval,@c)=@_; |
my ($safeeval,%c)=@_; |
$safeeval->reval('%c='."('".join("','",@c)."');"); |
%{$safeeval->varglob('c')}=%c; |
|
} |
|
|
|
# --------------------------------------------- Set names of other spreadsheets |
|
|
|
sub setothersheets { |
|
my ($safeeval,@os)=@_; |
|
@{$safeeval->varglob('os')}=@os; |
} |
} |
|
|
# ------------------------------------------------ Add or change formula values |
# ------------------------------------------------ Add or change formula values |
|
|
sub setrowlabels { |
sub setrowlabels { |
my ($safeeval,@rl)=@_; |
my ($safeeval,%rl)=@_; |
$safeeval->reval('%rl='."('".join("','",@rl)."');"); |
%{$safeeval->varglob('rl')}=%rl; |
} |
} |
|
|
# ------------------------------------------------------- Calculate spreadsheet |
# ------------------------------------------------------- Calculate spreadsheet |
Line 459 sub getvalues {
|
Line 506 sub getvalues {
|
|
|
sub getformulas { |
sub getformulas { |
my $safeeval=shift; |
my $safeeval=shift; |
return $safeeval->reval('%f'); |
return %{$safeeval->varglob('f')}; |
} |
} |
|
|
# -------------------------------------------------------------------- Get type |
# -------------------------------------------------------------------- Get type |
Line 574 sub exportdata {
|
Line 621 sub exportdata {
|
return $safeeval->reval('&exportrowa()'); |
return $safeeval->reval('&exportrowa()'); |
} |
} |
|
|
|
|
# ========================================================== End of Spreadsheet |
# ========================================================== End of Spreadsheet |
# ============================================================================= |
# ============================================================================= |
|
|
Line 612 sub rown {
|
Line 660 sub rown {
|
my $showf=0; |
my $showf=0; |
my $proc; |
my $proc; |
my $maxred; |
my $maxred; |
if (&gettype($safeeval) eq 'assesscalc') { |
if (&gettype($safeeval) eq 'studentcalc') { |
$proc='&outrowassess'; |
$proc='&outrowassess'; |
$maxred=1; |
$maxred=26; |
} else { |
} else { |
$proc='&outrow'; |
$proc='&outrow'; |
|
} |
|
if (&gettype($safeeval) eq 'assesscalc') { |
|
$maxred=1; |
|
} else { |
$maxred=26; |
$maxred=26; |
} |
} |
if ($n eq '-') { $proc='&templaterow'; $n=-1; } |
if ($n eq '-') { $proc='&templaterow'; $n=-1; } |
Line 690 sub outsheet {
|
Line 742 sub outsheet {
|
} |
} |
|
|
# |
# |
|
# ----------------------------------------------- Read list of available sheets |
|
# |
|
|
|
sub othersheets { |
|
my ($safeeval,$stype)=@_; |
|
|
|
my $cnum=&getcnum($safeeval); |
|
my $cdom=&getcdom($safeeval); |
|
my $chome=&getchome($safeeval); |
|
|
|
my @alternatives=(); |
|
my $result=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.':'. |
|
$stype.'_spreadsheets',$chome); |
|
if ($result!~/^error\:/) { |
|
map { |
|
$alternatives[$#alternatives+1]= |
|
&Apache::lonnet::unescape((split(/\=/,$_))[0]); |
|
} split(/\&/,$result); |
|
} |
|
return @alternatives; |
|
} |
|
|
|
# |
# -------------------------------------- Read spreadsheet formulas for a course |
# -------------------------------------- Read spreadsheet formulas for a course |
# |
# |
|
|
Line 774 sub readsheet {
|
Line 849 sub readsheet {
|
|
|
sub makenewsheet { |
sub makenewsheet { |
my ($uname,$udom,$stype,$usymb)=@_; |
my ($uname,$udom,$stype,$usymb)=@_; |
my $safeeval=initsheet(); |
my $safeeval=initsheet($stype); |
$safeeval->reval( |
$safeeval->reval( |
'$uname="'.$uname. |
'$uname="'.$uname. |
'";$udom="'.$udom. |
'";$udom="'.$udom. |
Line 809 sub writesheet {
|
Line 884 sub writesheet {
|
# ----------------------------------------------------------------- Write sheet |
# ----------------------------------------------------------------- Write sheet |
my $sheetdata=''; |
my $sheetdata=''; |
map { |
map { |
|
unless ($f{$_} eq 'import') { |
$sheetdata.=&Apache::lonnet::escape($_).'='. |
$sheetdata.=&Apache::lonnet::escape($_).'='. |
&Apache::lonnet::escape($f{$_}).'&'; |
&Apache::lonnet::escape($f{$_}).'&'; |
|
} |
} keys %f; |
} keys %f; |
$sheetdata=~s/\&$//; |
$sheetdata=~s/\&$//; |
my $reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.$fn.':'. |
my $reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.$fn.':'. |
Line 818 sub writesheet {
|
Line 895 sub writesheet {
|
if ($reply eq 'ok') { |
if ($reply eq 'ok') { |
$reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'. |
$reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'. |
$stype.'_spreadsheets:'. |
$stype.'_spreadsheets:'. |
&Apache::lonnet::escape($fn).'='.$ENV{'user.name'}, |
&Apache::lonnet::escape($fn).'='.$ENV{'user.name'}.'@'. |
|
$ENV{'user.domain'}, |
$chome); |
$chome); |
if ($reply eq 'ok') { |
if ($reply eq 'ok') { |
if ($makedef) { |
if ($makedef) { |
Line 876 sub tmpread {
|
Line 954 sub tmpread {
|
$fo{$name}=$value; |
$fo{$name}=$value; |
} |
} |
} |
} |
if ($nfield) { $fo{$nfield}=$nform; } |
if ($nform eq 'changesheet') { |
|
$fo{'A'.$nfield}=(split(/\_\_\&\&\&\_\_/,$fo{'A'.$nfield}))[0]; |
|
unless ($ENV{'form.sel_'.$nfield} eq 'Default') { |
|
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
|
} |
|
} else { |
|
if ($nfield) { $fo{$nfield}=$nform; } |
|
} |
&setformulas($safeeval,%fo); |
&setformulas($safeeval,%fo); |
} |
} |
|
|
Line 1002 sub updateclasssheet {
|
Line 1087 sub updateclasssheet {
|
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. |
':environment:firstname&middlename&lastname&generation', |
':environment:firstname&middlename&lastname&generation', |
&Apache::lonnet::homeserver($sname,$sdom)); |
&Apache::lonnet::homeserver($sname,$sdom)); |
$rowlabel=$ssec.' '.$reply{$sname}.'<br>'; |
$rowlabel='<a href="/adm/studentcalc?uname='.$sname. |
|
'&udom='.$sdom.'">'. |
|
$ssec.' '.$reply{$sname}.'<br>'; |
map { |
map { |
$rowlabel.=&Apache::lonnet::unescape($_).' '; |
$rowlabel.=&Apache::lonnet::unescape($_).' '; |
} split(/\&/,$reply); |
} split(/\&/,$reply); |
|
$rowlabel.='</a>'; |
} |
} |
$currentlist{&Apache::lonnet::unescape($name)}=$rowlabel; |
$currentlist{&Apache::lonnet::unescape($name)}=$rowlabel; |
} |
} |
Line 1056 sub updateclasssheet {
|
Line 1144 sub updateclasssheet {
|
sub updatestudentassesssheet { |
sub updatestudentassesssheet { |
my $safeeval=shift; |
my $safeeval=shift; |
my %bighash; |
my %bighash; |
|
my $stype=&gettype($safeeval); |
|
my %current=(); |
|
unless ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) { |
# -------------------------------------------------------------------- Tie hash |
# -------------------------------------------------------------------- Tie hash |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER,0640)) { |
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
|
|
my %allkeys=(); |
my %allkeys=('timestamp' => |
|
'Timestamp of Last Transaction<br>timestamp'); |
my %allassess=(); |
my %allassess=(); |
|
|
my $stype=&gettype($safeeval); |
my $adduserstr=''; |
|
if ((&getuname($safeeval) ne $ENV{'user.name'}) || |
|
(&getudom($safeeval) ne $ENV{'user.domain'})) { |
|
$adduserstr='&uname='.&getuname($safeeval). |
|
'&udom='.&getudom($safeeval); |
|
} |
|
|
map { |
map { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
if ($_=~/^src\_(\d+)\.(\d+)$/) { |
Line 1077 sub updatestudentassesssheet {
|
Line 1174 sub updatestudentassesssheet {
|
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}). |
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}). |
'___'.$resid.'___'. |
'___'.$resid.'___'. |
&Apache::lonnet::declutter($srcf); |
&Apache::lonnet::declutter($srcf); |
$allassess{$symb}=$bighash{'title_'.$id}; |
$allassess{$symb}= |
|
'<a href="/adm/assesscalc?usymb='.$symb.$adduserstr.'">'. |
|
$bighash{'title_'.$id}.'</a>'; |
if ($stype eq 'assesscalc') { |
if ($stype eq 'assesscalc') { |
map { |
map { |
if (($_=~/^stores\_(.*)/) || ($_=~/^parameter\_(.*)/)) { |
if (($_=~/^stores\_(.*)/) || ($_=~/^parameter\_(.*)/)) { |
Line 1086 sub updatestudentassesssheet {
|
Line 1184 sub updatestudentassesssheet {
|
my $display= |
my $display= |
&Apache::lonnet::metadata($srcf,$key.'.display'); |
&Apache::lonnet::metadata($srcf,$key.'.display'); |
unless ($display) { |
unless ($display) { |
$display= |
$display.= |
&Apache::lonnet::metadata($srcf,$key.'.name'); |
&Apache::lonnet::metadata($srcf,$key.'.name'); |
} |
} |
|
$display.='<br>'.$key; |
$allkeys{$key}=$display; |
$allkeys{$key}=$display; |
} |
} |
} split(/\,/,&Apache::lonnet::metadata($srcf,'keys')); |
} split(/\,/,&Apache::lonnet::metadata($srcf,'keys')); |
Line 1102 sub updatestudentassesssheet {
|
Line 1201 sub updatestudentassesssheet {
|
# %allkeys has a list of storage and parameter displays by unikey |
# %allkeys has a list of storage and parameter displays by unikey |
# %allassess has a list of all resource displays by symb |
# %allassess has a list of all resource displays by symb |
# |
# |
# -------------------- Find discrepancies between the course row table and this |
|
# |
|
my %f=&getformulas($safeeval); |
|
my $changed=0; |
|
|
|
my %current=(); |
|
if ($stype eq 'assesscalc') { |
if ($stype eq 'assesscalc') { |
%current=%allkeys; |
%current=%allkeys; |
} elsif ($stype eq 'studentcalc') { |
} elsif ($stype eq 'studentcalc') { |
%current=%allassess; |
%current=%allassess; |
} |
} |
|
$updatedata{$ENV{'request.course.fn'}.'_'.$stype}= |
|
join('___;___',%current); |
|
} else { |
|
return 'Could not access course data'; |
|
} |
|
# ------------------------------------------------------ Get current from cache |
|
} else { |
|
%current=split(/\_\_\_\;\_\_\_/, |
|
$updatedata{$ENV{'request.course.fn'}.'_'.$stype}); |
|
} |
|
# -------------------- Find discrepancies between the course row table and this |
|
# |
|
my %f=&getformulas($safeeval); |
|
my $changed=0; |
|
|
my $maxrow=0; |
my $maxrow=0; |
my %existing=(); |
my %existing=(); |
Line 1121 sub updatestudentassesssheet {
|
Line 1229 sub updatestudentassesssheet {
|
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$existing{$f{$_}}=1; |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_}); |
unless ((defined($current{$f{$_}})) || (!$1)) { |
$existing{$usy}=1; |
|
unless ((defined($current{$usy})) || (!$1)) { |
$f{$_}='!!! Obsolete'; |
$f{$_}='!!! Obsolete'; |
$changed=1; |
$changed=1; |
|
} elsif ($ufn) { |
|
$current{$usy} |
|
=~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |
Line 1138 sub updatestudentassesssheet {
|
Line 1250 sub updatestudentassesssheet {
|
$f{'A'.$maxrow}=$_; |
$f{'A'.$maxrow}=$_; |
} |
} |
} keys %current; |
} keys %current; |
|
|
if ($changed) { &setformulas($safeeval,%f); } |
if ($changed) { &setformulas($safeeval,%f); } |
|
|
&setmaxrow($safeeval,$maxrow); |
&setmaxrow($safeeval,$maxrow); |
&setrowlabels($safeeval,%current); |
&setrowlabels($safeeval,%current); |
|
|
} else { |
undef %current; |
return 'Could not access course data'; |
undef %existing; |
} |
|
} |
} |
|
|
# ------------------------------------------------ Load data for one assessment |
# ------------------------------------------------ Load data for one assessment |
Line 1155 sub loadstudent {
|
Line 1266 sub loadstudent {
|
my $safeeval=shift; |
my $safeeval=shift; |
my %c=(); |
my %c=(); |
my %f=&getformulas($safeeval); |
my %f=&getformulas($safeeval); |
|
$cachedassess=&getuname($safeeval).':'.&getudom($safeeval); |
|
%cachedstores=(); |
|
{ |
|
my $reply=&Apache::lonnet::reply('dump:'.&getudom($safeeval).':'. |
|
&getuname($safeeval).':'. |
|
&getcid($safeeval), |
|
&getuhome($safeeval)); |
|
unless ($reply=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$cachedstores{&Apache::lonnet::unescape($name)}= |
|
&Apache::lonnet::unescape($value); |
|
} split(/\&/,$reply); |
|
} |
|
} |
|
my @assessdata=(); |
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
my $row=$1; |
my $row=$1; |
unless ($f{$_}=~/^\!/) { |
unless (($f{$_}=~/^\!/) || ($row==0)) { |
my @assessdata=&exportsheet(&getuname($safeeval), |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_}); |
&getudom($safeeval), |
@assessdata=&exportsheet(&getuname($safeeval), |
'assesscalc',$f{$_}); |
&getudom($safeeval), |
|
'assesscalc',$usy,$ufn); |
my $index=0; |
my $index=0; |
map { |
map { |
if ($assessdata[$index]) { |
if ($assessdata[$index]) { |
$c{$_.$row}=$assessdata[$index]; |
my $col=$_; |
unless ($_ eq 'A') { |
if ($assessdata[$index]=~/\D/) { |
$f{$_.$row}='import'; |
$c{$col.$row}="'".$assessdata[$index]."'"; |
|
} else { |
|
$c{$col.$row}=$assessdata[$index]; |
|
} |
|
unless ($col eq 'A') { |
|
$f{$col.$row}='import'; |
} |
} |
} |
} |
$index++; |
$index++; |
Line 1176 sub loadstudent {
|
Line 1309 sub loadstudent {
|
} |
} |
} |
} |
} keys %f; |
} keys %f; |
|
$cachedassess=''; |
|
undef %cachedstores; |
&setformulas($safeeval,%f); |
&setformulas($safeeval,%f); |
&setconstants($safeeval,%c); |
&setconstants($safeeval,%c); |
} |
} |
Line 1183 sub loadstudent {
|
Line 1318 sub loadstudent {
|
# --------------------------------------------------- Load data for one student |
# --------------------------------------------------- Load data for one student |
|
|
sub loadcourse { |
sub loadcourse { |
my $safeeval=shift; |
my ($safeeval,$r)=@_; |
my %c=(); |
my %c=(); |
my %f=&getformulas($safeeval); |
my %f=&getformulas($safeeval); |
|
my $total=0; |
|
map { |
|
if ($_=~/^A(\d+)/) { |
|
unless ($f{$_}=~/^\!/) { $total++; } |
|
} |
|
} keys %f; |
|
my $now=0; |
|
my $since=time; |
|
$r->print(<<ENDPOP); |
|
<script> |
|
popwin=open('','popwin','width=400,height=100'); |
|
popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+ |
|
'<h3>Spreadsheet Calculation Progress</h3>'+ |
|
'<form name=popremain>'+ |
|
'<input type=text size=35 name=remaining value=Starting></form>'+ |
|
'</body></html>'); |
|
popwin.document.close(); |
|
</script> |
|
ENDPOP |
|
$r->rflush(); |
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
my $row=$1; |
my $row=$1; |
unless (($f{$_}=~/^\!/) |
unless (($f{$_}=~/^\!/) || ($row==0)) { |
|
my @studentdata=&exportsheet(split(/\:/,$f{$_}), |
|| ($row>25)) |
|
|
|
{ |
|
my @studentdata=&exportsheet(&getuname($safeeval), |
|
&getudom($safeeval), |
|
'studentcalc'); |
'studentcalc'); |
|
undef %userrdatas; |
|
$now++; |
|
$r->print('<script>popwin.document.popremain.remaining.value="'. |
|
$now.'/'.$total.': '.int((time-$since)/$now*($total-$now)). |
|
' secs remaining";</script>'); |
|
$r->rflush(); |
|
|
my $index=0; |
my $index=0; |
map { |
map { |
if ($studentdata[$index]) { |
if ($studentdata[$index]) { |
$c{$_.$row}=$studentdata[$index]; |
my $col=$_; |
unless ($_ eq 'A') { |
if ($studentdata[$index]=~/\D/) { |
$f{$_.$row}='import'; |
$c{$col.$row}="'".$studentdata[$index]."'"; |
|
} else { |
|
$c{$col.$row}=$studentdata[$index]; |
|
} |
|
unless ($col eq 'A') { |
|
$f{$col.$row}='import'; |
} |
} |
} |
} |
$index++; |
$index++; |
Line 1213 sub loadcourse {
|
Line 1375 sub loadcourse {
|
} keys %f; |
} keys %f; |
&setformulas($safeeval,%f); |
&setformulas($safeeval,%f); |
&setconstants($safeeval,%c); |
&setconstants($safeeval,%c); |
|
$r->print('<script>popwin.close()</script>'); |
|
$r->rflush(); |
} |
} |
|
|
# ------------------------------------------------ Load data for one assessment |
# ------------------------------------------------ Load data for one assessment |
Line 1233 sub loadassessment {
|
Line 1397 sub loadassessment {
|
unless ($namespace=$cid) { return ''; } |
unless ($namespace=$cid) { return ''; } |
|
|
# ----------------------------------------------------------- Get stored values |
# ----------------------------------------------------------- Get stored values |
|
|
|
my %returnhash=(); |
|
|
|
if ($cachedassess eq $uname.':'.$udom) { |
|
# |
|
# get data out of the dumped stores |
|
# |
|
|
|
my $version=$cachedstores{'version:'.$symb}; |
|
my $scope; |
|
for ($scope=1;$scope<=$version;$scope++) { |
|
map { |
|
$returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_}; |
|
} split(/\:/,$cachedstores{$scope.':keys:'.$symb}); |
|
} |
|
|
|
} else { |
|
# |
|
# restore individual |
|
# |
|
|
my $answer=&Apache::lonnet::reply( |
my $answer=&Apache::lonnet::reply( |
"restore:$udom:$uname:". |
"restore:$udom:$uname:". |
&Apache::lonnet::escape($namespace).":". |
&Apache::lonnet::escape($namespace).":". |
&Apache::lonnet::escape($symb),$uhome); |
&Apache::lonnet::escape($symb),$uhome); |
my %returnhash=(); |
|
map { |
map { |
my ($name,$value)=split(/\=/,$_); |
my ($name,$value)=split(/\=/,$_); |
$returnhash{&Apache::lonnet::unescape($name)}= |
$returnhash{&Apache::lonnet::unescape($name)}= |
Line 1249 sub loadassessment {
|
Line 1433 sub loadassessment {
|
$returnhash{$_}=$returnhash{$version.':'.$_}; |
$returnhash{$_}=$returnhash{$version.':'.$_}; |
} split(/\:/,$returnhash{$version.':keys'}); |
} split(/\:/,$returnhash{$version.':keys'}); |
} |
} |
|
} |
# ----------------------------- returnhash now has all stores for this resource |
# ----------------------------- returnhash now has all stores for this resource |
|
|
# ---------------------------- initialize coursedata and userdata for this user |
# ---------------------------- initialize coursedata and userdata for this user |
Line 1260 sub loadassessment {
|
Line 1445 sub loadassessment {
|
unless ($uhome eq 'no_host') { |
unless ($uhome eq 'no_host') { |
# -------------------------------------------------------------- Get coursedata |
# -------------------------------------------------------------- Get coursedata |
unless |
unless |
((time-$courserdatas{$cid.'.last_cache'})<120) { |
((time-$courserdatas{$cid.'.last_cache'})<240) { |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum. |
':resourcedata',$chome); |
':resourcedata',$chome); |
if ($reply!~/^error\:/) { |
if ($reply!~/^error\:/) { |
Line 1272 sub loadassessment {
|
Line 1457 sub loadassessment {
|
my ($name,$value)=split(/\=/,$_); |
my ($name,$value)=split(/\=/,$_); |
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}= |
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}= |
&Apache::lonnet::unescape($value); |
&Apache::lonnet::unescape($value); |
} split(/\&/,$courserdatas{$ENV{'request.course.id'}}); |
} split(/\&/,$courserdatas{$cid}); |
# --------------------------------------------------- Get userdata (if present) |
# --------------------------------------------------- Get userdata (if present) |
unless |
unless |
((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<120) { |
((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) { |
my $reply= |
my $reply= |
&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); |
&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome); |
if ($reply!~/^error\:/) { |
if ($reply!~/^error\:/) { |
Line 1289 sub loadassessment {
|
Line 1474 sub loadassessment {
|
&Apache::lonnet::unescape($value); |
&Apache::lonnet::unescape($value); |
} split(/\&/,$userrdatas{$uname.'___'.$udom}); |
} split(/\&/,$userrdatas{$uname.'___'.$udom}); |
} |
} |
|
|
# ----------------- now courseopt, useropt initialized for this user and course |
# ----------------- now courseopt, useropt initialized for this user and course |
# (used by parmval) |
# (used by parmval) |
|
|
Line 1302 sub loadassessment {
|
Line 1486 sub loadassessment {
|
if ($_=~/^A/) { |
if ($_=~/^A/) { |
unless ($f{$_}=~/^\!/) { |
unless ($f{$_}=~/^\!/) { |
if ($f{$_}=~/^parameter/) { |
if ($f{$_}=~/^parameter/) { |
$c{$_}=&parmval($f{$_},$safeeval); |
my $val=&parmval($f{$_},$safeeval); |
|
$c{$_}=$val; |
|
$c{$f{$_}}=$val; |
} else { |
} else { |
my $key=$f{$_}; |
my $key=$f{$_}; |
|
my $ckey=$key; |
$key=~s/^stores\_/resource\./; |
$key=~s/^stores\_/resource\./; |
$key=~s/\_/\./; |
$key=~s/\_/\./; |
$c{$_}=$returnhash{$key}; |
$c{$_}=$returnhash{$key}; |
|
$c{$ckey}=$returnhash{$key}; |
} |
} |
} |
} |
} |
} |
Line 1361 sub updatesheet {
|
Line 1549 sub updatesheet {
|
# Import the data for rows |
# Import the data for rows |
# |
# |
|
|
sub loadrows() { |
sub loadrows { |
my $safeeval=shift; |
my ($safeeval,$r)=@_; |
my $stype=&gettype($safeeval); |
my $stype=&gettype($safeeval); |
if ($stype eq 'classcalc') { |
if ($stype eq 'classcalc') { |
&loadcourse($safeeval); |
&loadcourse($safeeval,$r); |
} elsif ($stype eq 'studentcalc') { |
} elsif ($stype eq 'studentcalc') { |
&loadstudent($safeeval); |
&loadstudent($safeeval); |
} else { |
} else { |
Line 1373 sub loadrows() {
|
Line 1561 sub loadrows() {
|
} |
} |
} |
} |
|
|
|
# ======================================================= Forced recalculation? |
|
|
|
sub checkthis { |
|
my ($keyname,$time)=@_; |
|
return ($time<$expiredates{$keyname}); |
|
} |
|
sub forcedrecalc { |
|
my ($uname,$udom,$stype,$usymb)=@_; |
|
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb; |
|
my $time=$oldsheets{$key.'.time'}; |
|
if ($ENV{'form.forcerecalc'}) { return 1; } |
|
unless ($time) { return 1; } |
|
if ($stype eq 'assesscalc') { |
|
my $map=(split(/\_\_\_/,$usymb))[0]; |
|
if (&checkthis('::assesscalc:',$time) || |
|
&checkthis('::assesscalc:'.$map,$time) || |
|
&checkthis('::assesscalc:'.$usymb,$time) || |
|
&checkthis($uname.':'.$udom.':assesscalc:',$time) || |
|
&checkthis($uname.':'.$udom.':assesscalc:'.$map,$time) || |
|
&checkthis($uname.':'.$udom.':assesscalc:'.$usymb,$time)) { |
|
return 1; |
|
} |
|
} else { |
|
if (&checkthis('::studentcalc:',$time) || |
|
&checkthis($uname.':'.$udom.':studentcalc:',$time)) { |
|
return 1; |
|
} |
|
} |
|
return 0; |
|
} |
|
|
# ============================================================== Export handler |
# ============================================================== Export handler |
# |
# |
# Non-interactive call from with program |
# Non-interactive call from with program |
# |
# |
|
|
sub exportsheet { |
sub exportsheet { |
my ($uname,$udom,$stype,$usymb,$fn)=@_; |
my ($uname,$udom,$stype,$usymb,$fn)=@_; |
|
my @exportarr=(); |
|
# |
|
# Check if cached |
|
# |
|
|
|
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb; |
|
my $found=''; |
|
|
|
if ($oldsheets{$key}) { |
|
map { |
|
my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_); |
|
if ($name eq $fn) { |
|
$found=$value; |
|
} |
|
} split(/\_\_\_\&\_\_\_/,$oldsheets{$key}); |
|
} |
|
|
|
unless ($found) { |
|
&cachedssheets($uname,$udom,&Apache::lonnet::homeserver($uname,$udom)); |
|
if ($oldsheets{$key}) { |
|
map { |
|
my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_); |
|
if ($name eq $fn) { |
|
$found=$value; |
|
} |
|
} split(/\_\_\_\&\_\_\_/,$oldsheets{$key}); |
|
} |
|
} |
|
# |
|
# Check if still valid |
|
# |
|
if ($found) { |
|
if (&forcedrecalc($uname,$udom,$stype,$usymb)) { |
|
$found=''; |
|
} |
|
} |
|
|
|
if ($found) { |
|
# |
|
# Return what was cached |
|
# |
|
@exportarr=split(/\_\_\_\;\_\_\_/,$found); |
|
|
|
} else { |
|
# |
|
# Not cached |
|
# |
|
|
my $thissheet=&makenewsheet($uname,$udom,$stype,$usymb); |
my $thissheet=&makenewsheet($uname,$udom,$stype,$usymb); |
&readsheet($thissheet,$fn); |
&readsheet($thissheet,$fn); |
&updatesheet($thissheet); |
&updatesheet($thissheet); |
&loadrows($thissheet); |
&loadrows($thissheet); |
&calcsheet($thissheet); |
&calcsheet($thissheet); |
my @returnthis=&exportdata($thissheet); |
@exportarr=&exportdata($thissheet); |
undef $thissheet; |
# |
return @returnthis; |
# Store now |
|
# |
|
my $cid=$ENV{'request.course.id'}; |
|
my $current=''; |
|
if ($stype eq 'studentcalc') { |
|
$current=&Apache::lonnet::reply('get:'. |
|
$ENV{'course.'.$cid.'.domain'}.':'. |
|
$ENV{'course.'.$cid.'.num'}. |
|
':nohist_calculatedsheets:'. |
|
&Apache::lonnet::escape($key), |
|
$ENV{'course.'.$cid.'.home'}); |
|
} else { |
|
$current=&Apache::lonnet::reply('get:'. |
|
&getudom($thissheet).':'. |
|
&getuname($thissheet). |
|
':nohist_calculatedsheets_'. |
|
$ENV{'request.course.id'}.':'. |
|
&Apache::lonnet::escape($key), |
|
&getuhome($thissheet)); |
|
|
|
} |
|
my %currentlystored=(); |
|
unless ($current=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_); |
|
$currentlystored{$name}=$value; |
|
} split(/\_\_\_\&\_\_\_/,&Apache::lonnet::unescape($current)); |
|
} |
|
$currentlystored{$fn}=join('___;___',@exportarr); |
|
|
|
my $newstore=''; |
|
map { |
|
if ($newstore) { $newstore.='___&___'; } |
|
$newstore.=$_.'___=___'.$currentlystored{$_}; |
|
} keys %currentlystored; |
|
my $now=time; |
|
if ($stype eq 'studentcalc') { |
|
&Apache::lonnet::reply('put:'. |
|
$ENV{'course.'.$cid.'.domain'}.':'. |
|
$ENV{'course.'.$cid.'.num'}. |
|
':nohist_calculatedsheets:'. |
|
&Apache::lonnet::escape($key).'='. |
|
&Apache::lonnet::escape($newstore).'&'. |
|
&Apache::lonnet::escape($key).'.time='.$now, |
|
$ENV{'course.'.$cid.'.home'}); |
|
} else { |
|
&Apache::lonnet::reply('put:'. |
|
&getudom($thissheet).':'. |
|
&getuname($thissheet). |
|
':nohist_calculatedsheets_'. |
|
$ENV{'request.course.id'}.':'. |
|
&Apache::lonnet::escape($key).'='. |
|
&Apache::lonnet::escape($newstore).'&'. |
|
&Apache::lonnet::escape($key).'.time='.$now, |
|
&getuhome($thissheet)); |
|
} |
|
} |
|
return @exportarr; |
} |
} |
|
# ============================================================ Expiration Dates |
|
# |
|
# Load previously cached student spreadsheets for this course |
|
# |
|
|
|
sub expirationdates { |
|
undef %expiredates; |
|
my $cid=$ENV{'request.course.id'}; |
|
my $reply=&Apache::lonnet::reply('dump:'. |
|
$ENV{'course.'.$cid.'.domain'}.':'. |
|
$ENV{'course.'.$cid.'.num'}. |
|
':nohist_expirationdates', |
|
$ENV{'course.'.$cid.'.home'}); |
|
unless ($reply=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$expiredates{&Apache::lonnet::unescape($name)} |
|
=&Apache::lonnet::unescape($value); |
|
} split(/\&/,$reply); |
|
} |
|
} |
|
|
|
# ===================================================== Calculated sheets cache |
|
# |
|
# Load previously cached student spreadsheets for this course |
|
# |
|
|
|
sub cachedcsheets { |
|
my $cid=$ENV{'request.course.id'}; |
|
my $reply=&Apache::lonnet::reply('dump:'. |
|
$ENV{'course.'.$cid.'.domain'}.':'. |
|
$ENV{'course.'.$cid.'.num'}. |
|
':nohist_calculatedsheets', |
|
$ENV{'course.'.$cid.'.home'}); |
|
unless ($reply=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$oldsheets{&Apache::lonnet::unescape($name)} |
|
=&Apache::lonnet::unescape($value); |
|
} split(/\&/,$reply); |
|
} |
|
} |
|
|
|
# ===================================================== Calculated sheets cache |
|
# |
|
# Load previously cached assessment spreadsheets for this student |
|
# |
|
|
|
sub cachedssheets { |
|
my ($sname,$sdom,$shome)=@_; |
|
unless (($loadedcaches{$sname.'_'.$sdom}) || ($shome eq 'no_host')) { |
|
my $cid=$ENV{'request.course.id'}; |
|
my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname. |
|
':nohist_calculatedsheets_'. |
|
$ENV{'request.course.id'}, |
|
$shome); |
|
unless ($reply=~/^error\:/) { |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$oldsheets{&Apache::lonnet::unescape($name)} |
|
=&Apache::lonnet::unescape($value); |
|
} split(/\&/,$reply); |
|
} |
|
$loadedcaches{$sname.'_'.$sdom}=1; |
|
} |
|
} |
|
|
|
# ===================================================== Calculated sheets cache |
|
# |
|
# Load previously cached assessment spreadsheets for this student |
|
# |
|
|
# ================================================================ Main handler |
# ================================================================ Main handler |
# |
# |
Line 1429 $tmpdir=$r->dir_config('lonDaemons').'/t
|
Line 1824 $tmpdir=$r->dir_config('lonDaemons').'/t
|
} |
} |
} (split(/&/,$ENV{'QUERY_STRING'})); |
} (split(/&/,$ENV{'QUERY_STRING'})); |
|
|
|
# -------------------------------------- Interactive loading of specific sheet? |
|
if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) { |
|
$ENV{'form.ufn'}=$ENV{'form.loadthissheet'}; |
|
} |
# ------------------------------------------- Nothing there? Must be login user |
# ------------------------------------------- Nothing there? Must be login user |
|
|
my $aname; |
my $aname; |
Line 1464 $tmpdir=$r->dir_config('lonDaemons').'/t
|
Line 1863 $tmpdir=$r->dir_config('lonDaemons').'/t
|
} |
} |
} |
} |
|
|
|
function changesheet(cn) { |
|
document.sheet.unewfield.value=cn; |
|
document.sheet.unewformula.value='changesheet'; |
|
document.sheet.submit(); |
|
} |
|
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print('</head><body bgcolor="#FFFFFF">'. |
$r->print('</head><body bgcolor="#FFFFFF">'. |
Line 1480 ENDSCRIPT
|
Line 1885 ENDSCRIPT
|
|
|
$r->rflush(); |
$r->rflush(); |
|
|
|
# ---------------------------------------------------------------- Full recalc? |
|
|
|
|
|
if ($ENV{'form.forcerecalc'}) { |
|
$r->print('<h4>Completely Recalculating Sheet ...</h4>'); |
|
undef %spreadsheets; |
|
undef %courserdatas; |
|
undef %userrdatas; |
|
undef %defaultsheets; |
|
undef %updatedata; |
|
} |
|
|
# ---------------------------------------- Read new sheet or modified worksheet |
# ---------------------------------------- Read new sheet or modified worksheet |
|
|
$r->uri=~/\/(\w+)$/; |
$r->uri=~/\/(\w+)$/; |
Line 1522 ENDSCRIPT
|
Line 1939 ENDSCRIPT
|
$r->print('<h1>'. |
$r->print('<h1>'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>'); |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>'); |
|
|
|
# ---------------------------------------------------- See if user can see this |
|
|
# ---------------------------------------------------- See if something to save |
if ((&gettype($asheet) eq 'classcalc') || |
|
(&getuname($asheet) ne $ENV{'user.name'}) || |
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
(&getudom($asheet) ne $ENV{'user.domain'})) { |
my $fname=''; |
unless (&Apache::lonnet::allowed('vgr',&getcid($asheet))) { |
if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) { |
$r->print( |
$fname=~s/\W/\_/g; |
'<h1>Access Permission Denied</h1></form></body></html>'); |
if ($fname eq 'default') { $fname='course_default'; } |
return OK; |
$fname.='_'.&gettype($asheet); |
} |
&setfilename($asheet,$fname); |
|
$ENV{'form.ufn'}=$fname; |
|
$r->print('<p>Saving spreadsheet: '. |
|
&writesheet($asheet,$ENV{'form.makedefufn'}).'<p>'); |
|
} |
|
} |
} |
|
|
# ------------------------------------------------ Write the modified worksheet |
# ---------------------------------------------------------- Additional options |
|
|
$r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>'); |
|
|
|
&tmpwrite($asheet); |
$r->print( |
|
'<input type=submit name=forcerecalc value="Completely Recalculate Sheet"><p>' |
|
); |
|
if (&gettype($asheet) eq 'assesscalc') { |
|
$r->print ('<p><font size=+2><a href="/adm/studentcalc?uname='. |
|
&getuname($asheet). |
|
'&udom='.&getudom($asheet). |
|
'">Level up: Student Sheet</a></font><p>'); |
|
} |
|
|
|
if ((&gettype($asheet) eq 'studentcalc') && |
|
(&Apache::lonnet::allowed('vgr',&getcid($asheet)))) { |
|
$r->print ( |
|
'<p><font size=+2><a href="/adm/classcalc">'. |
|
'Level up: Course Sheet</a></font><p>'); |
|
} |
|
|
|
|
# ----------------------------------------------------------------- Save dialog |
# ----------------------------------------------------------------- Save dialog |
|
|
Line 1558 ENDSCRIPT
|
Line 1985 ENDSCRIPT
|
|
|
$r->print(&hiddenfield('ufn',&getfilename($asheet))); |
$r->print(&hiddenfield('ufn',&getfilename($asheet))); |
|
|
|
# ----------------------------------------------------------------- Load dialog |
|
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
|
$r->print('<p><input type=submit name=load value="Load ...">'. |
|
'<select name="loadthissheet">'. |
|
'<option name="default">Default</option>'); |
|
map { |
|
$r->print('<option name="'.$_.'"'); |
|
if ($ENV{'form.ufn'} eq $_) { |
|
$r->print(' selected'); |
|
} |
|
$r->print('>'.$_.'</option>'); |
|
} &othersheets($asheet,&gettype($asheet)); |
|
$r->print('</select><p>'); |
|
if (&gettype($asheet) eq 'studentcalc') { |
|
&setothersheets($asheet,&othersheets($asheet,'assesscalc')); |
|
} |
|
} |
|
|
|
# --------------------------------------------------------------- Cached sheets |
|
|
|
&expirationdates(); |
|
|
|
undef %oldsheets; |
|
undef %loadedcaches; |
|
|
|
if (&gettype($asheet) eq 'classcalc') { |
|
$r->print("Loading previously calculated student sheets ...<br>\n"); |
|
$r->rflush(); |
|
&cachedcsheets(); |
|
} elsif (&gettype($asheet) eq 'studentcalc') { |
|
$r->print("Loading previously calculated assessment sheets ...<br>\n"); |
|
$r->rflush(); |
|
&cachedssheets(&getuname($asheet),&getudom($asheet), |
|
&getuhome($asheet)); |
|
} |
|
|
# ----------------------------------------------------- Update sheet, load rows |
# ----------------------------------------------------- Update sheet, load rows |
|
|
|
$r->print("Loaded sheet(s), updating rows ...<br>\n"); |
|
$r->rflush(); |
|
|
&updatesheet($asheet); |
&updatesheet($asheet); |
&loadrows($asheet); |
|
|
|
|
$r->print("Updated rows, loading row data ...<br>\n"); |
|
$r->rflush(); |
|
|
|
&loadrows($asheet,$r); |
|
|
|
$r->print("Loaded row data, calculating sheet ...<br>\n"); |
|
$r->rflush(); |
|
|
my $calcoutput=&calcsheet($asheet); |
my $calcoutput=&calcsheet($asheet); |
$r->print('<h3><font color=red>'.$calcoutput.'</h3></font>'); |
$r->print('<h3><font color=red>'.$calcoutput.'</h3></font>'); |
|
|
|
# ---------------------------------------------------- See if something to save |
|
|
|
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) { |
|
my $fname=''; |
|
if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) { |
|
$fname=~s/\W/\_/g; |
|
if ($fname eq 'default') { $fname='course_default'; } |
|
$fname.='_'.&gettype($asheet); |
|
&setfilename($asheet,$fname); |
|
$ENV{'form.ufn'}=$fname; |
|
$r->print('<p>Saving spreadsheet: '. |
|
&writesheet($asheet,$ENV{'form.makedefufn'}).'<p>'); |
|
} |
|
} |
|
|
|
# ------------------------------------------------ Write the modified worksheet |
|
|
|
$r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>'); |
|
|
|
&tmpwrite($asheet); |
|
|
|
# ------------------------------------------------------------- Print out sheet |
|
|
&outsheet($r,$asheet); |
&outsheet($r,$asheet); |
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |
|
|
|
|
# ------------------------------------------------------------------------ Done |
# ------------------------------------------------------------------------ Done |
} else { |
} else { |
# ----------------------------- Not in a course, or not allowed to modify parms |
# ----------------------------- Not in a course, or not allowed to modify parms |
Line 1585 ENDSCRIPT
|
Line 2078 ENDSCRIPT
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|