--- loncom/automation/batchcreatecourse.pm 2005/07/12 15:44:01 1.7 +++ loncom/automation/batchcreatecourse.pm 2005/08/31 06:31:22 1.8 @@ -1,5 +1,5 @@ # -# $Id: batchcreatecourse.pm,v 1.7 2005/07/12 15:44:01 raeburn Exp $ +# $Id: batchcreatecourse.pm,v 1.8 2005/08/31 06:31:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -508,7 +508,7 @@ 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'}, @@ -516,17 +516,17 @@ sub build_course { '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' => $crsudom, - 'cdom' => $crsunum, + 'crs' => $crsunum, + 'cdom' => $crsudom, 'context' => 'createcourse', 'linefeed' => $linefeed, 'role' => $$details{$num}{'users'}{$userkey}{'roles'}[0],