version 1.16, 2004/06/29 04:30:00
|
version 1.17, 2004/08/23 17:07:27
|
Line 32 use HTML::Entities;
|
Line 32 use HTML::Entities;
|
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use Time::Local; |
use Time::Local; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use localenroll; |
|
|
|
use strict; |
use strict; |
|
|
Line 281 sub update_LC {
|
Line 280 sub update_LC {
|
} |
} |
} |
} |
} elsif ($auth eq "localauth") { |
} 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/) { |
} elsif ($auth =~ m/^krb/) { |
if ($authparam eq '') { |
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; |
$$logmsg .= "No Kerberos domain was provided for the new user - $uname, so the new student was not enrolled in the course.".$linefeed; |