|
version 1.57, 2002/08/08 17:03:20
|
version 1.58, 2002/08/12 18:21:42
|
|
Line 491 sub assessparms {
|
Line 491 sub assessparms {
|
| |
|
| # ------------------------------------------------------------------- Tie hashs |
# ------------------------------------------------------------------- Tie hashs |
| 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))) { |
| $r->print("Unable to access course data. (File $ENV{'request.course.fn'}.db not tieable)"); |
$r->print("Unable to access course data. (File $ENV{'request.course.fn'}.db not tieable)"); |
| return ; |
return ; |
| } |
} |
| if (!(tie(%parmhash,'GDBM_File', |
if (!(tie(%parmhash,'GDBM_File', |
| $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) { |
$ENV{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640))) { |
| $r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)"); |
$r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)"); |
| return ; |
return ; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface