|
version 1.98, 2002/07/30 21:23:44
|
version 1.99, 2002/08/12 18:21:42
|
|
Line 1746 sub updatestudentassesssheet {
|
Line 1746 sub updatestudentassesssheet {
|
| unless ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) { |
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=('timestamp' => |
my %allkeys=('timestamp' => |
|
Line 2122 sub loadassessment {
|
Line 2122 sub loadassessment {
|
| my %c=(); |
my %c=(); |
| |
|
| if (tie(%parmhash,'GDBM_File', |
if (tie(%parmhash,'GDBM_File', |
| &getcfn($safeeval).'_parms.db',&GDBM_READER,0640)) { |
&getcfn($safeeval).'_parms.db',&GDBM_READER(),0640)) { |
| my %f=&getformulas($safeeval); |
my %f=&getformulas($safeeval); |
| foreach (keys(%f)) { |
foreach (keys(%f)) { |
| if ($_=~/^A/) { |
if ($_=~/^A/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonspreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface