loncom/auth/lonshibauth.pm - diff

Return to lonshibauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.7, 2021/10/07 15:51:16
+version 1.10, 2021/10/10 23:59:19
  Line 90  sub handler {
              $hostname = $alias;
          }
          my $dest = $protocol.'://'.$hostname.$target;
-         $r->subprocess_env;
+         if ($r->args ne '') {
-         if ($ENV{'QUERY_STRING'} ne '') {
+             $dest .= (($dest=~/\?/)?'&':'?').$r->args;
-             $dest .= '?'.$ENV{'QUERY_STRING'};
          }
-         unless (($uri eq '/adm/roles') || ($ENV{'QUERY_STRING'} =~ /origurl=/)) {
+         unless (($uri eq '/adm/roles') || ($uri eq '/adm/logout')) {
-             $dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;
+             if ($target eq '/adm/login') {
+                 unless ($ENV{'QUERY_STRING'} =~ /firsturl=/) {
+                     $dest.=(($dest=~/\?/)?'&':'?').'firsturl='.$uri;
+                 }
+             } else {
+                 unless ($ENV{'QUERY_STRING'} =~ /origurl=/) {
+                     $dest.=(($dest=~/\?/)?'&':'?').'origurl='.$uri;
+                 }
+             }
          }
          $r->header_out(Location => $dest);
          return REDIRECT;