loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

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{$_});