--- loncom/automation/batchcreatecourse.pm 2005/07/11 20:02:02 1.6 +++ loncom/automation/batchcreatecourse.pm 2005/08/31 06:31:22 1.8 @@ -1,5 +1,5 @@ # -# $Id: batchcreatecourse.pm,v 1.6 2005/07/11 20:02:02 raeburn Exp $ +# $Id: batchcreatecourse.pm,v 1.8 2005/08/31 06:31:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -420,7 +420,7 @@ sub build_course { my $ownerargs = {'auth' => $$details{$num}{'ownerauthtype'}, 'authparam' => $$details{$num}{'ownerauthparam'}, 'emailenc' => $$details{$num}{'emailenc'}, - 'dom' => $$details{$num}{'domain'}, + 'udom' => $$details{$num}{'domain'}, 'uname' => $$details{$num}{'owner'}, 'pid' => '', 'first' => $$details{$num}{'users'}{$owner}{'first'}, @@ -508,23 +508,25 @@ sub build_course { my ($username,$userdom) = split/:/,$userkey; if (&Apache::lonnet::homeserver($username,$userdom) eq 'no_host') { # Add user if no account 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 = { 'auth' => $$details{$num}{'users'}{$userkey}{'authtype'}, 'authparam' => $$details{$num}{'users'}{$userkey}{'autharg'}, 'emailenc' => $$details{$num}{'users'}{$userkey}{'emailenc'}, - 'dom' => $userdom, + 'udom' => $userdom, 'uname' => $username, 'pid' => $$details{$num}{'users'}{$userkey}{'studentID'}, - 'first' => $$details{$num}{'users'}{$userkey}{'first'}, - 'middle' => $$details{$num}{'users'}{$userkey}{'middle'}, - 'last' => $$details{$num}{'users'}{$userkey}{'last'}, - 'gene' => $$details{$num}{'users'}{$userkey}{'gene'}, + 'first' => $$details{$num}{'users'}{$userkey}{'firstname'}, + 'middle' => $$details{$num}{'users'}{$userkey}{'middlename'}, + 'last' => $$details{$num}{'users'}{$userkey}{'lastname'}, + 'gene' => $$details{$num}{'users'}{$userkey}{'generation'}, 'usec' => $firstsec, 'end' => $$details{$num}{'users'}{$userkey}{'end'}, 'start' => $$details{$num}{'users'}{$userkey}{'start'}, - 'emailaddr' => $$details{$num}{'users'}{$userkey}{'email'}, + 'emailaddr' => $$details{$num}{'users'}{$userkey}{'emailaddr'}, 'cid' => $courseid, + 'crs' => $crsunum, + 'cdom' => $crsudom, 'context' => 'createcourse', 'linefeed' => $linefeed, 'role' => $$details{$num}{'users'}{$userkey}{'roles'}[0],