rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.34, 2003/01/14 18:47:50	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';
}	}
Line 211 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)) {