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

[raeburn]

raeburn		Mon Aug 23 13:07:27 2004 EDT

  Modified files:              
    /loncom/enrollment	Enrollment.pm 
  Log:
  Access localenroll::create_password() via lonnet.
  
  
Index: loncom/enrollment/Enrollment.pm
diff -u loncom/enrollment/Enrollment.pm:1.16 loncom/enrollment/Enrollment.pm:1.17
--- loncom/enrollment/Enrollment.pm:1.16	Tue Jun 29 00:30:00 2004
+++ loncom/enrollment/Enrollment.pm	Mon Aug 23 13:07:27 2004
@@ -1,5 +1,5 @@
 # Automated Enrollment manager
-# $Id: Enrollment.pm,v 1.16 2004/06/29 04:30:00 raeburn Exp $
+# $Id: Enrollment.pm,v 1.17 2004/08/23 17:07:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,6 @@
 use LONCAPA::Configuration;
 use Time::Local;
 use lib '/home/httpd/lib/perl';
-use localenroll;
 
 use strict;
 
@@ -281,7 +280,7 @@
                                 }        
                             }
                         } elsif ($auth eq "localauth") {
-                            ($authparam,$create_passwd,$authchk) = &localenroll::create_password($authparam);
+                            ($authparam,$create_passwd,$authchk) = &Apache::lonnet::auto_create_password($crs,$dom,$authparam);
                         } elsif ($auth =~ m/^krb/) {
                             if ($authparam eq '') {
                                 $$logmsg .= "No Kerberos domain was provided for the new user - $uname, so the new student was not enrolled in the course.".$linefeed;