loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.6, 2007/07/02 03:36:47	version 1.7, 2007/09/03 15:34:16
Line 101	Line 101

print $fh "Sending to batch - auto,$defdom,$dcname,$dcdom ".join(":",@requests)."\n";	print $fh "Sending to batch - auto,$defdom,$dcname,$dcdom ".join(":",@requests)."\n";
my ($result,$logmsg) = &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$defdom,$dcname,$dcdom);	my ($result,$logmsg) = &LONCAPA::batchcreatecourse::create_courses(\@requests,\%courseids,'auto',$defdom,$dcname,$dcdom);
print $fh "$result && $logmsg\n";	my $output;
	if ($result ne '') {
	$output = $result."\n";
	}
	if ($logmsg ne '') {
	$output .= $logmsg."\n";
	}

# Copy requests from pending directory to processed directory and unlink.	# Copy requests from pending directory to processed directory and unlink.
foreach my $request (@requests) {	foreach my $request (@requests) {
Line 121	Line 127
}	}
}	}

my $output;
foreach my $key (sort keys %courseids) {	foreach my $key (sort keys %courseids) {
print $fh "created course: $key - $courseids{$key}\n";	print $fh "created course: $key - $courseids{$key}\n";
my $newcourse = &Apache::lonnet::escape($key.':'.$courseids{$key});	my $newcourse = &Apache::lonnet::escape($key.':'.$courseids{$key});