loncom/automation/Autocreate.pl - diff

Return to Autocreate.pl CVS log

Up to [LON-CAPA] / loncom / automation

version 1.8, 2008/02/07 04:39:42	version 1.11, 2010/01/31 18:06:10
Line 2	Line 2
#	#
# Automated Course Creation script	# Automated Course Creation script
#	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 37	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 131	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/:$//;