loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.33, 2009/10/31 18:04:50	version 1.35.4.1, 2010/02/26 23:50:28
Line 320 sub parse_coursereqs {	Line 320 sub parse_coursereqs {
@{$$details{$num}{'users'}{$userkey}{'roles'}} = ();	@{$$details{$num}{'users'}{$userkey}{'roles'}} = ();
} elsif ("@state" eq "class users user email") {	} elsif ("@state" eq "class users user email") {
$$details{$num}{'users'}{$userkey}{'emailaddr'} = $text;	$$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") {	} elsif ("@state" eq "class users user roles role start") {
if (grep(/^\Q$role\E$/,@possroles)) {	if (grep(/^\Q$role\E$/,@possroles)) {
$$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text);	$$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text);
Line 493 sub build_course {	Line 493 sub build_course {
crsquota => $details->{'crsquota'},	crsquota => $details->{'crsquota'},
clonecourse => $details->{'clonecrs'},	clonecourse => $details->{'clonecrs'},
clonedomain => $details->{'clonedom'},	clonedomain => $details->{'clonedom'},
	cloneroster => $details->{'cloneroster'},
datemode => $details->{'datemode'},	datemode => $details->{'datemode'},
dateshift => $details->{'dateshift'},	dateshift => $details->{'dateshift'},
crsid => $details->{'optional_id'},	crsid => $details->{'optional_id'},