rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.35, 2003/03/01 15:13:59	version 1.36, 2003/03/03 20:24:25
Line 198 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';
}	}