loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.129, 2003/01/14 17:19:27	version 1.130, 2003/01/14 18:47:50
Line 46 use Apache::Constants qw(:common :http);	Line 46 use Apache::Constants qw(:common :http);
use Apache::loncommon();	use Apache::loncommon();
use POSIX qw (floor strftime);	use POSIX qw (floor strftime);

	my %navmaphash;
	my %parmhash;

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

sub handler {	sub handler {
my $r = shift;	my $r = shift;
real_handler($r);	real_handler($r);
Line 985 sub new {	Line 1003 sub new {
$self->{NETWORK_FAILURE} = 0;	$self->{NETWORK_FAILURE} = 0;

# tie the nav hash	# tie the nav hash
my %navmaphash;
if (!(tie(%navmaphash, 'GDBM_File', $self->{NAV_HASH_FILE},	if (!(tie(%navmaphash, 'GDBM_File', $self->{NAV_HASH_FILE},
&GDBM_READER(), 0640))) {	&GDBM_READER(), 0640))) {
return undef;	return undef;
}	}

my %parmhash;
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},	if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},
&GDBM_READER(), 0640)))	&GDBM_READER(), 0640)))
{	{