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