[LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm

[raeburn]

raeburn		Fri Oct  8 14:45:45 2021 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - Include name of item in query string as well as the value.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.189 loncom/auth/lonlogin.pm:1.190
--- loncom/auth/lonlogin.pm:1.189	Wed Oct  6 19:41:53 2021
+++ loncom/auth/lonlogin.pm	Fri Oct  8 14:45:45 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.189 2021/10/06 19:41:53 raeburn Exp $
+# $Id: lonlogin.pm,v 1.190 2021/10/08 14:45:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -810,11 +810,11 @@
             $ssologin = $samlssourl;
         }
         if ($env{'form.firsturl'} ne '') {
-            my $querystring;
+            my $querystring = 'origurl=';
             if ($env{'form.firsturl'} =~ /[^\x00-\xFF]/) {
-                $querystring = &uri_escape_utf8($env{'form.firsturl'});
+                $querystring .= &uri_escape_utf8($env{'form.firsturl'});
             } else {
-                $querystring = &uri_escape($env{'form.firsturl'});
+                $querystring .= &uri_escape($env{'form.firsturl'});
             }
             $querystring = &HTML::Entities::encode($querystring,"'");
             $ssologin .= (($ssologin=~/\?/)?'&':'?') . $querystring;