loncom/lonencurl.pm - diff

Return to lonencurl.pm CVS log

Up to [LON-CAPA] / loncom

version 1.5, 2011/10/01 03:18:57	version 1.6, 2016/02/22 03:36:57
Line 76 sub handler {	Line 76 sub handler {
}	}
}	}
}	}
	my $anchor;
if ($redirect eq '') {	if ($redirect eq '') {
$redirect=&Apache::lonenc::unencrypted($r->uri);	$redirect=&Apache::lonenc::unencrypted($r->uri);
	if ($redirect =~ m{^/adm/wrapper/ext/[^\#]+(\#.+)$}) {
	$anchor = $1;
	$redirect =~ s/\#.+$//;
	}
}	}
if ($r->args) { $redirect.='?'.$r->args; }	if ($r->args) { $redirect.='?'.$r->args; }
$r->internal_redirect($redirect);	$r->internal_redirect($redirect.$anchor);
return OK;	return OK;
}	}
return FORBIDDEN;	return FORBIDDEN;