[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface courseprefs.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2022-01-16 18:27:09
Message-ID: cvsraeburn1642357629 () cvsserver
[Download RAW message or body]
raeburn Sun Jan 16 18:27:09 2022 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface courseprefs.pm
Log:
- For 2.11
Backport 1.96, 1.97
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.49.2.28 \
loncom/interface/courseprefs.pm:1.49.2.29
--- loncom/interface/courseprefs.pm:1.49.2.28 Fri Dec 24 21:09:09 2021
+++ loncom/interface/courseprefs.pm Sun Jan 16 18:27:09 2022
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.49.2.28 2021/12/24 21:09:09 raeburn Exp $
+# $Id: courseprefs.pm,v 1.49.2.29 2022/01/16 18:27:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -944,7 +944,9 @@
$autocoowner = \
$domconf{'autoenroll'}{'co-owners'}; }
}
- unless ($autocoowner) {
+ if ($autocoowner) {
+ $newvalues{'co-owners'} = \
$values->{'internal.co-owners'}; + } else {
my @keepcoowners = \
&Apache::loncommon::get_env_multiple('form.coowners');
my @pendingcoowners = \
&Apache::loncommon::get_env_multiple('form.pendingcoowners');
my @invitecoowners = \
&Apache::loncommon::get_env_multiple('form.invitecoowners'); @@ -989,6 +991,8 @@
if ($pendingcoowners ne '') {
@newpending = @pendingcoown;
}
+ } else {
+ @newcoown = @currcoown;
}
$newvalues{'pendingco-owners'} = \
join(',',sort(@newpending));
$newvalues{'co-owners'} = join(',',sort(@newcoown));
@@ -3173,7 +3177,7 @@
@pendingcoown = split(',',$pendingcoowners);
}
if (ref($currcoownref) eq 'ARRAY') {
- @currcoown == @{$currcoownref};
+ @currcoown = @{$currcoownref};
}
my $disabled;
if ($noedit) {
@@ -3237,7 +3241,7 @@
@pendingcoown = split(',',$pendingcoowners);
}
if (ref($currcoownref) eq 'ARRAY') {
- @currcoown == @{$currcoownref};
+ @currcoown = @{$currcoownref};
}
my $disabled;
if ($noedit) {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic