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

[raeburn]

raeburn		Sun Nov 20 21:24:33 2016 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Fx output written to log file when creating courses using Autocreate.pl, in 
    case where institutional sections used for enrollment did not pass
    classlist access check for course owner
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1260 loncom/interface/loncommon.pm:1.1261
--- loncom/interface/loncommon.pm:1.1260	Sun Nov 13 14:22:15 2016
+++ loncom/interface/loncommon.pm	Sun Nov 20 21:24:29 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1260 2016/11/13 14:22:15 raeburn Exp $
+# $Id: loncommon.pm,v 1.1261 2016/11/20 21:24:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -15508,19 +15508,20 @@
                            ' ('.$lt{'adby'}.')';
         if ($context eq 'auto') {
             $outcome .= $badclass_msg.$linefeed;
+        } else {
             $outcome .= '<div class="LC_warning">'.$badclass_msg.$linefeed.'<ul>'."\n";
-            foreach my $item (@badclasses) {
-                if ($context eq 'auto') {
-                    $outcome .= " - $item\n";
-                } else {
-                    $outcome .= "<li>$item</li>\n";
-                }
-            }
+        }
+        foreach my $item (@badclasses) {
             if ($context eq 'auto') {
-                $outcome .= $linefeed;
+                $outcome .= " - $item\n";
             } else {
-                $outcome .= "</ul><br /><br /></div>\n";
+                $outcome .= "<li>$item</li>\n";
             }
+        }
+        if ($context eq 'auto') {
+            $outcome .= $linefeed;
+        } else {
+            $outcome .= "</ul><br /><br /></div>\n";
         } 
     }
     if ($args->{'no_end_date'}) {