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.36, 2003/03/03 20:24:25
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 189 sub handler {	Line 198 sub handler {
untie(%hash);	untie(%hash);
}	}
my $newloc;	my $newloc;
if ($last) {	if (($last) && (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
$newloc=&Apache::lonnet::clutter((split(/\_\_\_/,$last))[1]);	&GDBM_READER(),0640))) {
	my ($murl,$mid,$fn)=split(/\_\_\_/,$last);
	$newloc=$hash{'src_'.
	$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.
	'.'.$mid};
	untie %hash;
} else {	} else {
$newloc='/adm/noidea.html';	$newloc='/adm/noidea.html';
}	}
Line 202 sub handler {	Line 216 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)) {