version 1.7, 2005/07/12 15:44:01
|
version 1.9, 2006/01/13 21:36:33
|
Line 36 use Apache::loncreatecourse;
|
Line 36 use Apache::loncreatecourse;
|
use Apache::loncreateuser; |
use Apache::loncreateuser; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
|
use strict; |
|
|
# Collection of routines used for batch creation of courses and users. |
# Collection of routines used for batch creation of courses and users. |
# &create_courses() should be called by an Autocreate.pl |
# &create_courses() should be called by an Autocreate.pl |
# script via a cron entry, or alternatively from a web page, after upload |
# script via a cron entry, or alternatively from a web page, after upload |
Line 184 sub create_courses {
|
Line 186 sub create_courses {
|
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf'); |
# Get role names |
# Get role names |
my %longroles = (); |
my %longroles = (); |
open(FILE,"<$perlvarref{'lonTabDir'}.'/rolesplain.tab"); |
open(FILE,"<$$perlvarref{'lonTabDir'}.'/rolesplain.tab"); |
my @rolesplain = <FILE>; |
my @rolesplain = <FILE>; |
close(FILE); |
close(FILE); |
foreach (@rolesplain) { |
foreach (@rolesplain) { |
Line 376 sub parse_coursereqs {
|
Line 378 sub parse_coursereqs {
|
######################################################### |
######################################################### |
|
|
sub build_course { |
sub build_course { |
my ($cdom,$num,$context,$details,$longoles,$logmsg,$newusermsg,$addresult,$enrollcount,$output,$keysmsg,$udom,$uname) = @_; |
my ($cdom,$num,$context,$details,$longroles,$logmsg,$newusermsg,$addresult,$enrollcount,$output,$keysmsg,$udom,$uname) = @_; |
my $owner_uname = $$details{$num}{'owner'}; |
my $owner_uname = $$details{$num}{'owner'}; |
my $owner_domain = $$details{$num}{'domain'}; |
my $owner_domain = $$details{$num}{'domain'}; |
my $owner = $owner_uname.':'.$owner_domain; |
my $owner = $owner_uname.':'.$owner_domain; |
Line 422 sub build_course {
|
Line 424 sub build_course {
|
'emailenc' => $$details{$num}{'emailenc'}, |
'emailenc' => $$details{$num}{'emailenc'}, |
'udom' => $$details{$num}{'domain'}, |
'udom' => $$details{$num}{'domain'}, |
'uname' => $$details{$num}{'owner'}, |
'uname' => $$details{$num}{'owner'}, |
'pid' => '', |
'pid' => $$details{$num}{'users'}{$owner}{'studentID'}, |
'first' => $$details{$num}{'users'}{$owner}{'first'}, |
'first' => $$details{$num}{'users'}{$owner}{'firstname'}, |
'middle' => $$details{$num}{'users'}{$owner}{'middle'}, |
'middle' => $$details{$num}{'users'}{$owner}{'middlename'}, |
'last' => $$details{$num}{'users'}{$owner}{'last'}, |
'last' => $$details{$num}{'users'}{$owner}{'lastname'}, |
'gene' => $$details{$num}{'users'}{$owner}{'gene'}, |
'gene' => $$details{$num}{'users'}{$owner}{'generation'}, |
'usec' => '', |
'usec' => '', |
'end' => '', |
'end' => '', |
'start' => '', |
'start' => '', |
Line 469 sub build_course {
|
Line 471 sub build_course {
|
enrollend => $$details{$num}{'enrollend'}, |
enrollend => $$details{$num}{'enrollend'}, |
startaccess => $$details{$num}{'accessstart'}, |
startaccess => $$details{$num}{'accessstart'}, |
endaccess => $$details{$num}{'accessend'}, |
endaccess => $$details{$num}{'accessend'}, |
setpolicy => $Sdetails{$num}{'setpolicy'}, |
setpolicy => $$details{$num}{'setpolicy'}, |
setcontent => $$details{$num}{'setcontent'}, |
setcontent => $$details{$num}{'setcontent'}, |
reshome => $reshome, |
reshome => $reshome, |
setkeys => $$details{$num}{'setkeys'}, |
setkeys => $$details{$num}{'setkeys'}, |
Line 508 sub build_course {
|
Line 510 sub build_course {
|
my ($username,$userdom) = split/:/,$userkey; |
my ($username,$userdom) = split/:/,$userkey; |
if (&Apache::lonnet::homeserver($username,$userdom) eq 'no_host') { # Add user if no account |
if (&Apache::lonnet::homeserver($username,$userdom) eq 'no_host') { # Add user if no account |
my $firstrole = $$details{$num}{'users'}{$userkey}{'roles'}[0]; |
my $firstrole = $$details{$num}{'users'}{$userkey}{'roles'}[0]; |
my $firssec = $$details{$num}{'users'}{$userkey}{$firstrole}{'usec'}[0]; |
my $firstsec = $$details{$num}{'users'}{$userkey}{$firstrole}{'usec'}[0]; |
my $userargs = { |
my $userargs = { |
'auth' => $$details{$num}{'users'}{$userkey}{'authtype'}, |
'auth' => $$details{$num}{'users'}{$userkey}{'authtype'}, |
'authparam' => $$details{$num}{'users'}{$userkey}{'autharg'}, |
'authparam' => $$details{$num}{'users'}{$userkey}{'autharg'}, |
Line 516 sub build_course {
|
Line 518 sub build_course {
|
'udom' => $userdom, |
'udom' => $userdom, |
'uname' => $username, |
'uname' => $username, |
'pid' => $$details{$num}{'users'}{$userkey}{'studentID'}, |
'pid' => $$details{$num}{'users'}{$userkey}{'studentID'}, |
'first' => $$details{$num}{'users'}{$userkey}{'first'}, |
'first' => $$details{$num}{'users'}{$userkey}{'firstname'}, |
'middle' => $$details{$num}{'users'}{$userkey}{'middle'}, |
'middle' => $$details{$num}{'users'}{$userkey}{'middlename'}, |
'last' => $$details{$num}{'users'}{$userkey}{'last'}, |
'last' => $$details{$num}{'users'}{$userkey}{'lastname'}, |
'gene' => $$details{$num}{'users'}{$userkey}{'gene'}, |
'gene' => $$details{$num}{'users'}{$userkey}{'generation'}, |
'usec' => $firstsec, |
'usec' => $firstsec, |
'end' => $$details{$num}{'users'}{$userkey}{'end'}, |
'end' => $$details{$num}{'users'}{$userkey}{'end'}, |
'start' => $$details{$num}{'users'}{$userkey}{'start'}, |
'start' => $$details{$num}{'users'}{$userkey}{'start'}, |
'emailaddr' => $$details{$num}{'users'}{$userkey}{'email'}, |
'emailaddr' => $$details{$num}{'users'}{$userkey}{'emailaddr'}, |
'cid' => $courseid, |
'cid' => $courseid, |
'crs' => $crsudom, |
'crs' => $crsunum, |
'cdom' => $crsunum, |
'cdom' => $crsudom, |
'context' => 'createcourse', |
'context' => 'createcourse', |
'linefeed' => $linefeed, |
'linefeed' => $linefeed, |
'role' => $$details{$num}{'users'}{$userkey}{'roles'}[0], |
'role' => $$details{$num}{'users'}{$userkey}{'roles'}[0], |