--- loncom/auth/lonacc.pm 2009/09/25 13:51:44 1.128 +++ 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.128 2009/09/25 13:51:44 droeschl 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);