[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm

[raeburn]

raeburn		Fri Jan 17 16:45:30 2020 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11
    Backport 1.1418
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.117 loncom/lonnet/perl/lonnet.pm:1.1172.2.118
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.117	Fri Jan 17 04:52:33 2020
+++ loncom/lonnet/perl/lonnet.pm	Fri Jan 17 16:45:28 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.117 2020/01/17 04:52:33 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.118 2020/01/17 16:45:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3376,13 +3376,13 @@
                     $cfile = $template;
                 }
             } elsif (($resurl =~ m{^/adm/wrapper/ext/}) && ($env{'form.folderpath'} =~ /^supplemental/)) {
-                    $incourse = 1;
-                    if ($env{'form.forceedit'}) {
-                        $forceview = 1;
-                    } else {
-                        $forceedit = 1;
-                    }
-                    $cfile = $resurl;
+                $incourse = 1;
+                if ($env{'form.forceedit'}) {
+                    $forceview = 1;
+                } else {
+                    $forceedit = 1;
+                }
+                $cfile = $resurl;
             } elsif (($resurl eq '/adm/extresedit') && ($symb || $env{'form.folderpath'})) {
                 $incourse = 1;
                 $forceview = 1;