[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface lontiny.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2022-07-02 17:17:47
Message-ID: cvsraeburn1656782267 () cvsserver
[Download RAW message or body]
raeburn Sat Jul 2 17:17:47 2022 EDT
Modified files:
/loncom/interface lontiny.pm
Log:
- First arg in lonnet::delenv is string, not anonymous hash ref.
Index: loncom/interface/lontiny.pm
diff -u loncom/interface/lontiny.pm:1.12 loncom/interface/lontiny.pm:1.13
--- loncom/interface/lontiny.pm:1.12 Thu Jun 30 21:04:14 2022
+++ loncom/interface/lontiny.pm Sat Jul 2 17:17:47 2022
@@ -2,7 +2,7 @@
# Extract domain, courseID, and symb from a shortened URL,
# and switch role to a role in designated course.
#
-# $Id: lontiny.pm,v 1.12 2022/06/30 21:04:14 raeburn Exp $
+# $Id: lontiny.pm,v 1.13 2022/07/02 17:17:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -401,12 +401,12 @@
if ($linkprotector) {
&Apache::lonnet::appenv({'request.linkprot' => \
$linkprotector.':'.$linkproturi}); } elsif ($env{'request.linkprot'}) {
- &Apache::lonnet::delenv({'request.linkprot'});
+ &Apache::lonnet::delenv('request.linkprot);
}
if ($linkkey ne '') {
&Apache::lonnet::appenv({'request.linkkey' => $linkkey});
} elsif ($env{'request.linkkey'} ne '') {
- &Apache::lonnet::delenv({'request.linkkey'});
+ &Apache::lonnet::delenv('request.linkkey');
}
$newlauncher = 1;
}
@@ -422,12 +422,12 @@
if ($linkprotector) {
&Apache::lonnet::appenv({'request.linkprot' => \
$linkprotector.':'.$linkproturi}); } elsif ($env{'request.linkprot'}) {
- &Apache::lonnet::delenv({'request.linkprot'});
+ &Apache::lonnet::delenv('request.linkprot);
}
if ($linkkey ne '') {
&Apache::lonnet::appenv({'request.linkkey' => $linkkey});
} else {
- &Apache::lonnet::delenv({'request.linkkey'});
+ &Apache::lonnet::delenv('request.linkkey');
}
&Apache::lonnet::appenv({'request.deeplink.login' => $linkuri});
if ($env{'request.deeplink.target'} ne '') {
_______________________________________________
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