--- loncom/auth/lonacc.pm 2009/07/23 18:45:39 1.127 +++ loncom/auth/lonacc.pm 2009/10/20 01:57:38 1.129 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.127 2009/07/23 18:45:39 raeburn Exp $ +# $Id: lonacc.pm,v 1.129 2009/10/20 01:57:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -411,6 +411,22 @@ sub handler { } $env{'request.filename'} = $r->filename; $env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl); + if ($requrl =~ m{^/adm/wrapper/ext/}) { + my $query = $r->args; + if ($query) { + my $preserved; + foreach my $pair (split(/&/,$query)) { + my ($name, $value) = split(/=/,$pair); + unless (($name eq 'symb') || ($name eq 'wrapperdisplay')) { + $preserved .= $pair.'&'; + } + } + $preserved =~ s/\&$//; + if ($preserved) { + $env{'request.external.querystring'} = $preserved; + } + } + } # -------------------------------------------------------- Load POST parameters &Apache::lonacc::get_posted_cgi($r); @@ -457,6 +473,7 @@ sub handler { $env{'user.domain'} eq 'public' && $requrl !~ m{^/+(res|public|uploaded)/} && $requrl !~ m{^/adm/[^/]+/[^/]+/aboutme/portfolio$ }x && + $requrl !~ m{^/adm/blockingstatus/.*$} && $requrl !~ m{^/+adm/(help|logout|restrictedaccess|randomlabel\.png)}) { $env{'request.querystring'}=$r->args; $env{'request.firsturl'}=$requrl;