![]() ![]() | ![]() |
version 1.10, 2002/08/31 19:25:39 | version 1.11, 2002/09/01 06:23:19 |
---|---|
Line 50 sub BuildStudentAssessmentPage { | Line 50 sub BuildStudentAssessmentPage { |
# $jr = $r; | # $jr = $r; |
my %cache; | my %cache; |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { | unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
[5~ $r->print('<html><body>Unable to tie database.</body></html>'); | $r->print('<html><body>Unable to tie database.</body></html>'); |
return; | return; |
} | } |