--- loncom/auth/lonlogin.pm 2021/10/06 19:41:53 1.189 +++ loncom/auth/lonlogin.pm 2021/10/08 14:45:45 1.190 @@ -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 @@ HEADER $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;