rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.41, 2003/09/09 18:46:28	version 1.46, 2003/10/29 22:09:17
Line 190 sub handler {	Line 190 sub handler {
$ENV{'form.postdata'}=~/(\w+)\:(.*)/;	$ENV{'form.postdata'}=~/(\w+)\:(.*)/;
my $direction=$1;	my $direction=$1;
my $currenturl=$2;	my $currenturl=$2;
	$currenturl=~s/\.\d+\.(\w+)$/\.$1/;
if ($direction eq 'return') {	if ($direction eq 'return') {
# -------------------------------------------------------- Return to last known	# -------------------------------------------------------- Return to last known
my $last;	my $last;
Line 388 ENDNONE	Line 389 ENDNONE
}	}
} else {	} else {
# ---------------------------------------- No, could not determine where we are	# ---------------------------------------- No, could not determine where we are
$r->internal_redirect('/adm/ambiguous');	if ( &Apache::lonnet::mod_perl_version() == 2 ) {
	&Apache::lonnet::cleanenv();
	}
	$r->internal_redirect('/adm/ambiguous');
}	}
} else {	} else {
# -------------------------- Class was not initialized or page fliped strangely	# -------------------------- Class was not initialized or page fliped strangely