rat/lonambiguous.pm - diff

Return to lonambiguous.pm CVS log

Up to [LON-CAPA] / rat

version 1.7, 2002/11/06 22:51:51	version 1.8, 2003/01/14 18:47:50
Line 38 use Apache::lonnet;	Line 38 use Apache::lonnet;
use Apache::Constants qw(:common REDIRECT);	use Apache::Constants qw(:common REDIRECT);
use GDBM_File;	use GDBM_File;

	my %bighash;

	sub cleanup {
	if (tied(%bighash)){
	&Apache::lonnet::logthis('Cleanup ambiguous: bighash');
	unless (untie(%bighash)) {
	&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash');
	}
	}
	}

# ----------------------------------------------------------- Could not resolve	# ----------------------------------------------------------- Could not resolve

Line 63 sub handler {	Line 73 sub handler {
}	}

# ---------------------------------------------------------- Is this selecting?	# ---------------------------------------------------------- Is this selecting?

my %bighash;

if ($ENV{'form.selecturl'}) {	if ($ENV{'form.selecturl'}) {
my $envkey;	my $envkey;
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',	if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',