loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.20, 2007/03/03 01:40:38	version 1.21, 2007/05/11 01:48:26
Line 32 use Time::Local;	Line 32 use Time::Local;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
	use LONCAPA qw(:match);

use strict;	use strict;

Line 218 sub create_courses {	Line 219 sub create_courses {
&parse_coursereqs($newcoursedir.'/'.$request, \%details);	&parse_coursereqs($newcoursedir.'/'.$request, \%details);
foreach my $num (sort keys %details) {	foreach my $num (sort keys %details) {
my $courseid = &build_course($dom,$num,$context,\%details,\%longroles,\$logmsg,\$newusermsg,\$addresult,\%enrollcount,\$output,\$keysmsg);	my $courseid = &build_course($dom,$num,$context,\%details,\%longroles,\$logmsg,\$newusermsg,\$addresult,\%enrollcount,\$output,\$keysmsg);
$$courseids{$courseid} = $details{$num}{'class'};	if ($courseid =~ /^$match_courseid$/) {
	$$courseids{$courseid} = $details{$num}{'class'};
	}
}	}
}	}
}	}