rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.33, 2002/12/06 14:06:53	version 1.35, 2003/03/01 15:13:59
Line 50 use GDBM_File;	Line 50 use GDBM_File;

my %hash;	my %hash;

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

sub addrid {	sub addrid {
my ($current,$new,$condid)=@_;	my ($current,$new,$condid)=@_;
unless ($condid) { $condid=0; }	unless ($condid) { $condid=0; }
Line 202 sub handler {	Line 211 sub handler {
}	}
$currenturl=~s/^http\:\/\///;	$currenturl=~s/^http\:\/\///;
$currenturl=~s/^[^\/]+//;	$currenturl=~s/^[^\/]+//;
unless ($currenturl=~/^\/(res\|adm\/wrapper\|public\|adm\/coursedocs)\//) {	#
	# Is the current URL on the map? If not, start with last known URL
	#
	unless (&Apache::lonnet::is_on_map($currenturl)) {
my $last;	my $last;
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db',
&GDBM_READER(),0640)) {	&GDBM_READER(),0640)) {