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

[raeburn]

raeburn		Fri Oct  6 01:22:06 2023 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Bug 6979
    Fix typos in rev. 1.1515
    Remove some trailing whitespace
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1515 loncom/lonnet/perl/lonnet.pm:1.1516
--- loncom/lonnet/perl/lonnet.pm:1.1515	Mon Oct  2 21:01:22 2023
+++ loncom/lonnet/perl/lonnet.pm	Fri Oct  6 01:22:06 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1515 2023/10/02 21:01:22 raeburn Exp $
+# $Id: lonnet.pm,v 1.1516 2023/10/06 01:22:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5471,15 +5471,15 @@
             $storehash{'group'} = $sec;
         } else {
             $storehash{'section'} = $sec;
-            my ($curruserdomstr,$newuserdomstr); 
+            my ($curruserdomstr,$newuserdomstr);
             if (exists($env{'course.'.$cdom.'_'.$cnum.'.internal.userdomains'})) {
                 $curruserdomstr = $env{'course.'.$env{'request.course.id'}.'.internal.userdomains'};
-            } else {    
+            } else {
                 my %courseinfo = &coursedescription($cdom.'/'.$cnum);
                 $curruserdomstr = $courseinfo{'internal.userdomains'};
             }
-            if ($currusedomstr ne '') {
-                my @udoms = split(/,/,$courseinfo{'internal.userdomains'});
+            if ($curruserdomstr ne '') {
+                my @udoms = split(/,/,$curruserdomstr);
                 unless (grep(/^\Q$domain\E/, at udoms)) {
                     push(@udoms,$domain);
                     $newuserdomstr = join(',',sort(@udoms));