while ($request->Accept() >= 0) {
$PLP::use_cache = !defined $ENV{PLP_CACHE} || $ENV{PLP_CACHE}; # before it's clean()ed
delete $ENV{PATH_TRANSLATED};
while ($request->Accept() >= 0) {
$PLP::use_cache = !defined $ENV{PLP_CACHE} || $ENV{PLP_CACHE}; # before it's clean()ed
delete $ENV{PATH_TRANSLATED};