loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.10, 2008/03/18 20:51:12	version 1.11, 2010/01/31 18:06:10
Line 39	Line 39
use Apache::lonlocal;	use Apache::lonlocal;
use LONCAPA::batchcreatecourse;	use LONCAPA::batchcreatecourse;
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA();

my $perlvarref = &LONCAPA::Configuration::read_conf('loncapa.conf');	my $perlvarref = &LONCAPA::Configuration::read_conf('loncapa.conf');
my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autocreate.log';	my $logfile = $$perlvarref{'lonDaemons'}.'/logs/autocreate.log';
Line 133	Line 134

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 = &LONCAPA::escape($key.':'.$courseids{$key});
$output .= $newcourse.':';	$output .= $newcourse.':';
}	}
$output =~ s/:$//;	$output =~ s/:$//;