--- rat/lonpageflip.pm 2003/03/01 15:13:59 1.35 +++ rat/lonpageflip.pm 2003/03/03 20:24:25 1.36 @@ -2,7 +2,7 @@ # # Page flip handler # -# $Id: lonpageflip.pm,v 1.35 2003/03/01 15:13:59 www Exp $ +# $Id: lonpageflip.pm,v 1.36 2003/03/03 20:24:25 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -198,8 +198,13 @@ sub handler { untie(%hash); } my $newloc; - if ($last) { - $newloc=&Apache::lonnet::clutter((split(/\_\_\_/,$last))[1]); + if (($last) && (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', + &GDBM_READER(),0640))) { + my ($murl,$mid,$fn)=split(/\_\_\_/,$last); + $newloc=$hash{'src_'. + $hash{'map_pc_'.&Apache::lonnet::clutter($murl)}. + '.'.$mid}; + untie %hash; } else { $newloc='/adm/noidea.html'; }