[LON-CAPA-cvs] cvs: loncom /automation batchcreatecourse.pm
raeburn
lon-capa-cvs@mail.lon-capa.org
Tue, 12 Jul 2005 15:44:04 -0000
raeburn Tue Jul 12 11:44:04 2005 EDT
Modified files:
/loncom/automation batchcreatecourse.pm
Log:
Key for domain in ownerargs and userargs hash is udom.
Index: loncom/automation/batchcreatecourse.pm
diff -u loncom/automation/batchcreatecourse.pm:1.6 loncom/automation/batchcreatecourse.pm:1.7
--- loncom/automation/batchcreatecourse.pm:1.6 Mon Jul 11 16:02:02 2005
+++ loncom/automation/batchcreatecourse.pm Tue Jul 12 11:44:01 2005
@@ -1,5 +1,5 @@
#
-# $Id: batchcreatecourse.pm,v 1.6 2005/07/11 20:02:02 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.7 2005/07/12 15:44:01 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -420,7 +420,7 @@
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'},
@@ -513,7 +513,7 @@
'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'},
@@ -525,6 +525,8 @@
'start' => $$details{$num}{'users'}{$userkey}{'start'},
'emailaddr' => $$details{$num}{'users'}{$userkey}{'email'},
'cid' => $courseid,
+ 'crs' => $crsudom,
+ 'cdom' => $crsunum,
'context' => 'createcourse',
'linefeed' => $linefeed,
'role' => $$details{$num}{'users'}{$userkey}{'roles'}[0],