[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /auth lonacc.pm

raeburn raeburn at source.lon-capa.org
Thu Oct 1 06:42:56 EDT 2020


raeburn		Thu Oct  1 10:42:56 2020 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/auth	lonacc.pm 
  Log:
  - For 2.11
    Backport 1.181
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.159.2.12 loncom/auth/lonacc.pm:1.159.2.13
--- loncom/auth/lonacc.pm:1.159.2.12	Wed Sep 30 19:33:59 2020
+++ loncom/auth/lonacc.pm	Thu Oct  1 10:42:56 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.159.2.12 2020/09/30 19:33:59 raeburn Exp $
+# $Id: lonacc.pm,v 1.159.2.13 2020/10/01 10:42:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -617,6 +617,9 @@
                     my $query = $r->args;
                     foreach my $pair (split(/&/,$query)) {
                         my ($name, $value) = split(/=/,$pair);
+                        $name = &unescape($name);
+                        $value =~ tr/+/ /;
+                        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                         if ($name eq 'symb') {
                             $poss_symb = &Apache::lonnet::symbclean($value);
                             last;




More information about the LON-CAPA-cvs mailing list