--- loncom/automation/batchcreatecourse.pm	2009/10/31 18:04:50	1.33
+++ loncom/automation/batchcreatecourse.pm	2010/02/26 23:50:28	1.35.4.1
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.33 2009/10/31 18:04:50 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.35.4.1 2010/02/26 23:50:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -320,7 +320,7 @@ sub parse_coursereqs {
                     @{$$details{$num}{'users'}{$userkey}{'roles'}} = ();
                  } elsif ("@state" eq "class users user email") {
                     $$details{$num}{'users'}{$userkey}{'emailaddr'} = $text;
-                    $$details{$num}{'users'}{$userkey}{'emailenc'} = &Apache::lonnet::escape($text); 
+                    $$details{$num}{'users'}{$userkey}{'emailenc'} = &LONCAPA::escape($text); 
                  } elsif ("@state" eq "class users user roles role start") {
                      if (grep(/^\Q$role\E$/,@possroles)) {
                          $$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text);
@@ -493,6 +493,7 @@ sub build_course {
                crsquota => $details->{'crsquota'},
                clonecourse => $details->{'clonecrs'},
                clonedomain => $details->{'clonedom'},
+               cloneroster => $details->{'cloneroster'},
                datemode => $details->{'datemode'},
                dateshift => $details->{'dateshift'},
                crsid => $details->{'optional_id'},