[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /auth lonlogin.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2021-10-08 14:45:45
Message-ID: cvsraeburn1633704345 () cvsserver
[Download RAW message or body]
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;
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic