loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.12, 2006/05/26 15:37:14	version 1.13, 2006/05/30 20:05:10
Line 166 use strict;	Line 166 use strict;
#	#
# Directory for retrieval of files listed in @$requests is:	# Directory for retrieval of files listed in @$requests is:
# /home/httpd/perl/tmp/addcourse/$dom/auto/pending if $context = auto	# /home/httpd/perl/tmp/addcourse/$dom/auto/pending if $context = auto
# /home/httpd/perl/tmp/addcourse/$dom/web/$udom_$uname if $context = web	# /home/httpd/perl/tmp/addcourse/$dom/web/$uname_$udom/pending if $context = web
#	#
# inputs (five) - requests - ref to array of filename(s) containing course requests	# inputs (five) - requests - ref to array of filename(s) containing course requests
# courseids - ref to hash to store LON-CAPA course ids of new courses	# courseids - ref to hash to store LON-CAPA course ids of new courses
Line 201 sub create_courses {	Line 201 sub create_courses {
$newcoursedir .= '/pending';	$newcoursedir .= '/pending';
} else {	} else {
if ($uname && $udom) {	if ($uname && $udom) {
$newcoursedir .= '/'.$udom.'_'.$uname;	$newcoursedir .= '/'.$uname.'_'.$udom.'/pending';
} else {	} else {
$logmsg = "batchcreatecourse::create_courses() called without username and/or domain of requesting Domain Coordinator";	$logmsg = "batchcreatecourse::create_courses() called without username and/or domain of requesting Domain Coordinator";
}	}