--- loncom/interface/lonpopulate.pm	2009/11/24 14:26:15	1.67
+++ loncom/interface/lonpopulate.pm	2011/01/11 22:09:50	1.68
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.67 2009/11/24 14:26:15 wenzelju Exp $
+# $Id: lonpopulate.pm,v 1.68 2011/01/11 22:09:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1894,7 +1894,7 @@ sub print_crosslistings_menu () {
 
 sub print_crosslistings_response () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
-    my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode','internal.courseowner'],$dom,$crs);
+    my %settings = &Apache::lonnet::get('environment',['internal.crosslistings','internal.coursecode','internal.courseowner','internal.co-owners'],$dom,$crs);
     my @currxlists = ();
     my @xlists = ();
     my @allxlists = ();
@@ -1906,6 +1906,7 @@ sub print_crosslistings_response () {
     my $xliststr =  $settings{'internal.crosslistings'};
     my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};
+    my $coowners = $settings{'internal.co-owners'};
     my $response = '';
     my $warning = '';
     my $warn_prefix = '';
@@ -1939,7 +1940,7 @@ sub print_crosslistings_response () {
 		$coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$env{"form.$xl"});
 		if ($coursecheck eq 'ok') {
 		    my $addcheck = '';
-		    $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner);
+		    $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$env{"form.$xl"},$owner,$coowners);
 		    if ($addcheck eq 'ok') {
 			push @xlists,$env{"form.$xl"}.":".$env{"form.$lc_sec"};
 		    } else {
@@ -2029,7 +2030,7 @@ sub print_crosslistings_response () {
 
 sub print_sections_menu () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
-    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);
+    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner','internal.co-owners'],$dom,$crs);
     my @currsections = ();
     my @sections = ();
     my @badowner = ();
@@ -2043,6 +2044,7 @@ sub print_sections_menu () {
     my $warn_prefix = "";
     my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};
+    my $coowners = $settings{'internal.co-owners'};
     if ($settings{'internal.sectionnums'} ne '') {
 	@currsections = split(/,/,$settings{'internal.sectionnums'});
     }
@@ -2067,7 +2069,7 @@ sub print_sections_menu () {
 		    my $newsec = $coursecode.$env{"form.$secnum"};
 		    my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
 		    if ($coursecheck eq 'ok') {
-			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);
+			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
 			if ($addcheck eq 'ok') {
 			    push @sections,$env{"form.$secnum"}.":".$env{"form.$lc_sec"};
 			    $seccount ++;
@@ -2211,7 +2213,7 @@ sections which contribute to enrollment
 
 sub print_sections_response () {
     my ($r,$realm,$dom,$crs,$action,$tasktitleref) = @_;
-    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner'],$dom,$crs);
+    my %settings = &Apache::lonnet::get('environment',['internal.sectionnums','internal.coursecode','internal.courseowner','internal.co-owners'],$dom,$crs);
     my @currsections = ();
     my @sections = ();
     my @allsections = ();
@@ -2223,6 +2225,7 @@ sub print_sections_response () {
     my $secstr =  $settings{'internal.sectionnums'};
     my $coursecode = $settings{'internal.coursecode'};
     my $owner = $settings{'internal.courseowner'};
+    my $coowners = $settings{'internal.co-owners'};
     my $response = '';
     my $putreply = '';
     my $warning = '';
@@ -2253,7 +2256,7 @@ sub print_sections_response () {
 		    my $newsec = $coursecode.$env{"form.$sec"};
 		    my $coursecheck = &Apache::lonnet::auto_validate_courseID($crs,$dom,$newsec);
 		    if ($coursecheck eq 'ok') {
-			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner);
+			my $addcheck = &Apache::lonnet::auto_new_course($crs,$dom,$newsec,$owner,$coowners);
 			if ($addcheck eq 'ok') {
 			    push @sections,$env{"form.$sec"}.":".$env{"form.$lc_sec"};
 			} else {