loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.165, 2003/03/21 22:41:12	version 1.167, 2003/03/25 22:35:58
Line 42	Line 42
# Jeremy Bowers ... lots of days	# Jeremy Bowers ... lots of days

package Apache::lonnavmaps;	package Apache::lonnavmaps;
use vars qw($test @refsToUntie);	use vars qw($test @refsToUntie %navmaphash %parmhash);

use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
Line 50 use Apache::loncommon();	Line 50 use Apache::loncommon();
use Apache::lonmenu();	use Apache::lonmenu();
use POSIX qw (floor strftime);	use POSIX qw (floor strftime);

my %navmaphash;
my %parmhash;
@refsToUntie;

# symbolic constants	# symbolic constants
sub SYMB { return 1; }	sub SYMB { return 1; }
sub URL { return 2; }	sub URL { return 2; }
Line 122 sub cleanup {	Line 118 sub cleanup {
# original hash and the tied hash must be untied. Bleh.	# original hash and the tied hash must be untied. Bleh.
for my $ref (@refsToUntie) {	for my $ref (@refsToUntie) {
&Apache::lonnet::logthis('Cleanup navmaps: reference');	&Apache::lonnet::logthis('Cleanup navmaps: reference');
unless (untie($ref)) {	unless (untie(%$ref)) {
&Apache::lonnet::logthis('Failed cleanup navmaps: reference');	&Apache::lonnet::logthis('Failed cleanup navmaps: reference');
}	}
}	}
	@refsToUntie = ();
}	}

sub handler {	sub handler {