version 1.5, 2002/06/26 14:01:50
|
version 1.6, 2002/08/12 18:21:42
|
Line 96 sub section
|
Line 96 sub section
|
|
|
my $fn=$ENV{'request.course.fn'}; |
my $fn=$ENV{'request.course.fn'}; |
|
|
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && |
if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) && |
(tie(%parmhash,'GDBM_File', |
(tie(%parmhash,'GDBM_File', |
$ENV{'request.course.fn'}.'_parms.db', |
$ENV{'request.course.fn'}.'_parms.db', |
&GDBM_READER,0640))) { |
&GDBM_READER(),0640))) { |
$r->print('<h2>Big Hash</h2>'); |
$r->print('<h2>Big Hash</h2>'); |
foreach (sort keys %hash) { |
foreach (sort keys %hash) { |
$r->print("\n<br>".$_.': '.$hash{$_}); |
$r->print("\n<br>".$_.': '.$hash{$_}); |