--- loncom/interface/courseprefs.pm 2016/10/11 22:58:55 1.80
+++ loncom/interface/courseprefs.pm 2016/11/13 15:16:40 1.83
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.80 2016/10/11 22:58: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 @@ sub print_courseinfo {
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 @@ sub print_courseinfo {
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 @@ sub print_courseinfo {
);
my $datatable;
my $count = 0;
- my $disabled;
- if ($noedit) {
- $disabled = ' disabled="disabled"';
- }
foreach my $item (@{$ordered}) {
my $colspan;
if ($item eq 'hidefromcat') {
@@ -3953,7 +3952,7 @@ sub set_discussion_fonts {
($currsize,$currunit) = ($1,$2);
$curr{'size'} = $currunit;
}
- $output .= ''.
+ $output .= ''.
' ';
$selitem = 'unit';
}
@@ -4662,8 +4661,8 @@ sub checkforpriv_row {
'
'.
''.
+ 'name="checkforpriv_delete" value="'.$num.'"'.$disabled.' />'.
+ &mt('Delete').''.
&Apache::loncommon::end_data_table_row();
$num ++;
unless (grep(/^\Q$currdom\E$/,@excdoms)) {
@@ -4795,8 +4794,8 @@ ENDJS
&substitution_selector($currnum).''.
'';
$pos ++;
- $currnum ++;
- $output .=
+ $currnum ++;
+ $output .=
'