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

raeburn raeburn at source.lon-capa.org
Sun Nov 13 10:16:40 EST 2016


raeburn		Sun Nov 13 15:16:40 2016 EDT

  Modified files:              
    /loncom/interface	courseprefs.pm 
  Log:
  - Additional arg in call to loncommon::assign_categories_table().
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.82 loncom/interface/courseprefs.pm:1.83
--- loncom/interface/courseprefs.pm:1.82	Mon Oct 24 18:08:55 2016
+++ loncom/interface/courseprefs.pm	Sun Nov 13 15:16:40 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.82 2016/10/24 18:08:55 raeburn Exp $
+# $Id: courseprefs.pm,v 1.83 2016/11/13 15:16:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1978,7 +1978,10 @@
     unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {
         return;
     }
-    my ($cathash,$categoriesform,$autocoowner,$clonedefaults);
+    my ($cathash,$categoriesform,$autocoowner,$clonedefaults,$disabled);
+    if ($noedit) {
+        $disabled = ' disabled="disabled"';
+    }
     my %domconf = 
         &Apache::lonnet::get_dom('configuration',
                                  ['coursecategories','autoenroll','coursedefaults'],$cdom);
@@ -1987,7 +1990,7 @@
         if (ref($cathash) eq 'HASH') {
             $categoriesform = 
                 &Apache::loncommon::assign_categories_table($cathash,
-                                                $settings->{'categories'},$crstype)."\n";
+                                                $settings->{'categories'},$crstype,$disabled)."\n";
         }
     }
     if (ref($domconf{'autoenroll'}) eq 'HASH') {
@@ -2129,10 +2132,6 @@
     );
     my $datatable;
     my $count = 0;
-    my $disabled;
-    if ($noedit) {
-        $disabled = ' disabled="disabled"';
-    }
     foreach my $item (@{$ordered}) {
         my $colspan;
         if ($item eq 'hidefromcat') {




More information about the LON-CAPA-cvs mailing list