loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.128, 2009/09/25 13:51:44
+version 1.129, 2009/10/20 01:57:38
  Line 411  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);