[LON-CAPA-cvs] cvs: loncom /interface lontiny.pm

[raeburn]

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 '') {