[LON-CAPA-cvs] cvs: loncom /enrollment Enrollment.pm

raeburn lon-capa-cvs@mail.lon-capa.org
Wed, 31 Aug 2005 06:21:58 -0000


raeburn		Wed Aug 31 02:21:58 2005 EDT

  Modified files:              
    /loncom/enrollment	Enrollment.pm 
  Log:
  Modify order of arguments passed to &loncreateuser::commit_standardrole() for consistency with loncreateuser.pm rev 1.99 and later.
  
  
Index: loncom/enrollment/Enrollment.pm
diff -u loncom/enrollment/Enrollment.pm:1.23 loncom/enrollment/Enrollment.pm:1.24
--- loncom/enrollment/Enrollment.pm:1.23	Wed Apr 27 15:11:33 2005
+++ loncom/enrollment/Enrollment.pm	Wed Aug 31 02:21:58 2005
@@ -1,5 +1,5 @@
 # Automated Enrollment manager
-# $Id: Enrollment.pm,v 1.23 2005/04/27 19:11:33 raeburn Exp $
+# $Id: Enrollment.pm,v 1.24 2005/08/31 06:21:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -459,7 +459,7 @@
         if ($context eq 'createowner' || $context eq 'createcourse') {
             my $result = &Apache::lonnet::modifyuser($udom,$uname,$pid,$auth,$authparam,$first,$middle,$last,$gene,'1',undef,$emailaddr);
             if ($result eq 'ok' && $context eq 'createcourse') {
-                $outcome = &Apache::loncreateuser::commit_standardrole($userurl,$role,$cdom,$crs,$start,$end);
+                $outcome = &Apache::loncreateuser::commit_standardrole($udom,$uname,$userurl,$role,$start,$end,$cdom,$crs,$usec);
                 unless ($outcome =~ /^Error:/) {
                     $outcome = 'ok';
                 }